Outlook Redemption - Text Only

  • Thread starter Thread starter Terry
  • Start date Start date
T

Terry

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
 
Hi Dmitry,

I'm not too sure how to declare the variables, such as
PR_InetMailOverrideFormat.

Regards
Terry
 
Back
Top