HTML Formating simple text mail received from other/Linux/Unix mail clients

D

David

Hello,
I am using outlook2003 and i am interacting with non outlook users that most
of them used to plain text. After short discussion thread the email body
become messy with lots of >>>> etc.
I want to be able to open such mail and convert it to something more
resonable to read by my eyes.

My approach was to convert the message to HTMLBody format, process the body
content and add HTML tags to it (fonts, color, indentetion etc) then save
the item.

It looks like these HTML tags are added as a simple text and does not affect
how the message is displayed.

Any pointer how to solve this or take another approach?
I am trying to stay with HTML and avoide RTF as some of the receipients
could still view html format.
Thanks in advance
David
 
S

Sue Mosher [MVP-Outlook]

Did you mean to show a code snippet to illustrate what you've been working
on?
 
D

David

this is work in progress and represents various trials to understand what is
going on and NOT a resonable code to work with. It just shows you what i am
trying to do. so with this here is the current code:

Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.ActiveInspector.CurrentItem
MyItem.BodyFormat = olFormatHTML
TempBody = Replace(MyItem.Body, ">", "===>", 1, -1, vbTextCompare)
MyItem.Body = TempBody
TempBody = Replace(MyItem.Body, "[", "[[", 1, -1, vbTextCompare)
MyItem.Body = TempBody
TempBody = Replace(MyItem.Body, "html", "-- XXXXXX - ", 1, -1,
vbTextCompare)
MyItem.Body = "<html><body><font face=""Terminal"" color=""FF0000"">" &
TempBody ' & "</font><body></html>"


david
 
T

Tomski

David said:
this is work in progress and represents various trials to understand
what is going on and NOT a resonable code to work with. It just shows
you what i am trying to do. so with this here is the current code:

Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.ActiveInspector.CurrentItem
MyItem.BodyFormat = olFormatHTML
TempBody = Replace(MyItem.Body, ">", "===>", 1, -1, vbTextCompare)
MyItem.Body = TempBody
TempBody = Replace(MyItem.Body, "[", "[[", 1, -1, vbTextCompare)
MyItem.Body = TempBody
TempBody = Replace(MyItem.Body, "html", "-- XXXXXX - ", 1, -1,
vbTextCompare)
MyItem.Body = "<html><body><font face=""Terminal""
color=""FF0000"">" & TempBody ' & "</font><body></html>"


david
Click to expand...

How about:
MyItem.HtmlBody = "<html><body><font face=""Terminal"" color=""FF0000"">" &
TempBody ' & "</font><body></html>"
 
D

David

yes. thanks. this is correct.
David
Tomski said:
David said:
this is work in progress and represents various trials to understand
what is going on and NOT a resonable code to work with. It just shows
you what i am trying to do. so with this here is the current code:

Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.ActiveInspector.CurrentItem
MyItem.BodyFormat = olFormatHTML
TempBody = Replace(MyItem.Body, ">", "===>", 1, -1, vbTextCompare)
MyItem.Body = TempBody
TempBody = Replace(MyItem.Body, "[", "[[", 1, -1, vbTextCompare)
MyItem.Body = TempBody
TempBody = Replace(MyItem.Body, "html", "-- XXXXXX - ", 1, -1,
vbTextCompare)
MyItem.Body = "<html><body><font face=""Terminal""
color=""FF0000"">" & TempBody ' & "</font><body></html>"


david
Click to expand...

How about:
MyItem.HtmlBody = "<html><body><font face=""Terminal"" color=""FF0000"">" &
TempBody ' & "</font><body></html>"
Click to expand...
 

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

Similar Threads

HTML interpretation in Reporting Services 1
Sending mail from ASP 2
How do you send html msg from Unix to Outlook 6
Strip HTML from Text 2
how to send html formatted mail from SMTP to Outlook? 2
Rich Text vs. HTML (again) 8
Disable HTML format from menu & hyperlink issue 1
Format text from db into HTML text 3

Top