规则保存传入电子邮件上的附件,而不是全新安装的Outlook

时间:2012-06-27 14:09:20

标签: vba outlook outlook-vba

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

这是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正在对其执行其他操作,但此脚本无效!

1 个答案:

答案 0 :(得分:1)

所以事实证明我必须禁用宏安全性(这不是最好的)并重启Outlook。相当简单,但我有一段时间摸不着头......!