Here is a cut of the code I use in my help desk, but the basic is still
"docmd.sendobject"
Dim towho As String
Dim body_ As String
Dim j_order As String
body = "A Job order has been entered for you. " & Chr$(13) &
Chr$(10) & Chr$(13) & Chr$(10) & _
"The title is: " & [short_name] & Chr$(13) & Chr$(10) &
Chr$(13) & Chr$(10) & _
"Please use this email to forward any additional
information."
towho = Me.[e_mail].Caption
j_order = "Help Desk Order: 06-" & [call_id] '(format,"06-"000)
DoCmd.SendObject acSendNoObject, , , towho, , , auftrag, body, yes