E-Mail senden

[Sir Rufo]

Indy 10 hat da schon was vorbereitet:

Delphi-Quellcode:

uses
  IdMessageBuilder, IdMessage;

procedure TForm1.Button2Click( Sender: TObject );
var
  b: TIdMessageBuilderRtf;
  m: TIdMessage;
  s: TStringStream;
begin
  s := TSTringStream.Create;
  try

    RichEdit1.Lines.SaveToStream( s );

    m := TIdMessage.Create( nil );
    try
      b := TIdMessageBuilderRtf.Create;
      try
        s.Position := 0;
        b.Rtf.LoadFromStream( s );
        b.FillMessage( m );
      finally
        b.Free;
      end;

      // Wir zeigen die Mail einfach nur mal an
      s.Clear;
      m.SaveToStream( s );

    finally
      m.Free;
    end;

    ShowMessage( s.DataString );

  finally
    s.Free;
  end;
end;