SaveSentMessageFolder 到网络文件夹（而不是 Outlook 文件夹）

Question

我正在尝试开发一个程序，当用户发送电子邮件时，它会使用 OnItemSend 进行拦截。这可行，但是我无法获得下一个工作，即在发送电子邮件后，将发送的项目保存到网络文件夹中。

我可以使用以下代码来确定一个名为“TESTER”的不同“已发送文件夹”，但我需要将其实际保存到文件夹路径中，或者像“c:\temp\email.msg”一样'

    Dim myItem As Outlook.MailItem
    Dim mpfInbox As Outlook.Folder
    Dim mpf As Outlook.Folder
    mpfInbox = Application.Session.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox)
    mpf = mpfInbox.Folders("TESTER")
    myItem = Application.ActiveInspector.CurrentItem
    myItem.SaveSentMessageFolder = mpf

我知道我可以做类似...

'myItem.SaveAs sourcefolder & "\" & sName, olMSG'

但它会在发送之前保存它，因此 msg 文件看起来像是保存的新电子邮件，而不是保存的已发送电子邮件。

Answer 1

在您的自定义 Outlook 文件夹上使用 Items.ItemAdd 事件（将在邮件发送并移动到该文件夹​​后触发），保存该邮件 (MailItem.SaveAs)，然后删除原始邮件。