vba - VBA Outlook SaveAsFile 方法创建空文件

Question

我必须处理传入的邮件，然后将一些 xls 附件保存为文件。所以，我得到所有附件

For Each att In mail.Attachments

（我确实拥有att对象中的所有附件 - 我通过将att.FileName属性与附件名称进行比较来检查它 - 没关系。）但是当我尝试将附件保存为文件时，例如像这样：

att.SaveAsFile "C:\test.xls"

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

Answer 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