vba - 保存传入电子邮件附件的规则不适用于全新安装的 Outlook

Question

我们正在从一台服务器迁移到另一台服务器，用于保存正在运行的附件的 VBA 脚本已经放弃了新服务器上的幽灵。

这是 Outlook 的全新安装。

下面的脚本：

Public Sub saveAttachmentAll(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String

saveFolder = "D:\www\phones"
For Each objAtt In itm.Attachments

    objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName

    Set objAtt = Nothing

    Next

End Sub

我已经测试了 Outlook 规则，Outlook 正在对其执行其他操作，但此脚本不起作用！

Answer 1

所以事实证明我不得不禁用宏安全（这不是最好的）并重新启动 Outlook。相当简单，但我有一段时间摸不着头脑......！