Below is my SendMail procedure I use. The Message and Body Text is typed into the form and sent like:
myItem.Body = txt.Body
But you can set it to anything you wish like:
strProjectName = Me.txtProjectName
strProjectSummary = Me.txtProjectSummary
strBody = "Project Name:'" & strProjectName & "': '" & strProjectSummary
Add carriage returns, dates and whatever else. You can put returns after each item so the format always looks the same. Also, if it is a template you are after, perhaps MailMerge with word could offer something (using word as your email editor).
Sean.
Private Sub cmdSendMail_Click()
On Error GoTo cmdSendMail_Err
Dim myOlApp As Object
Dim myNameSpace As Object
Dim myFolder As Object
Dim myItem As Object
Dim myAttachments, myRecipient As Object
Dim recipient As String
Dim file_name As String
Dim mySubject As Object
Dim dbs As Object
Dim rst As Object
Dim strSQL As String
Select Case optChapters
Case 1
strSQL = "SelQ_EmailChapter1"
Case 2
strSQL = "SelQ_EmailChapter2"
Case 3
strSQL = "SelQ_EmailChapter3"
Case 4
strSQL = "SelQ_EmailChapter4"
Case 5
strSQL = "SelQ_EmailChapter5"
Case 6
strSQL = "SelQ_EmailChapter6"
Case 7
strSQL = "SelQ_EmailChapter7"
Case 8
strSQL = "SelQ_EmailAll"
Case 9
strSQL = "SelQ_EmailAdministrator"
End Select
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strSQL)
rst.MoveFirst
While Not rst.EOF
recipient = rst!Email
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
Set myRecipient = myItem.Recipients.Add(recipient)
myItem.Subject = Me.txtSubject '"Message Subject String Here"
myItem.Body = Me.txtBody '"Put Message Body Text Here"
myItem.Display
myItem.Send
rst.MoveNext
Wend
Set myRecipient = Nothing
Set myAttachments = Nothing
Set myItem = Nothing
Set myOlApp = Nothing
Set rst = Nothing
cmdSendMail_Exit:
Exit Sub
cmdSendMail_Err:
MsgBox Err.Description
Resume cmdSendMail_Exit
End Sub
