Hi Currently I have a program that works 99% OK ;-) I compose a rich text email in BodyText: TJvRichEdit; and I send it with code like this:- if BodyText.PlainText then sl.Text := BodyText.Text else Common.JvRichEditToHtml.ConvertToHtmlStrings(BodyText, sl);
where sl is a TStringList. Then (code that was straight out of an example) :- procedure TSMTPMailMsgForm.SmtpClientGetData(Sender: TObject; LineNum: Integer; MsgLine: Pointer; MaxLen: Integer; var More: Boolean); var Len: Integer; begin if LineNum > sl.Count then More := FALSE else begin Len := Length(sl.Strings[LineNum - 1]); { Truncate the line if too long (should wrap to next line) } if Len >= MaxLen then StrPCopy(MsgLine, Copy(sl.Strings[LineNum - 1], 1, MaxLen - 1)) else StrPCopy(MsgLine, sl.Strings[LineNum - 1]); end; end; Now this works and we get nicely formatted emails sent out. EXCEPT when the user puts an Image into the BodyText (TJvRichEdit). In this case the image is simply dropped. I'm hoping that there is a simple solution that doesn't involve rewriting too much ! -- Jeff Cook "The Cooks" Oasis The Cooks Ltd Phone: +682 28 213 Skype: jeffraro www.cookislandsoasis.com <http://www.cookislandsoasis.com/> <http://fta.firetrust.com/index.cgi?id=jeffraro&page=1&campaign= aspect_email> I use and recommend MailWasher Pro to keep my mailbox clear of SPAM -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be