This is very weird! Here is my code:
Dim strEmailAdd, strBody, strSubject As String
strBody = "The following is your username"
strEmailAdd = "test@somewhere.com.au"
strSubject = "Database"
DoCmd.SendObject , , , strEmailAdd, , , strSubject, strBody, False
With strBody...