2012-04-05 101 views
0

我必須處理傳入郵件,然後將一些xls附件保存爲文件。 所以,我得到的所有附件,VBA Outlook SaveAsFile方法創建空文件

For Each att In mail.Attachments 

(我真的有在att對象的所有附件 - 我的att.FileName財產與我的附件的名稱比較來檢查它 - 它的確定),但是當我嘗試保存我的附件作爲文件,例如這樣:

att.SaveAsFile "C:\test.xls" 

創建文件,但它們總是空的。附件中的源文件包含一些數據,文本和圖片,但保存的文件爲空。

+0

您運行的是哪個版本的Office?另外,你是否試圖將** PICTURES **和** TEXT **保存爲.xls文件? – Gaffi 2012-04-05 17:43:29

+0

您需要顯示聲明'att'和'mail'的代碼以及如何獲取這些引用。 – JimmyPena 2012-07-06 18:59:42

回答

1

從代碼中很難判斷問題的可能性。使用Outlook 2003,我可以很好地處理任何/所有.xls附件...

Sub TestSub() 
    Dim mail As Outlook.Inspector 
    Dim att As Variant 
    Set mail = Application.ActiveInspector 
    For Each att In mail.CurrentItem.Attachments 
     att.SaveAsFile "P:\test.xls" 
    Next att 
End Sub