Question

我在写完Outlook后立即写了一个vba代码来下载附件。

但是这段代码没有调用，请帮忙。或者告诉我是否有另一种自动下载附件的方法。

Sub saveAttachtoDisk(itm As Outlook.MailItem)
   Dim saveFolder As String
saveFolder = "D:\outlook\"
   For Each objAtt In itm.Attachments
          MsgBox objAtt
          objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
          MsgBox saveFolder & "\" & objAtt.DisplayName
          Set objAtt = Nothing
     Next
End Sub

Answer 1

您似乎正在尝试创建一个触发VBA脚本以保存磁盘附件的规则。如果是这样，我建议从代码中删除任何MsgBox语句。它可能会阻止代码运行。相反，您可以在代码中使用Debug.Print语句。有关详细信息，请参阅Where does VBA Debug.Print log to?。

您可以考虑处理Application类的NewMailEx事件，而不是使用规则。对于Microsoft Outlook处理的每个收到的项目，事件将触发一次。该项可以是几种不同项类型之一，例如，MailItem，MeetingItem或SharingItem。 EntryIDsCollection字符串包含与该项对应的条目ID。

最后，您可能会发现Getting Started with VBA in Outlook 2010文章很有帮助。

outlook vba代码没有调用 - 下面是我的代码

1 个答案: