Reply to thread

Message: [QUOTE="DFStoneJr, post: 6664577"] 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. [/QUOTE]