Send EMail in RTF Fotmat

[Phil Stanton]

This is the guts of a bit of code to send an email message using Access 2000

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem
'Set the recipient for the new email
.BCC = MailToStg ' Blind Copy
Recipient
'Set the recipient for a copy
.CC = ""
'Set the subject
.Subject = Subject ' Subject
'The content of the document is used as the body for the email
.Body = rtf.RTFtext ' Message
' .HTMLBody = rtf.RTFtext ************************
.Send
End With


The RTFText is "pulled" from Stephen Lebans RTF2 Control. If I use the .Body
= rtf.RTFtext it works OK, other than the fact that the message is in Plain
Text (Font is Courier)

If I use what appears to be logical i.e. .HTMLBody = rtf.RTFtext I get
the output as

{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 MS
Sans Serif;}{\f1\fnil\fcharset0 Comic Sans MS;}{\f2\fnil\fcharset0 Arial
Rounded MT Bold;}{\f3\fnil\fcharset0 Batang;}} {\colortbl
;\red0\green0\blue0;\red255\green0\blue0;\red128\green0\blue0;\red0\green0\blue255;\red128\green128\blue128;}
\viewkind4\uc1\pard\cf1\f0\fs16 T\cf2\f1\fs24 his is a test... \cf3 This is
another test\cf2\par \par \cf4\b\f2\fs16 This is a test again in a different
font\par \par \cf5\f3\fs32 dvfusvhdjsvnnx ckzxlkcj nl\cf4\f2\fs16\par
\cf2\b0\f1\fs24\par \cf1\f0\fs16\par }
with the font in Times New Roman.

Can anyone suggest how to get the message to display as per the information
in the original RTF Control

Thanks

Phil

 

[Ken Slovak - [MVP - Outlook]]

See http://www.outlookcode.com/article.aspx?id=31

 

[Phil Stanton]

Thanks Ken. Trouble is I'm too poor and too old fashioned to use anything
newer than Office 2000.
Is ther a way of using Copy & Paste as an alternative (Works manually, but I
can't find a way to use code.

Phil

 

[Ken Slovak - [MVP - Outlook]]

Copy and paste would just give you what you have now. It wouldn't help. What
those links show is how it should be done for it to work.