Copying properties from one mail to another

[John1170]

I have 600+ emails that have lost the Sender information in a folder that
contains a copy of my historical sent items

I have found i can copy the PR_SENT_REPRESENTING_NAME field from one email
to another with Outlookspy

but how can i copy that property from one to 600+ messages? without
individually copying them one mail at a time

Outlook Spy:
Copying properties from one object to another. I have two objects with
different sets of properties and I want to copy one or more property from one
object to another.

You can simply select any number of properties on one object (be that
IMessage, IMAPIFolder or any other Extended MAPI object derived from
IMAPIProp) and drop them on the GetProps tab of any another IMAPIProp
descendant. OutlookSpy will call IMAPIProp::CopyProps() on the first object
and then save the second object.

 

[Michael Bauer [MVP - Outlook]]

For this VBA example you need to download and install the Redemption from
www.dimastr.com. It writes "whatever" into the field
'pr_sent_representing_name'. See if that works; I wouldn't be suprised if
you also have to set the other pr_sent_representing_* fields (which you see
with OutlookSpy too).

Public Sub Whatever()
Dim Session as Redemption.RDOSession
Dim Folder as Redemption.RDOFolder
Dim Item as Redemption.RDOMail
Set Session=CreateObject("Redemption.RDOSession")
Session.MapiObject=Application.Namespace.MapiObject
Set Folder=Session.Pickfolder
For Each Item in Folder
Item.Fields(&H0042001E)="whatever"
Item.Save
Next
End Sub

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Fri, 9 Oct 2009 19:53:01 -0700 schrieb John1170: