View Single Post
  #1  
Old July 5th 06, 10:50 AM posted to microsoft.public.outlook.program_vba
FLudewig
external usenet poster
 
Posts: 1
Default Changing the RFC822 header of a SafeMailItem using Redemption

Hi,

I am using redemption in my application to send e-mails from a non-default
account in Outlook. Since Redemption does generaly not allow sending from
non-default account I tried the workaround described in the redemption FAQ: I
add a named property ("From") to the outgoing message and force Outlook to
use its name as RFC822 header and its value as the value of the header.

This works fine in my machine but it won't on others. Here is my code:

Set oOutlook = GetObject(, "Outlook.Application")

'open Session
Set oSession = New Redemption.RDOSession
oSession.Logon

Set oItem = oOutlook.CreateItem(olMailItem)
Set oSafeMailItem = New Redemption.SafeMailItem
With oSafeMailItem
.Item = oItem

Tag = .GetIDsFromNames("{00020386-0000-0000-C000-000000000046}", "From")
.Fields(Tag) = "Someone "
.Subject = .Subject 'to trick Outlook into thinking that something has
changed
.Save
end with

Any ideas? Is it the GUID maybe?

Thanks for your help!
F. Ludewig


Ads