Progress of sorts:-

In the FormCreate I added:-

sl := TStringList.Create;

In the FormClose I added:-


In each of the two buttons for sending, I added:-


And I changed the TSmtpTestForm.SmtpClientGetData procedure to point to
sl.Strings instead of MsgMemo.Lines.

This gets the RTF formatting codes into the outward bound mail, but it
is just seen as text when the mail is received, e.g. 

Arial;}{\f1\froman\fcharset0 Times New Roman;}{\f2\fnil\fcharset0 Comic
Sans MS;}{\f3\fnil MS Sans Serif;}}
{\colortbl ;\red0\green0\blue255;\red255\green0\blue0;}
\viewkind4\uc1\pard\sb100\sa100\cf1\lang5129\f0\fs28 Hi All\cf0\f1\fs24
\cf2\f0\fs28 Wind training sessions are starting tomorrow at 6pm\cf1

So ... How do I say that the message is in RTF format? Does it have to
be MIME Encoded?  If so, how?



Jeff Cook
Aspect Systems Ltd
Phone: +64-9-424 5388
Skype: jeffcooknz

> -----Original Message-----
> [mailto:[EMAIL PROTECTED] On Behalf Of Jeff Cook
> Sent: Tuesday, 16 May 2006 10:52 a.m.
> To: twsocket@elists.org
> Subject: [twsocket] SMTP demo and RichText
> Hi
> I'm trying out the MailSnd demo - trying to adapt it to send 
> mail as Rich Text.  
> I've changed the MsgMemo to a TJvRichEdit and have tested by 
> pasting in some rich text - e.g. my sig below is in Comic 
> Sans MS and I can paste this into the message area and retain 
> the font size etc.  
> But when I send the mail to myself, I receive it stripped 
> down to plain text.  I've tried changing the ContentType to 
> HTML but it doesn't help (makes it worse by stripping out the CR/LF's.
> I assume that the problem lies somewhere in procedure 
> TSmtpTestForm.SmtpClientGetData ... but have no idea how to proceed.  
> Is there an easy way?  I have got ScroogeXHTML which converts 
> a subset of RTF to HTML - but I really want to be able to 
> email everything in the RichEdit.
> Jeff
> P.S. Long time user of ICS but first time user of this elist.
> P.P.S.  Not sure how to tell what version I have - the source 
> seems to be dated  2001-05-19 if that helps - can't see a 
> version number anywhere and I am using Delphi 6 Pro.

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.392 / Virus Database: 268.5.6/340 - Release Date:

To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to