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

Question

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

问题是在移动/复制电子邮件后，To 和 From 属性会变得混乱。那是：

原文来自：GuyA

原收件人：我

搬家后来自：我

after-move To：公用文件夹的名称

我尝试了以下方法，但似乎对公用文件夹中的电子邮件没有任何影响

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

Answer 2

尝试：

Dim newEMail As Outlook.MailItem    
For Each email In a1Bucket.items
    sender = email.SentOnBehalfOfName
    receiver = email.ReceivedOnBehalfOfName
    Set newEMail = objmail.Move(largeBucket)
    'email.Move largeBucket
    newEMail.SentOnBehalfOfName = sender
    newEMail.To = receiver
Next

您可能还需要在此之后保存它。您使用上面的代码保留对对象的引用 - 在被移动之后。

以下：

email.SentOnBehalfOfName = sender
email.To = receiver

仅修改原始电子邮件（而不是移动后的电子邮件）。它不与新的电子邮件/邮件对象相关联。