Redemption help needed (basic I think)

[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

 

[Ken Slovak - [MVP - Outlook]]

SafeItem.Attachments.Add <path and filename of attachment you want to
add>

Repeat for the other attachment.

Set the Type property for each Recipient to whatever you want using
the OlMailRecipientType constants: olBCC, olCC or olTo.