View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
hotherps[_46_] hotherps[_46_] is offline
external usenet poster
 
Posts: 1
Default Sending Appointments via Outlook

This is some VBA I use in Access to call Outlook objects, you might b
able to play around with it and get it to work by changing the fiel
references to Cell references:
Dim objMail As Outlook.MailItem
Dim strsql As String
Dim strMail As String


Set objMail = Outlook.CreateItem(olMailItem)

objMail.To = "Your recipient" 'or a cell reference

objMail.CC = "
objMail.Subject = "Your Sub ject here"
strMail = "Your long comments or what you want to appear in th
body."
objMail.Body = strMail
'objMail.Attachments.Add ("C:\YourFolder\Your Attachment.xls")

objMail.Display
'objMail.Send


You could comment out any lones that don't applay at first and easil
create a new message.
HT

--
Message posted from http://www.ExcelForum.com