我试图让我的Outlook客户端将发送到共享收件箱的所有附件保存到磁盘。这是我正在使用的vba函数:
Public Sub CSD_SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\user\Documents\"
For Each oAttachment In MItem.Attachments
Debug.Print ("saving...")
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next oAttachment
End Sub
我正在使用Outlook 2016,并且有一条规则可以在所有邮件上调用此脚本。弄清楚为什么不保存消息的一些指导会有所帮助。预先感谢。