Set PR_Received_by_Name with RDO   

I have this scripts that I can use to READ the PR_Received_by_Name of
an email message in a PST file.

I need to change this.  What is the change command?

set Session = CreateObject("Redemption.RDOSession")
Session.LogonPstStore("G:\pst\AGassman-Fixed.pst")
set Folder = Session.GetDefaultFolder(6)
for each Msg in Folder.Items
  msgbox(Msg.Subject)
  msgbox(msg.ReceivedByName)
next
msgbox(Folder)
msgbox("Done")

Thanks,
Ryan

date: Mon, 3 Mar 2008 08:41:16 -0800 (PST)   author:   unknown

Re: Set PR_Received_by_Name with RDO   

PR_RECEIVED_BY_NAME has the property tag 0x0040001E. For VBScript the code 
would look something like this:

Const PR_RECEIVED_BY_NAME = &H40001E

set Session = CreateObject("Redemption.RDOSession")
Session.LogonPstStore("G:\pst\AGassman-Fixed.pst")
set Folder = Session.GetDefaultFolder(6)
for each Msg in Folder.Items
  msgbox(Msg.Subject)
  msgbox(msg.ReceivedByName)

    Msg.Fields(PR_RECEIVED_BY_NAME) = "Joe Cool"
    Msg.Save
next
msgbox(Folder)
msgbox("Done")


-- 
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


 wrote in message 
news:24e9d0aa-ee76-485d-b070-e06cb6c51924@e10g2000prf.googlegroups.com...
>I have this scripts that I can use to READ the PR_Received_by_Name of
> an email message in a PST file.
>
> I need to change this.  What is the change command?
>
> set Session = CreateObject("Redemption.RDOSession")
> Session.LogonPstStore("G:\pst\AGassman-Fixed.pst")
> set Folder = Session.GetDefaultFolder(6)
> for each Msg in Folder.Items
>  msgbox(Msg.Subject)
>  msgbox(msg.ReceivedByName)
> next
> msgbox(Folder)
> msgbox("Done")
>
> Thanks,
> Ryan

date: Tue, 4 Mar 2008 09:05:56 -0500   author:   Ken Slovak - [MVP - Outlook]