Outlook Redemption - Text Only

[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

 

[Dmitry Streblechenko]

See http://www.dimastr.com/redemption/faq.htm#11 for an example that sends
using HTML.
You will need to use BODY_ENCODING_TEXT (0) instead of
BODY_ENCODING_TEXT_AND_HTML and EDITOR_FORMAT_PLAINTEXT instead of
EDITOR_FORMAT_HTML.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Terry]

Thank you Dmitry,

Best regards

See http://www.dimastr.com/redemption/faq.htm#11 for an example that sends
using HTML.
You will need to use BODY_ENCODING_TEXT (0) instead of
BODY_ENCODING_TEXT_AND_HTML and EDITOR_FORMAT_PLAINTEXT instead of
EDITOR_FORMAT_HTML.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Terry]

Hi Dmitry,

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

Regards
Terry

 

[Dmitry Streblechenko]

4 bytes integer.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Terry]

Hi Dmitry,

Works great now, many thanks

Regards
Terry

 

[Dmitry Streblechenko]

Construct the HTML and set the HTMLBody property.

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-