每当发送电子邮件时,我都希望将该电子邮件的副本以及所有附件保存在本地文件夹中。
我认为使用Outlook中的自定义规则是不可能的,但是也许可以使用VBA脚本来完成?
我使用Outlook和MS Exchange。
当然可以使用Application_ItemSend
事件过程调用自定义过程来完成,该过程将把您发送的邮件保存到本地文件夹中。
此代码在“ ThisOutlookSession”模块中。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Call SaveACopy(Item)
End Sub
Sub SaveACopy(Item As Object)
Const olMsg As Long = 3
Dim m As MailItem
Dim savePath As String
If TypeName(Item) <> "MailItem" Then Exit Sub
Set m = Item
savePath = "c:\users\your_user_name\desktop\" '## Modify as needed
savePath = savePath & m.Subject & Format(Now(), "yyyy-mm-dd-hhNNss")
savePath = savePath & ".msg"
m.SaveAs savePath, olMsg
End Sub
您将需要确保指定的路径是唯一的,等等,上面的示例相当粗糙。您还需要删除文件名中不能包含的任何非法字符(斜杠,管道等)...
作为替代方案,我建议您简单地定期存档您的文件夹。您可以将Outlook配置为将已发送邮件的副本保存到“已发送”文件夹中,然后应该能够将该文件夹进行存档。单独保存每个项目似乎不够理想。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句