Im using the code below, but need to ensure that the mail is sent as Text
only with
no HTML  included. What do I need to change please?

Regards

Set SafeItem = CreateObject("Redemption.SafeMailItem")
' create the Outlook session
Set objOutlook = CreateObject("Outlook.Application")
Set objNS = objOutlook.GetNamespace("MAPI")
objNS.Logon
' create the Message
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
SafeItem.Item = objOutlookMsg
With SafeItem
   .Recipients.Add "Call Update<" & strRecipient & ">"
   .Subject = strSubject
   .Body = strBody
   '.Display
   .Save
   .Send
End With
Set objOutlookMsg = Nothing
Set objNS = Nothing
Set objOutlook = Nothing
Set SafeItem = Nothing