保存带有附件Outlook VBA规则的电子邮件

Question

我试图让我的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，并且有一条规则可以在所有邮件上调用此脚本。弄清楚为什么不保存消息的一些指导会有所帮助。预先感谢。