首页 文章

规则将附件保存在无法在全新安装的 Outlook 中工作的传入电子邮件中

提问于
浏览 次
1

我们正在从一台服务器迁移到另一台服务器，并且使用 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 正在对其执行其他操作，但是此脚本无法正常工作！

vba outlook outlook-vba

1 回答

  • 1

    因此，事实证明我不得不禁用宏安全性(这不是最好的方法)并重新启动 Outlook。相当简单，但是我挠了一下头……！

    回复于

相关问题