Anhänge mit CreateMIMEEntity in Body einbetten

[dataspider]

Hallo,

ich habe jetzt erfolgreich den Mailversand mit Delphi über OLE von Richtext auf MIME umgestellt.
Leider sind die angehängten Dateinen nicht so schön im Body eigebettet wie mit:

RichItem.EmbedObject(EMBED_ATTACHMENT...

Ich habe auch versucht, RichTextItem und MIMEEntity zu mischen. Das macht er aber nicht.

Mit dieser Routine werden Anhänge zur Mail hinzugefügt:

Code

...
Var
  MimeEntity: IMIMEEntity;
  MimeSTream: INotesStream;
  MimeHeader: IMIMEHeader;
  MimeChild: IMIMEEntity;
  AHeader: IMIMEHeader;
...
procedure AttacheFile(FileName: string);
Var
  AShortName: string;
begin
  AShortName := ExtractFileName(FileName);
  MimeSTream.Open(FileName, 'binary');
  MimeChild := MimeEntity.CreateChildEntity(nil);
  AHeader := MimeChild.CreateHeader('Content-Disposition');
  AHeader.SetHeaderValAndParams('attachment; filename=' + AShortName);
  AHeader := MimeChild.CreateHeader('Content-Id');
  AHeader.SetHeaderVal(AShortName);
  MimeChild.SetContentFromBytes(MimeSTream, 'application/pdf', ENC_QUOTED_PRINTABLE);
end;

Wie kann ich jetzt einen Link auf den Anhang in den Mailtext einfügen?

Danke, Frank

[m3]

Wozu willst Du einen Link auf den Anhang einfügen? Der User sieht den Anhang eh, wenn er die Mail aufmacht und kann dann drauf klicken.

[dataspider]

Wozu willst Du einen Link auf den Anhang einfügen? Der User sieht den Anhang eh, wenn er die Mail aufmacht und kann dann drauf klicken.

Hi,

das ist richtig. Ich habe auch gestern nicht Alles testen können.
Ich habe den Unterschied nur beim Lesen der Mail Online (Strato WebMail) gesehen.
Da wurde bisher am Ende des Textes ein Link zum Dokument erzeugt. Damit konnte ich dieses öffnen oder herunterladen.
Dieser Link am Ende des Textes ist nicht mehr da. Ich habe es auch nicht geschafft, die Datei im Browser zu öffnen.
Wenn ich die Mail dann mit Outlook abhole, kann ich den Anhang öffnen.
Ich habe nur Angst, dass Benutzer von Online Mail Accounts auch Probleme haben könnten.

Danke an dieser Stelle für deine Antwort.

[EDIT]Ich denke, es hat was mit der Encodierung zu tun. So ist base64 wohl für Binärdateien vorgesehen und nicht quoted printable[/EDIT]

[m3]

[EDIT]Ich denke, es hat was mit der Encodierung zu tun. So ist base64 wohl für Binärdateien vorgesehen und nicht quoted printable[/EDIT]

LOL. Ja, das wäre vorteilhaft.

[dataspider]

Hi,

ich habe das Problem gelöst.
Ich habe nur im Parent - Teil anstatt multipart/mixed multipart/related als Content-Type angegeben.

Damit funktioniert es

Frank