VBA Outlook SaveAsFile方法创建空文件

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

For Each att In mail.Attachments

（我确实拥有

att

对象中的所有附件-我通过将

att.FileName

属性与我的附件名称进行比较来进行检查-没有问题。）但当我尝试将附件保存为文件时，例如：

att.SaveAsFile "C:\test.xls"

---

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

很难从代码中分辨出问题所在。使用Outlook 2003，我可以很好地处理任何/all.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

---

您正在运行什么版本的Office？另外，您是否正在尝试将图片和文本保存为.xls文件？您需要显示声明

att

和

mail

的代码，以及如何获取这些引用。