Delphi 2005 - Indy 10 and RTF Mail

Giganews Newsgroups
Subject: Delphi 2005 - Indy 10 and RTF Mail
Posted by:  Jörg Becker (suppo…@fpa-haag.de)
Date: Fri, 4 Nov 2005

Hi,

I  can send plain text mails by using the TIdMessage Komponent and the
IdSMTP in such way:

[code]
procedure TFrmMain.mailblatt_btn_sendmailClick(Sender: TObject);
var Email: TIdMessage;
begin
  Email := TIdMessage.Create(nil);

  Email.Recipients.Clear;
  Email.Recipients.Add.Address := 'te…@text.xy';
  Email.from.Text := 'Test aus WPText(From Text)';
  Email.From.Name := 'J. Becker (From Name)';
  Email.From.Address := 'te…@text.xy';
  Email.Subject := 'WP-Tool Test';
  email.Date := Now;
  email.Body.Text := mailblatt.Text  ;
  smtp.Connect;
  try
    smtp.Send(Email);
    smtp.Disconnect;
//    result := 'y';
  except
    smtp.Disconnect;
//    result := 'n';
  end;

end;
[/code]

But how can I send Rich Text incl. Pictures? (Not as Attachement!)

thx in Adv

brgds

JB

Replies