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
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