W
wxperson
HI..
First. I am new at this outlook programming stuff.
I have gotten the following sample send code working on my test P
using outlook redemption.
I do have a few questions however.
1. How can I now attach files to the email message? For example if
want to attach file c:\temp\ex.gif and also c:\temp\ex2.gif ... wha
would the code change be?
2. How can I specify CC and or BCC recipients.?
Thanks, for any help.
George
***************************************
Dim application
Dim SafeItem, oItem
Set application = CreateObject("Outlook.Application")
Set SafeItem = CreateObject("Redemption.SafeMailItem") 'Create a
instance of Redemption.SafeMailItem
Set oItem = application.CreateItem(0) 'Create a new message
SafeItem.Item = oItem 'set Item property
SafeItem.Recipients.Add "(e-mail address removed)"
SafeItem.Recipients.Add "(e-mail address removed)"
SafeItem.Recipients.ResolveAll
SafeItem.Subject = "Testing Redemption subject"
SafeItem.Body = "Test of body of message."
SafeItem.Send
Set oItem = Nothing
Set SafeItem = Nothing
Set application = Nothin
First. I am new at this outlook programming stuff.
I have gotten the following sample send code working on my test P
using outlook redemption.
I do have a few questions however.
1. How can I now attach files to the email message? For example if
want to attach file c:\temp\ex.gif and also c:\temp\ex2.gif ... wha
would the code change be?
2. How can I specify CC and or BCC recipients.?
Thanks, for any help.
George
***************************************
Dim application
Dim SafeItem, oItem
Set application = CreateObject("Outlook.Application")
Set SafeItem = CreateObject("Redemption.SafeMailItem") 'Create a
instance of Redemption.SafeMailItem
Set oItem = application.CreateItem(0) 'Create a new message
SafeItem.Item = oItem 'set Item property
SafeItem.Recipients.Add "(e-mail address removed)"
SafeItem.Recipients.Add "(e-mail address removed)"
SafeItem.Recipients.ResolveAll
SafeItem.Subject = "Testing Redemption subject"
SafeItem.Body = "Test of body of message."
SafeItem.Send
Set oItem = Nothing
Set SafeItem = Nothing
Set application = Nothin