news:3e6abf8c-cd21-43df-a82b-65a3657e46cf@l33g2000pri.googlegroups.com...
> Dear all, driving me a bit mad, need to add an email header with a
> title called lead ID: in the an outgoing mail and written a little
> test app below. It works but when delivered the extra header is not
> visible. What am I doing wrong? Any ideas gratefully received? I am
> using Redemption, Exchange Server 2007 and a mix of Outlook 2000/2002
> and Outlook 2003. Thanks John
>
>
> Private Sub SendEmailTest()
> Dim SafeItem, oISendItem
>
> ' send email with attachment
> Set oOutlookApp = GetObject(, "Outlook.Application")
> Set SafeItem = CreateObject("SecureEmail.SafeMailItem")
> Set oISendItem = oOutlookApp.CreateItem(olMailItem)
>
> Set SafeItem.Item = oISendItem
>
>        Tag = SafeItem.GetIDsFromNames("{00020386-0000-0000-
> C000-000000000046}", "x-test-header")
>        Tag = Tag
>        SafeItem.Fields(Tag) = "LEADID: 41567"
>        'MsgBox (SafeItem.Fields(Tag))
>        SafeItem.To = "helpd***@xxx.co.uk"
>        SafeItem.Subject = "This is a Test"
>        SafeItem.Save
>
>        ' send the email with subject line and attached document
>        SafeItem.Send
>
> ' make the email and objects nothing so resetting them
> Set oISendItem = Nothing
> Set oOutlookApp = Nothing
>
> End Sub

On 15 Jan, 18:52, "Ken Slovak - [MVP - Outlook]" <kenslo***@mvps.org>
wrote:
> When using GetIDsFromNames you must Or the result you get back with the type
> of property tag, in this case PT_STRING8. So this line in your code:
>
>     Tag = Tag
>
> Should be:
>
>     Tag = Tag Or &H1E ' PT_STRING8 == 0x0000001E
>
> --
> 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
>
> <freeman***@gmail.com> wrote in message
>
> news:3e6abf8c-cd21-43df-a82b-65a3657e46cf@l33g2000pri.googlegroups.com...
>
>
>
> > Dear all, driving me a bit mad, need to add an email header with a
> > title called lead ID: in the an outgoing mail and written a little
> > test app below. It works but when delivered the extra header is not
> > visible. What am I doing wrong? Any ideas gratefully received? I am
> > using Redemption, Exchange Server 2007 and a mix of Outlook 2000/2002
> > and Outlook 2003. Thanks John
>
> > Private Sub SendEmailTest()
> > Dim SafeItem, oISendItem
>
> > ' send email with attachment
> > Set oOutlookApp = GetObject(, "Outlook.Application")
> > Set SafeItem = CreateObject("SecureEmail.SafeMailItem")
> > Set oISendItem = oOutlookApp.CreateItem(olMailItem)
>
> > Set SafeItem.Item = oISendItem
>
> >        Tag = SafeItem.GetIDsFromNames("{00020386-0000-0000-
> > C000-000000000046}", "x-test-header")
> >        Tag = Tag
> >        SafeItem.Fields(Tag) = "LEADID: 41567"
> >        'MsgBox (SafeItem.Fields(Tag))
> >        SafeItem.To = "helpd***@xxx.co.uk"
> >        SafeItem.Subject = "This is a Test"
> >        SafeItem.Save
>
> >        ' send the email with subject line and attached document
> >        SafeItem.Send
>
> > ' make the email and objects nothing so resetting them
> > Set oISendItem = Nothing
> > Set oOutlookApp = Nothing
>
> > End Sub- Hide quoted text -
>
> - Show quoted text -

On 16 Jan, 08:04, "freeman***@gmail.com" <freeman***@gmail.com> wrote:
> Ken you are a genius, thank you so much. Cheers John
>
> On 15 Jan, 18:52, "Ken Slovak - [MVP - Outlook]" <kenslo***@mvps.org>
> wrote:
>
>
>
> > When using GetIDsFromNames you must Or the result you get back with the type
> > of property tag, in this case PT_STRING8. So this line in your code:
>
> >     Tag = Tag
>
> > Should be:
>
> >     Tag = Tag Or &H1E ' PT_STRING8 == 0x0000001E
>
> > --
> > 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
>
> > <freeman***@gmail.com> wrote in message
>
> >news:3e6abf8c-cd21-43df-a82b-65a3657e46cf@l33g2000pri.googlegroups.com....
>
> > > Dear all, driving me a bit mad, need to add an email header with a
> > > title called lead ID: in the an outgoing mail and written a little
> > > test app below. It works but when delivered the extra header is not
> > > visible. What am I doing wrong? Any ideas gratefully received? I am
> > > using Redemption, Exchange Server 2007 and a mix of Outlook 2000/2002
> > > and Outlook 2003. Thanks John
>
> > > Private Sub SendEmailTest()
> > > Dim SafeItem, oISendItem
>
> > > ' send email with attachment
> > > Set oOutlookApp = GetObject(, "Outlook.Application")
> > > Set SafeItem = CreateObject("SecureEmail.SafeMailItem")
> > > Set oISendItem = oOutlookApp.CreateItem(olMailItem)
>
> > > Set SafeItem.Item = oISendItem
>
> > >        Tag = SafeItem.GetIDsFromNames("{00020386-0000-0000-
> > > C000-000000000046}", "x-test-header")
> > >        Tag = Tag
> > >        SafeItem.Fields(Tag) = "LEADID: 41567"
> > >        'MsgBox (SafeItem.Fields(Tag))
> > >        SafeItem.To = "helpd***@xxx.co.uk"
> > >        SafeItem.Subject = "This is a Test"
> > >        SafeItem.Save
>
> > >        ' send the email with subject line and attached document
> > >        SafeItem.Send
>
> > > ' make the email and objects nothing so resetting them
> > > Set oISendItem = Nothing
> > > Set oOutlookApp = Nothing
>
> > > End Sub- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -