Here's some of the code I used to create emails. You can insert some variables in here, and loop it to send multiple emails to many people
I use Access 2000 and Outlook 2000. Outlook may prompt you to "OK" the sending of automated emails..
Be sure to set the References in Access' VB panel to include Outlook functions...
For more on using Outlook from Access, search for help on "MailItem"
Dim SubjectLine, Email_Content As Strin
Dim myOlApp As Outlook.Applicatio
Dim myItem As MailIte
Set myOlApp = CreateObject("Outlook.Application"
SubjectLine = "The Subject of the email
Email_Content = "Hello. Just a reminder that you owe me a phone call." & Chr(10) & "Call me today.
Set myItem = myOlApp.CreateItem(olMailItem
myItem.Subject = SubjectLin
myItem.Body = Email_Conten
myItem.To = "(e-mail address removed)
myItem.Sen
Set myOlApp = Nothin
Set myItem = Nothin
Ti
----- Bill Towery wrote: ----
When using SendObject, how can I write directly to an email message template (message body section) instead of sending the object as an attachment? Is there a better way to accomplish this than SendObject? The intended use is to send reminder messages to coworkers. When the person receives the email message, I want them to double-click only once to open the message and see it (with formatting/colors, etc) and not have to double-click again on the attachment to see it
Thanks in advance for your help
Bill
