Here is the code I use to create e-mails in VBA. Set a reference to outlook.
Private Sub cmdSendEmail_Click()
'Don't forget to set a reference to the Outlook object library 8.0
'Use the Object browser to see the exposed objects.
Dim MailApp As Outlook.Application
Dim NewEmail As MailItem
Set MailApp = CreateObject("Outlook.Application")
Set NewEmail = MailApp.CreateItem(olMailItem)
With NewEmail
'This is the e-mail address I use for students
.To = "
[email protected]"
.Subject = "This is an Access Generated Email"
.Body = "Mike:" & Chr(13) _
& "This message was generated by an " & Chr(13) _
& "access event." & Chr(13) _
& "What do you think?" & Chr(13) _
& "It uses the exposed objects of outlook" & Chr(13) _
& "to create and send the message."
.Send
End With
Set NewEmail = Nothing
Set MailApp = Nothing
End Sub