Outlook Redemption

[Terry]

Im using the code below, but need to ensure that the mail is 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