VBA Outlook SaveAsFile方法创建空文件

我必须处理传入邮件，然后将一些xls附件保存为文件。所以，我得到的所有附件，VBA Outlook SaveAsFile方法创建空文件

For Each att In mail.Attachments

（我真的有在att对象的所有附件 - 我的att.FileName财产与我的附件的名称比较来检查它 - 它的确定），但是当我尝试保存我的附件作为文件，例如这样：

att.SaveAsFile "C:\test.xls"

创建文件，但它们总是空的。附件中的源文件包含一些数据，文本和图片，但保存的文件为空。

来源

2012-04-05 chaika_sv

您运行的是哪个版本的Office？另外，你是否试图将** PICTURES **和** TEXT **保存为.xls文件？ – Gaffi 2012-04-05 17:43:29

您需要显示声明'att'和'mail'的代码以及如何获取这些引用。 – JimmyPena 2012-07-06 18:59:42

从代码中很难判断问题的可能性。使用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

来源

2012-04-05 17:42:42 Gaffi

VBA Outlook SaveAsFile方法创建空文件

回答

相关问题