In each line you are overwriting the previous Body, not appending to it.

Try something like this:

objSafeMsg.Body = objSafeMsg.Body & "" & vbCrLf

That appends whatever is new to the existing Body.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Danu" wrote in message
...
Here are a few lines:

objSafeMsg.Body = "Good Morning," & vbCrLf 'separate lines by adding a
vbCrlf at the end of the line.
objSafeMsg.Body = "" & vbCrLf
objSafeMsg.Body = "This portion of the text is several lines in length
but one paragraph." & vbCrLf
objSafeMsg.Body = "" & vbCrLf
objSafeMsg.Body = "This is a continuation of the email message." &
vbCrLf
objSafeMsg.Body = "" & vbCrLf
objSafeMsg.Body = "Thank you." & vbCrLf

When I send a test email, all I see is "Thank you."

Thanks for your help.