Question

My VBA application moves/copies selected, locally stored, e-mails to a designated Public Folder to which I have a full access.

The problem is that the To and From properties get messed up after the email is moved/copied. That is:

original From: GuyA

original To: Me

after-move From: Me

after-move To: the name of the public folder

I tried the following, but it doesn’t seem to make any difference on the e-mails in the public folder

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

What am I missing?

Answer 1

Try this (TESTED ON LOCAL FOLDER)

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