vba - Outlook パブリック フォルダーにコピーすると電子メールのプロパティが失われる

Question

私の VBA アプリケーションは、選択したローカルに保存された電子メールを、私がフル アクセス権を持つ指定されたパブリック フォルダに移動またはコピーします。

問題は、電子メールが移動/コピーされた後、To プロパティと From プロパティがめちゃくちゃになることです。あれは：

原作：GuyA

原文 To: 私

移動後 差出人: 私

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

元のメールのみを変更します (移動後のメールは変更しません)。新しい電子メール/メール オブジェクトには関連付けられていません。