ReplyTo mit Standard-Mail-Client

**NLan**

Hallo himitsu

ich habe jetzt mit TIdMessage erfolgreich eine EML-Datei erstellt (auch mit ReplyTo).
Aber wie bekommt man denn da ein Attachment (z.B. eine PDF-Datei) ran?
Vermutlich mit dem IdMessage.MessageParts - ich habe leider kein Beispiel gefunden, wie das geht.
Meine Versuche brachten immer einen "Abstrakten Fehler".
Hast du ein SAMPLE dafür?

Und wie erklärt man ShellExecute dass die EML-Datei nicht nur angezeigt wird, sondern man diese versenden möchte?
Bei mir erscheint der "SENDEN" Button nicht, weder im Windows-Mail noch im GroupWise-Mailclient.

**himitsu**

TIdAttachmentFile.Create(IdMsg.MessageParts, Attachments[idx]).ContentID := ...;

zusammenfalten · markieren

Delphi-Quellcode:

			  IdMsg := TIdMessage.Create(nil);

  try

    IdMsg.Subject := Subject;

    for idx := 0 to Addresses.Count - 1 do

       IdMsg.Recipients.Add.Address := Addresses[idx];

    IdMsg.ContentType := 'multipart/mixed; charset=UTF-8;';

    SL := TStringList.Create;

    try

      SL.Add('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">');

      SL.Add('<meta http-equiv="Content-Type" content="text/html; charset="UTF-8" />');

      SL.Add('<html><head>');

      SL.Add(Format('<title>%s</title>', ['Title']));

      SL.Add('</head><body>');

      SL.Add('<div>' + Replace(BodyText, sLineBreak, '<br />', [rfReplaceAll, rfIgnoreCase]) + '</div>');

      SL.Add('</body></html>');

      with TIdText.Create(IdMsg.MessageParts, SL) do begin

        ContentType := 'text/html';

        CharSet := 'UTF-8';

      end;

      for idx := 0 to Length(Attachments) - 1 do

        with TIdAttachmentFile.Create(IdMsg.MessageParts, Attachments[idx]) do

          ContentID := Format('%d_attach_%s', [idx, ContentIdgenerate]);

    finally

      SL.Free;

    end;

    //Wichtig ist dabei einzig und allein der X-Header (damit es als eine neue, zu sendende EMail verarbeitet wird): X-Unset

    IdMsg.Headers.Add('X-Unsent: 1');

    IdMsg.SaveToFile(fileName);

  finally

    IdMsg.Free;

  end;

  ShellExecute(Self.Handle, nil, PChar(fileName), nil, nil, 0);

k.A. ob man die IDs selber generieren+zuweisen muß.
Kurzfassung des Codes vom Kollegen.
Ich hätte gehofft Indy macht das selber.

**mytbo**

Zitat von NLan:

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

Eine Möglichkeit wäre:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  idMessage: TIdMessage;

  idMessageBuilder: TIdMessageBuilderHTML;

begin

  idMessage := TIdMessage.Create(Nil);

  try

    idMessage.Subject := 'Party invitation';

    idMessage.From.Text := 'Peter Pan <peter@pan.com>';

    idMessage.Recipients.Add.Text := 'Elizabeth Swann <elizabeth@swann.gb>';

    idMessage.CCList.Add.Text := 'Jack Sparrow <jack@sparrow.dm>';

    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

ReplyTo mit Standard-Mail-Client

AW: ReplyTo mit Standard-Mail-Client

AW: ReplyTo mit Standard-Mail-Client

AW: ReplyTo mit Standard-Mail-Client

Stichworte

Forumregeln