Outlook VBA 将 OUTGOING 邮件中的附件保存到文件夹答案

【问题标题】：Outlook VBA to Save Attachments from OUTGOING messages to a folderOutlook VBA 将 OUTGOING 邮件中的附件保存到文件夹
【发布时间】：2016-10-25 12:42:48
【问题描述】：

我想在一个文件夹（Windows 文件夹，Outlook 外部）中创建 OUTGOING 附件的存档。我已经使用脚本通过使用此站点上提供的一些解决方案来保存来自传入消息的附件，但我没有看到为传出邮件设置它的方法。我还尝试设置一个规则以将脚本应用于所有传出消息，但我没有看到在我发送的消息上“运行脚本”的选项（就像我可以为传入的消息一样）。

我可能可以使用解析 Outlook 文件夹的脚本，但在发送消息时让它实时运行会更有效。

【问题讨论】：

如果你能更精确一点，那就太好了。你可以先看看这个，如果：stackoverflow.com/questions/17569372/…
将您的脚本添加到问题中，以及您使用的是哪个办公室。

标签： vba outlook

【解决方案1】：

处理 Application.ItemSend 事件 - 该项目将作为参数传递给您的事件处理程序。然后，您可以像处理传入邮件一样处理邮件附件。

【讨论】：

【解决方案2】：

如果你真的想使用 Outbox 而不是 ItemSend 事件（这可能是一个更好的解决方案），试试这个（找到 here 并修改为使用 Outbox）

Public WithEvents myOlItems As Outlook.Items 

Public Sub Initialize_handler() 

    Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderOutbox).Items 

End Sub 


Private Sub myOlItems_ItemAdd(ByVal Item As Object) 

     'your code to save attachments here

End Sub

【讨论】：