Outlook Redemption - Text Only


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
 
Ad

Advertisements

T

Terry

Hi Dmitry,

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

Regards
Terry
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top