Send EMail in RTF Fotmat

  • Thread starter Thread starter Phil Stanton
  • Start date Start date
P

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
 
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
 
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.
 
Back
Top