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:
...
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;
Danke, Frank