[twsocket] Sending mail with SMTPClient including images

[Jeff Cook]

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&amp;page=1&amp;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