Using Redemption and Excel: CCs, calendar items

D

DFStoneJr

Windows XP, Office 2003

I'm currently using variations of the following Excel VBA code to send
e-mails through Outlook from Excel via the Redemption add-in:

Sub SendSafeitem()
Set objOL = CreateObject("Outlook.Application")
Set Namespace = objOL.GetNamespace("MAPI")
Namespace.Logon
Set SafeItem = CreateObject("Redemption.SafeMailItem") 'Create an
instance ofRedemption.SafeMailItem
Set oItem = objOL.CreateItem(0) 'Create a new message oItem.Save
FiletoSend = Sourcedir & FiletoSend
SafeItem.Item = oItem 'set Item property
SafeItem.Recipients.Add Recipients
SafeItem.Subject = Subject
SafeItem.Body = Body
SafeItem.Send
Set objOL = Nothing
Set oItem = Nothing
End Sub

Is it possible, with or without Redemption, to:
1) add an attachment to the message,
2) add CC recipients rather than TO: recipients; and
3) add an item based on the message being sent to the Outlook calendar
(e.g., a task to follow-up on the item at a certain date and time)?

TIA.
 

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

Top