Dim strBody As String
objItem.Subject = "Placements and Assessments Reports "
strBody = "I have attached this weekes Placements and Assessments Report." & vbNewLine
strBody = strBody & "TCB." & vbNewLine
strBody = strBody & "Company." & vbNewLine
strBody = strBody & "P:555-555-5555." & vbNewLine
strBody = strBody & "F:444-444-4444."
objItem.Body = strBody