ReplyTo mit Standard-Mail-Client

[mytbo]

Zitat von NLan:

Aber wie bekommt man denn da ein Attachment (z.B. eine PDF-Datei) ran?

Eine Möglichkeit wäre:

Delphi-Quellcode:

var
  idMessage: TIdMessage;
  idMessageBuilder: TIdMessageBuilderHTML;
begin
  idMessage := TIdMessage.Create(Nil);
  try
    idMessage.Subject := 'Party invitation';
    idMessage.From.Text := 'Peter Pan <[e-mail]>';
    idMessage.Recipients.Add.Text := 'Elizabeth Swann <[e-mail]>';
    idMessage.CCList.Add.Text := 'Jack Sparrow <[e-mail]>';
    idMessageBuilder := TIdMessageBuilderHTML.Create;
    try
      idMessageBuilder.Html.Text := 'Let''s have a little bit of fun.';
      idMessageBuilder.Attachments.Add(MakePath([Executable.ProgramFilePath, 'InvitationDoc.pdf']));
      idMessageBuilder.FillMessage(idMessage);
    finally
      idMessageBuilder.Free;
    end;

    idMessage.SaveToFile(MakePath([Executable.ProgramFilePath, 'EMail.txt']));
  finally
    idMessage.Free;
  end;
end;

Bis bald...
Thomas