Question

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

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

Answer 1

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

Answer 2

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

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

Outlook VBA将附件从OUTGOING消息保存到文件夹

2 个答案: