Outlook Redemption

John

Hi

I am using the latest redemption. I am using the below code in vb.net to
send mail in html format. The problem is that text does not get sent as html
and html tags appear as they are in the message like '<HTML>' etc. Any idea
what I am doing wrong?

Thanks

Regards
Yahya
Imports Outlook
Imports System.Runtime.InteropServices.Marshal
Imports Redemption

Const PR_InetMailOverrideFormat = &H59020003
Const ENCODING_PREFERENCE = &H20000
Const BODY_ENCODING_TEXT_AND_HTML = &H100000
Const ENCODING_MIME = &H40000
Const PR_MSG_EDITOR_FORMAT = &H59090003
Const EDITOR_FORMAT_PLAINTEXT = 1
Const EDITOR_FORMAT_HTML = 2
Const vbLFCR = Chr(10) & Chr(13)

Dim SafeItem As Redemption.SafeMailItem
Dim oItem As Object
' Dim oItem As Outlook.MailItem
Dim Utils As Redemption.MAPIUtils
Dim ol As Outlook.Application
Dim Btn As Office.CommandBarButton
Dim ns As Outlook.NameSpace

ol = New Outlook.Application
ns = ol.GetNamespace("MAPI")
ns.Logon()
oItem = ol.CreateItem(OlItemType.olMailItem)
SafeItem = New Redemption.SafeMailItem 'Create an instance of
Redemption.SafeMailItem
SafeItem.Fields(PR_InetMailOverrideFormat) = ENCODING_PREFERENCE Or
ENCODING_MIME Or BODY_ENCODING_TEXT_AND_HTML
SafeItem.Fields(PR_MSG_EDITOR_FORMAT) = EDITOR_FORMAT_HTML
SafeItem.Item = oItem 'set Item property
oItem.To = "in**@infovis.co.uk"
SafeItem.Recipients.ResolveAll()
SafeItem.Subject = "Testing html in Redemption" ' <== Error: Property
Subject not supported
SafeItem.Body = "<HTML>" & vbLFCR & _
"<HEAD>" & vbLFCR & _
"<TITLE>Message</TITLE>" & vbLFCR & _
"<BODY>" & vbLFCR & _
"This is just a test html file to demo html
emailing." & vbLFCR & _
" " & vbLFCR & _
"" & vbLFCR & _
"</BODY>" & vbLFCR & _
"</HTML>"
SafeItem.Send()
Utils = New Redemption.MAPIUtils
Utils.DeliverNow()
Btn = ol.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute()
Utils.Cleanup()

Nov 20 '05 #1

Subscribe Post Reply

8774

Dmitry Streblechenko

You need to set the HTMLBody property rather than Body.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"John" <jo**@nospam.infovis.co.uk> wrote in message
news:Om**************@TK2MSFTNGP11.phx.gbl...

Hi

I am using the latest redemption. I am using the below code in vb.net to
send mail in html format. The problem is that text does not get sent as html and html tags appear as they are in the message like '<HTML>' etc. Any idea what I am doing wrong?

Thanks

Regards
Yahya
Imports Outlook
Imports System.Runtime.InteropServices.Marshal
Imports Redemption

Const PR_InetMailOverrideFormat = &H59020003
Const ENCODING_PREFERENCE = &H20000
Const BODY_ENCODING_TEXT_AND_HTML = &H100000
Const ENCODING_MIME = &H40000
Const PR_MSG_EDITOR_FORMAT = &H59090003
Const EDITOR_FORMAT_PLAINTEXT = 1
Const EDITOR_FORMAT_HTML = 2
Const vbLFCR = Chr(10) & Chr(13)

Dim SafeItem As Redemption.SafeMailItem
Dim oItem As Object
' Dim oItem As Outlook.MailItem
Dim Utils As Redemption.MAPIUtils
Dim ol As Outlook.Application
Dim Btn As Office.CommandBarButton
Dim ns As Outlook.NameSpace

ol = New Outlook.Application
ns = ol.GetNamespace("MAPI")
ns.Logon()
oItem = ol.CreateItem(OlItemType.olMailItem)
SafeItem = New Redemption.SafeMailItem 'Create an instance of
Redemption.SafeMailItem
SafeItem.Fields(PR_InetMailOverrideFormat) = ENCODING_PREFERENCE Or
ENCODING_MIME Or BODY_ENCODING_TEXT_AND_HTML
SafeItem.Fields(PR_MSG_EDITOR_FORMAT) = EDITOR_FORMAT_HTML
SafeItem.Item = oItem 'set Item property
oItem.To = "in**@infovis.co.uk"
SafeItem.Recipients.ResolveAll()
SafeItem.Subject = "Testing html in Redemption" ' <== Error: Property
Subject not supported
SafeItem.Body = "<HTML>" & vbLFCR & _
"<HEAD>" & vbLFCR & _
"<TITLE>Message</TITLE>" & vbLFCR & _
"<BODY>" & vbLFCR & _
"This is just a test html file to demo html
emailing." & vbLFCR & _
" " & vbLFCR & _
"" & vbLFCR & _
"</BODY>" & vbLFCR & _
"</HTML>"
SafeItem.Send()
Utils = New Redemption.MAPIUtils
Utils.DeliverNow()
Btn = ol.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute()
Utils.Cleanup()

Nov 20 '05 #2

Dmitry Streblechenko

Hi

I am using the latest redemption. I am using the below code in vb.net to
send mail in html format. The problem is that text does not get sent as html and html tags appear as they are in the message like '<HTML>' etc. Any idea what I am doing wrong?

Thanks

Regards
Yahya
Imports Outlook
Imports System.Runtime.InteropServices.Marshal
Imports Redemption

Const PR_InetMailOverrideFormat = &H59020003
Const ENCODING_PREFERENCE = &H20000
Const BODY_ENCODING_TEXT_AND_HTML = &H100000
Const ENCODING_MIME = &H40000
Const PR_MSG_EDITOR_FORMAT = &H59090003
Const EDITOR_FORMAT_PLAINTEXT = 1
Const EDITOR_FORMAT_HTML = 2
Const vbLFCR = Chr(10) & Chr(13)

Dim SafeItem As Redemption.SafeMailItem
Dim oItem As Object
' Dim oItem As Outlook.MailItem
Dim Utils As Redemption.MAPIUtils
Dim ol As Outlook.Application
Dim Btn As Office.CommandBarButton
Dim ns As Outlook.NameSpace

ol = New Outlook.Application
ns = ol.GetNamespace("MAPI")
ns.Logon()
oItem = ol.CreateItem(OlItemType.olMailItem)
SafeItem = New Redemption.SafeMailItem 'Create an instance of
Redemption.SafeMailItem
SafeItem.Fields(PR_InetMailOverrideFormat) = ENCODING_PREFERENCE Or
ENCODING_MIME Or BODY_ENCODING_TEXT_AND_HTML
SafeItem.Fields(PR_MSG_EDITOR_FORMAT) = EDITOR_FORMAT_HTML
SafeItem.Item = oItem 'set Item property
oItem.To = "in**@infovis.co.uk"
SafeItem.Recipients.ResolveAll()
SafeItem.Subject = "Testing html in Redemption" ' <== Error: Property
Subject not supported
SafeItem.Body = "<HTML>" & vbLFCR & _
"<HEAD>" & vbLFCR & _
"<TITLE>Message</TITLE>" & vbLFCR & _
"<BODY>" & vbLFCR & _
"This is just a test html file to demo html
emailing." & vbLFCR & _
" " & vbLFCR & _
"" & vbLFCR & _
"</BODY>" & vbLFCR & _
"</HTML>"
SafeItem.Send()
Utils = New Redemption.MAPIUtils
Utils.DeliverNow()
Btn = ol.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute()
Utils.Cleanup()

Nov 20 '05 #3

John

Tried but vs.net ide says it is readonly.

Regards

"Dmitry Streblechenko" <dm****@dimastr.com> wrote in message
news:uB**************@TK2MSFTNGP09.phx.gbl...

You need to set the HTMLBody property rather than Body.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"John" <jo**@nospam.infovis.co.uk> wrote in message
news:Om**************@TK2MSFTNGP11.phx.gbl...
Hi

I am using the latest redemption. I am using the below code in vb.net to
send mail in html format. The problem is that text does not get sent as

html
and html tags appear as they are in the message like '<HTML>' etc. Any

idea
what I am doing wrong?

Thanks

Regards
Yahya
Imports Outlook
Imports System.Runtime.InteropServices.Marshal
Imports Redemption

Const PR_InetMailOverrideFormat = &H59020003
Const ENCODING_PREFERENCE = &H20000
Const BODY_ENCODING_TEXT_AND_HTML = &H100000
Const ENCODING_MIME = &H40000
Const PR_MSG_EDITOR_FORMAT = &H59090003
Const EDITOR_FORMAT_PLAINTEXT = 1
Const EDITOR_FORMAT_HTML = 2
Const vbLFCR = Chr(10) & Chr(13)

Dim SafeItem As Redemption.SafeMailItem
Dim oItem As Object
' Dim oItem As Outlook.MailItem
Dim Utils As Redemption.MAPIUtils
Dim ol As Outlook.Application
Dim Btn As Office.CommandBarButton
Dim ns As Outlook.NameSpace

ol = New Outlook.Application
ns = ol.GetNamespace("MAPI")
ns.Logon()
oItem = ol.CreateItem(OlItemType.olMailItem)
SafeItem = New Redemption.SafeMailItem 'Create an instance of
Redemption.SafeMailItem
SafeItem.Fields(PR_InetMailOverrideFormat) = ENCODING_PREFERENCE Or
ENCODING_MIME Or BODY_ENCODING_TEXT_AND_HTML
SafeItem.Fields(PR_MSG_EDITOR_FORMAT) = EDITOR_FORMAT_HTML
SafeItem.Item = oItem 'set Item property
oItem.To = "in**@infovis.co.uk"
SafeItem.Recipients.ResolveAll()
SafeItem.Subject = "Testing html in Redemption" ' <== Error: Property
Subject not supported
SafeItem.Body = "<HTML>" & vbLFCR & _
"<HEAD>" & vbLFCR & _
"<TITLE>Message</TITLE>" & vbLFCR & _
"<BODY>" & vbLFCR & _
"This is just a test html file to demo html
emailing." & vbLFCR & _
" " & vbLFCR & _
"" & vbLFCR & _
"</BODY>" & vbLFCR & _
"</HTML>"
SafeItem.Send()
Utils = New Redemption.MAPIUtils
Utils.DeliverNow()
Btn = ol.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute()
Utils.Cleanup()

Nov 20 '05 #4

John

Here is the definition (readonly) I can see in vs.net Object Browser of
htmlbody;

Public Overridable ReadOnly Property HTMLBody() As String
Member of: Redemption.SafeMailItem

and here is how body is defined;

Public Overridable Property Body() As String
Member of: Redemption.SafeMailItem

"Dmitry Streblechenko" <dm****@dimastr.com> wrote in message
news:uB**************@TK2MSFTNGP09.phx.gbl...

You need to set the HTMLBody property rather than Body.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"John" <jo**@nospam.infovis.co.uk> wrote in message
news:Om**************@TK2MSFTNGP11.phx.gbl...
Hi

I am using the latest redemption. I am using the below code in vb.net to
send mail in html format. The problem is that text does not get sent as

html
and html tags appear as they are in the message like '<HTML>' etc. Any

idea
what I am doing wrong?

Thanks

Regards
Yahya
Imports Outlook
Imports System.Runtime.InteropServices.Marshal
Imports Redemption

Const PR_InetMailOverrideFormat = &H59020003
Const ENCODING_PREFERENCE = &H20000
Const BODY_ENCODING_TEXT_AND_HTML = &H100000
Const ENCODING_MIME = &H40000
Const PR_MSG_EDITOR_FORMAT = &H59090003
Const EDITOR_FORMAT_PLAINTEXT = 1
Const EDITOR_FORMAT_HTML = 2
Const vbLFCR = Chr(10) & Chr(13)

Dim SafeItem As Redemption.SafeMailItem
Dim oItem As Object
' Dim oItem As Outlook.MailItem
Dim Utils As Redemption.MAPIUtils
Dim ol As Outlook.Application
Dim Btn As Office.CommandBarButton
Dim ns As Outlook.NameSpace

ol = New Outlook.Application
ns = ol.GetNamespace("MAPI")
ns.Logon()
oItem = ol.CreateItem(OlItemType.olMailItem)
SafeItem = New Redemption.SafeMailItem 'Create an instance of
Redemption.SafeMailItem
SafeItem.Fields(PR_InetMailOverrideFormat) = ENCODING_PREFERENCE Or
ENCODING_MIME Or BODY_ENCODING_TEXT_AND_HTML
SafeItem.Fields(PR_MSG_EDITOR_FORMAT) = EDITOR_FORMAT_HTML
SafeItem.Item = oItem 'set Item property
oItem.To = "in**@infovis.co.uk"
SafeItem.Recipients.ResolveAll()
SafeItem.Subject = "Testing html in Redemption" ' <== Error: Property
Subject not supported
SafeItem.Body = "<HTML>" & vbLFCR & _
"<HEAD>" & vbLFCR & _
"<TITLE>Message</TITLE>" & vbLFCR & _
"<BODY>" & vbLFCR & _
"This is just a test html file to demo html
emailing." & vbLFCR & _
" " & vbLFCR & _
"" & vbLFCR & _
"</BODY>" & vbLFCR & _
"</HTML>"
SafeItem.Send()
Utils = New Redemption.MAPIUtils
Utils.DeliverNow()
Btn = ol.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute()
Utils.Cleanup()

Nov 20 '05 #5

John

I am getting this (below) in tasklist and project does not build when using
htmlbody.

C:\...\Form1.vb(116): Property 'HTMLBody' is 'ReadOnly'.

"Dmitry Streblechenko" <dm****@dimastr.com> wrote in message
news:uB**************@TK2MSFTNGP09.phx.gbl...

You need to set the HTMLBody property rather than Body.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"John" <jo**@nospam.infovis.co.uk> wrote in message
news:Om**************@TK2MSFTNGP11.phx.gbl...
Hi

I am using the latest redemption. I am using the below code in vb.net to
send mail in html format. The problem is that text does not get sent as

html
and html tags appear as they are in the message like '<HTML>' etc. Any

idea
what I am doing wrong?

Thanks

Regards
Yahya
Imports Outlook
Imports System.Runtime.InteropServices.Marshal
Imports Redemption

Const PR_InetMailOverrideFormat = &H59020003
Const ENCODING_PREFERENCE = &H20000
Const BODY_ENCODING_TEXT_AND_HTML = &H100000
Const ENCODING_MIME = &H40000
Const PR_MSG_EDITOR_FORMAT = &H59090003
Const EDITOR_FORMAT_PLAINTEXT = 1
Const EDITOR_FORMAT_HTML = 2
Const vbLFCR = Chr(10) & Chr(13)

Dim SafeItem As Redemption.SafeMailItem
Dim oItem As Object
' Dim oItem As Outlook.MailItem
Dim Utils As Redemption.MAPIUtils
Dim ol As Outlook.Application
Dim Btn As Office.CommandBarButton
Dim ns As Outlook.NameSpace

ol = New Outlook.Application
ns = ol.GetNamespace("MAPI")
ns.Logon()
oItem = ol.CreateItem(OlItemType.olMailItem)
SafeItem = New Redemption.SafeMailItem 'Create an instance of
Redemption.SafeMailItem
SafeItem.Fields(PR_InetMailOverrideFormat) = ENCODING_PREFERENCE Or
ENCODING_MIME Or BODY_ENCODING_TEXT_AND_HTML
SafeItem.Fields(PR_MSG_EDITOR_FORMAT) = EDITOR_FORMAT_HTML
SafeItem.Item = oItem 'set Item property
oItem.To = "in**@infovis.co.uk"
SafeItem.Recipients.ResolveAll()
SafeItem.Subject = "Testing html in Redemption" ' <== Error: Property
Subject not supported
SafeItem.Body = "<HTML>" & vbLFCR & _
"<HEAD>" & vbLFCR & _
"<TITLE>Message</TITLE>" & vbLFCR & _
"<BODY>" & vbLFCR & _
"This is just a test html file to demo html
emailing." & vbLFCR & _
" " & vbLFCR & _
"" & vbLFCR & _
"</BODY>" & vbLFCR & _
"</HTML>"
SafeItem.Send()
Utils = New Redemption.MAPIUtils
Utils.DeliverNow()
Btn = ol.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute()
Utils.Cleanup()

Nov 20 '05 #6

John

Hi

A little more info. It says v3.3.0.282 on the dll properties but when I add
it into vs under COM references, the interop file (Interop.Redemption.dll)
says v3.2.

Thanks

Regards
"Dmitry Streblechenko" <dm****@dimastr.com> wrote in message
news:uB**************@TK2MSFTNGP09.phx.gbl...

You need to set the HTMLBody property rather than Body.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"John" <jo**@nospam.infovis.co.uk> wrote in message
news:Om**************@TK2MSFTNGP11.phx.gbl...
Hi

I am using the latest redemption. I am using the below code in vb.net to
send mail in html format. The problem is that text does not get sent as

html
and html tags appear as they are in the message like '<HTML>' etc. Any

idea
what I am doing wrong?

Thanks

Regards
Yahya
Imports Outlook
Imports System.Runtime.InteropServices.Marshal
Imports Redemption

Const PR_InetMailOverrideFormat = &H59020003
Const ENCODING_PREFERENCE = &H20000
Const BODY_ENCODING_TEXT_AND_HTML = &H100000
Const ENCODING_MIME = &H40000
Const PR_MSG_EDITOR_FORMAT = &H59090003
Const EDITOR_FORMAT_PLAINTEXT = 1
Const EDITOR_FORMAT_HTML = 2
Const vbLFCR = Chr(10) & Chr(13)

Dim SafeItem As Redemption.SafeMailItem
Dim oItem As Object
' Dim oItem As Outlook.MailItem
Dim Utils As Redemption.MAPIUtils
Dim ol As Outlook.Application
Dim Btn As Office.CommandBarButton
Dim ns As Outlook.NameSpace

ol = New Outlook.Application
ns = ol.GetNamespace("MAPI")
ns.Logon()
oItem = ol.CreateItem(OlItemType.olMailItem)
SafeItem = New Redemption.SafeMailItem 'Create an instance of
Redemption.SafeMailItem
SafeItem.Fields(PR_InetMailOverrideFormat) = ENCODING_PREFERENCE Or
ENCODING_MIME Or BODY_ENCODING_TEXT_AND_HTML
SafeItem.Fields(PR_MSG_EDITOR_FORMAT) = EDITOR_FORMAT_HTML
SafeItem.Item = oItem 'set Item property
oItem.To = "in**@infovis.co.uk"
SafeItem.Recipients.ResolveAll()
SafeItem.Subject = "Testing html in Redemption" ' <== Error: Property
Subject not supported
SafeItem.Body = "<HTML>" & vbLFCR & _
"<HEAD>" & vbLFCR & _
"<TITLE>Message</TITLE>" & vbLFCR & _
"<BODY>" & vbLFCR & _
"This is just a test html file to demo html
emailing." & vbLFCR & _
" " & vbLFCR & _
"" & vbLFCR & _
"</BODY>" & vbLFCR & _
"</HTML>"
SafeItem.Send()
Utils = New Redemption.MAPIUtils
Utils.DeliverNow()
Btn = ol.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute()
Utils.Cleanup()

Nov 20 '05 #7

Sue Mosher [MVP]

One approach would be to set the MailItem.HTMLBody and .Subject, then save the item and set your SafeMailItem. Then you can add the recipients.
--
Sue Mosher, Outlook MVP
Outlook and Exchange solutions at http://www.slipstick.com
Author of
Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"John" <jo**@nospam.infovis.co.uk> wrote in message news:Og**************@TK2MSFTNGP11.phx.gbl...

Tried but vs.net ide says it is readonly.

Regards

"Dmitry Streblechenko" <dm****@dimastr.com> wrote in message
news:uB**************@TK2MSFTNGP09.phx.gbl...
You need to set the HTMLBody property rather than Body.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"John" <jo**@nospam.infovis.co.uk> wrote in message
news:Om**************@TK2MSFTNGP11.phx.gbl...
Hi

I am using the latest redemption. I am using the below code in vb.net to
send mail in html format. The problem is that text does not get sent as

html
and html tags appear as they are in the message like '<HTML>' etc. Any

idea
what I am doing wrong?

Thanks

Regards
Yahya
Imports Outlook
Imports System.Runtime.InteropServices.Marshal
Imports Redemption

Const PR_InetMailOverrideFormat = &H59020003
Const ENCODING_PREFERENCE = &H20000
Const BODY_ENCODING_TEXT_AND_HTML = &H100000
Const ENCODING_MIME = &H40000
Const PR_MSG_EDITOR_FORMAT = &H59090003
Const EDITOR_FORMAT_PLAINTEXT = 1
Const EDITOR_FORMAT_HTML = 2
Const vbLFCR = Chr(10) & Chr(13)

Dim SafeItem As Redemption.SafeMailItem
Dim oItem As Object
' Dim oItem As Outlook.MailItem
Dim Utils As Redemption.MAPIUtils
Dim ol As Outlook.Application
Dim Btn As Office.CommandBarButton
Dim ns As Outlook.NameSpace

ol = New Outlook.Application
ns = ol.GetNamespace("MAPI")
ns.Logon()
oItem = ol.CreateItem(OlItemType.olMailItem)
SafeItem = New Redemption.SafeMailItem 'Create an instance of
Redemption.SafeMailItem
SafeItem.Fields(PR_InetMailOverrideFormat) = ENCODING_PREFERENCE Or
ENCODING_MIME Or BODY_ENCODING_TEXT_AND_HTML
SafeItem.Fields(PR_MSG_EDITOR_FORMAT) = EDITOR_FORMAT_HTML
SafeItem.Item = oItem 'set Item property
oItem.To = "in**@infovis.co.uk"
SafeItem.Recipients.ResolveAll()
SafeItem.Subject = "Testing html in Redemption" ' <== Error: Property
Subject not supported
SafeItem.Body = "<HTML>" & vbLFCR & _
"<HEAD>" & vbLFCR & _
"<TITLE>Message</TITLE>" & vbLFCR & _
"<BODY>" & vbLFCR & _
"This is just a test html file to demo html
emailing." & vbLFCR & _
" " & vbLFCR & _
"" & vbLFCR & _
"</BODY>" & vbLFCR & _
"</HTML>"
SafeItem.Send()
Utils = New Redemption.MAPIUtils
Utils.DeliverNow()
Btn = ol.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute()
Utils.Cleanup()

Nov 20 '05 #8

Dmitry Streblechenko

Since only reading HTMLBody property is blocked by the security patch,
that's what Redemption implements. Setting the property does not cause the
security popup, so you can set it on the original OOM object assigned to the
Item property. Or define SafeMailItem as a generic Object to avoid the
compiler errors, at run-time Redenption will forward all calls to the
properties and methods that it does not implement to the object assigned to
the Item property.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"John" <jo**@nospam.infovis.co.uk> wrote in message
news:%2****************@TK2MSFTNGP10.phx.gbl...

Hi

A little more info. It says v3.3.0.282 on the dll properties but when I add it into vs under COM references, the interop file (Interop.Redemption.dll)
says v3.2.

Thanks

Regards
"Dmitry Streblechenko" <dm****@dimastr.com> wrote in message
news:uB**************@TK2MSFTNGP09.phx.gbl...
You need to set the HTMLBody property rather than Body.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"John" <jo**@nospam.infovis.co.uk> wrote in message
news:Om**************@TK2MSFTNGP11.phx.gbl...
Hi

I am using the latest redemption. I am using the below code in vb.net to send mail in html format. The problem is that text does not get sent
as html
and html tags appear as they are in the message like '<HTML>' etc. Any

idea
what I am doing wrong?

Thanks

Regards
Yahya
Imports Outlook
Imports System.Runtime.InteropServices.Marshal
Imports Redemption

Const PR_InetMailOverrideFormat = &H59020003
Const ENCODING_PREFERENCE = &H20000
Const BODY_ENCODING_TEXT_AND_HTML = &H100000
Const ENCODING_MIME = &H40000
Const PR_MSG_EDITOR_FORMAT = &H59090003
Const EDITOR_FORMAT_PLAINTEXT = 1
Const EDITOR_FORMAT_HTML = 2
Const vbLFCR = Chr(10) & Chr(13)

Dim SafeItem As Redemption.SafeMailItem
Dim oItem As Object
' Dim oItem As Outlook.MailItem
Dim Utils As Redemption.MAPIUtils
Dim ol As Outlook.Application
Dim Btn As Office.CommandBarButton
Dim ns As Outlook.NameSpace

ol = New Outlook.Application
ns = ol.GetNamespace("MAPI")
ns.Logon()
oItem = ol.CreateItem(OlItemType.olMailItem)
SafeItem = New Redemption.SafeMailItem 'Create an instance of
Redemption.SafeMailItem
SafeItem.Fields(PR_InetMailOverrideFormat) = ENCODING_PREFERENCE Or
ENCODING_MIME Or BODY_ENCODING_TEXT_AND_HTML
SafeItem.Fields(PR_MSG_EDITOR_FORMAT) = EDITOR_FORMAT_HTML
SafeItem.Item = oItem 'set Item property
oItem.To = "in**@infovis.co.uk"
SafeItem.Recipients.ResolveAll()
SafeItem.Subject = "Testing html in Redemption" ' <== Error: Property
Subject not supported
SafeItem.Body = "<HTML>" & vbLFCR & _
"<HEAD>" & vbLFCR & _
"<TITLE>Message</TITLE>" & vbLFCR & _
"<BODY>" & vbLFCR & _
"This is just a test html file to demo html
emailing." & vbLFCR & _
" " & vbLFCR & _
"" & vbLFCR & _
"</BODY>" & vbLFCR & _
"</HTML>"
SafeItem.Send()
Utils = New Redemption.MAPIUtils
Utils.DeliverNow()
Btn = ol.ActiveExplorer.CommandBars.FindControl(1, 5488)
Btn.Execute()
Utils.Cleanup()

Nov 20 '05 #9

Similar topics