To add line breaks, work this into the end of each line: Chr(13), like this:
Field1 & Chr(13) & Field2 & Chr(13) & Field 3
(You will need to use the combined Chr(13) & Chr(10) if the resultant string is passed to, for example, a text editor that needs both the carriage return and linefeed, but just Chr(13) if sending to the SendObject method below.)
Example of how to send e-mail in Access via VBA. This uses the user's MAPI client and sends no attachment, but can also be used to send an attachment. Look up the help on the SendObject method for specifics on the usage of each of its arguments (subject, message body, attachment name, format, etc.)
Private Sub MessageSend()
Dim strSubject as String
Dim strBody as String
Dim strRecipient as String
strSubject = DLookup("[CustomerSubject]","[Customer]","[CustomerID] = " & CustomerID)
strBody = DLookup("[Field1]","[Customer]","[CustomerID] = " & CustomerID)
strBody = strBody & Chr(13) & Chr(10)
strBody = DLookup("[Field2]","[Customer]","[CustomerID] = " & CustomerID)
strBody = strBody & Chr(13) & Chr(10)
strBody = DLookup("[Field3]","[Customer]","[CustomerID] = " & CustomerID)
strRecipient = DLookup("[CustomerEmailAddress]","[Customer]","[CustomerID] = " & CustomerID)
'send the message
DoCmd.SendObject acSendNoObject, , , strRecipient, , , strSubject, strBody, False, False
End Sub