Vba 保存未在Outlook新安装中运行的传入电子邮件的附件的规则

我们正在从一台服务器迁移到另一台服务器，用于保存正在工作的附件的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正在对其执行其他操作，但此脚本不起作用

所以我不得不禁用宏安全性（这不是最好的），然后重新启动Outlook。相当简单，但我搔了一会儿头

所以我不得不禁用宏安全性（这不是最好的），然后重新启动Outlook。相当简单，但我搔了一会儿头

文件夹“D:\www\phones”存在吗？是的，里面还有其他文件。这是Outlook的新安装，所以我需要做些什么才能让脚本在Outlook中运行？文件夹“d:\www\phones”是否存在？是的，其中也有其他文件。这是一个新安装的Outlook，那么我需要做些什么才能让脚本在Outlook中运行呢？