Redemption help needed (basic I think)




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.



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.Subject = "Testing Redemption subject"
SafeItem.Body = "Test of body of message."

Set oItem = Nothing
Set SafeItem = Nothing
Set application = Nothin



Ken Slovak - [MVP - Outlook]

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

Repeat for the other attachment.

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question