Indy Smtp: Empfänger mit MAC sehen Attachment nicht

[Memo]

Zitat von easywk:

Synapse sieht ja erstmal ganz gut aus. Nur irgendwie ist mir völlig unklar, wie ich da Attachments dran hängen kann....

Mal aus einem Programm von mir rauskopiert:

Delphi-Quellcode:

var
 fPart: TMimepart;
 fmime: TMimemess;

//Messageboddy anlegen
          fPart := fmime.AddPartMultipart('mixed', nil);


//beliebig viele Anhänge, Dateien durch ; getrennt
          if Anhang <> '' then
          begin
            if Anhang[length(anhang)] = ';' then
              Delete(Anhang, Length(Anhang), 1);
            repeat
              AnhangDummy := ZerlegeAnhang(); //kopiert einen Anhang heraus
              if FileExists(AnhangDummy) then
                fmime.AddPartBinaryFromFile(AnhangDummy, fpart)
              else
              begin
                ErrorMsg := 'Mailanhang nicht gefunden! Versand abgebrochen!';
                Exit;
              end;
            until Anhang = '';
          end;

Schade nur, dass Synapse nicht auf Unicode umgestellt wurde.