vba - 复制到 Outlook 公用文件夹时电子邮件属性丢失

Question

我的 VBA 应用程序将选定的、本地存储的电子邮件移动/复制到我具有完全访问权限的指定公共(public)文件夹。

问题是移动/复制电子邮件后，“收件人”和“发件人”属性会变得困惑。即:

原文来自:GuyA

原文致:我

搬家后发件人:我

移动后到:公用文件夹的名称

我尝试了以下操作，但似乎对公共(public)文件夹中的电子邮件没有任何影响

For Each email In a1Bucket.items
    sender = email.SentOnBehalfOfName
    receiver = email.ReceivedOnBehalfOfName
    email.Move largeBucket
    email.SentOnBehalfOfName = sender
    email.To = receiver
Next

我错过了什么？

Answer 1

试试这个(在本地文件夹上测试)

For Each Email In a1Bucket.items
    sender = Email.SentOnBehalfOfName
    receiver = Email.ReceivedOnBehalfOfName
    Set currentMailItem = Email.Move (largeBucket)
    currentMailItem.SentOnBehalfOfName = sender
    currentMailItem.To = receiver
    currentMailItem.Save
Next