Hi John

Use a example from my site and click on the tips link that you find on every page
http://www.rondebruin.nl/sendmail.htm

Try this one for Outlook for only text

Sub Mail_small_Text_Outlook()
' Is working in Office 2000-2007
   Dim OutApp As Object
   Dim OutMail As Object
   Dim strbody As String
   Dim cell As Range
   Dim strto As String

   Set OutApp = CreateObject("Outlook.Application")
   OutApp.Session.Logon
   Set OutMail = OutApp.CreateItem(0)

   strbody = "Hi there" & vbNewLine & vbNewLine & _
             "This is line 1" & vbNewLine & _
             "This is line 2" & vbNewLine & _
             "This is line 3" & vbNewLine & _
             "This is line 4"

   On Error Resume Next
   For Each cell In ThisWorkbook.Sheets("Sheet1") _
       .Range("A1:A10").Cells.SpecialCells(xlCellTypeConstants)
       If cell.Value Like "?*@?*.?*" Then
           strto = strto & cell.Value & ";"
       End If
   Next cell
   On Error GoTo 0
   If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)

   On Error Resume Next
   With OutMail
       .To = strto
       .CC = ""
       .BCC = ""
       .Subject = "This is the Subject line"
       .Body = strbody
       .Display   'or use .Send
   End With
   On Error GoTo 0

   Set OutMail = Nothing
   Set OutApp = Nothing
End Sub