IOS zeigt keine Anhänge bei Email über Indy SMTP

[stalkingwolf]

Moin,

ich habe ein Problem das iPhones (iOS) und das Mailprogramm von Apple keine Anhänge unsere Emails anzeigt welche wir versenden.
Alle anderen Programme wie Outlook (Web,APP, WinProgramm ), Thunderbird, iCloud Web Client, Roundcube usw. zeigen es korrekt an.

Delphi Version ist XE4. IDSMTP ist Rev 1.47 von 1/7/05.

Anbei Auszug aus der Mail

Zitat:

Subject: Mein Betreff
To: [e-mail]
Content-Type: multipart/related; charset=iso-8859-1; boundary="=_sr54kOGtXCFyZm5BRVOO3HDcj3ArDDPn"
MIME-Version: 1.0
Date: Thu, 8 Apr 2021 10:01:37 +0200

This is a multi-part message in MIME format

--=_sr54kOGtXCFyZm5BRVOO3HDcj3ArDDPn
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline

Test

Signatur

--=_sr54kOGtXCFyZm5BRVOO3HDcj3ArDDPn
Content-Type: application/pdf;
name="=?UTF-8?B?QXVmdHJhZ3NiZXN0w6R0aWd1bmdfMjAyMV8wNF8wOF8xMF 8wMV8xNy5wZGY=?="
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="=?UTF-8?B?QXVmdHJhZ3NiZXN0w6R0aWd1bmdfMjAyMV8wNF8wOF8xMF 8wMV8xNy5wZGY=?="
Content-ID: <Auftragsbest?tigung_2021_04_08_10_01_17.pdf>

MIMECODE der Datei

Quellcode:

Code:

if hasAttachments then multipart := 'multipart/related; '
else multipart :='';

IdMessage1.ContentType  := multipart+'text/plain;';
IDMessage1.CharSet      := 'iso-8859-1';
idmessage1.ContentTransferEncoding := 'quoted-printable';
idmessage1.Headers.AddValue('Content-Language','de');
idmessage1.Body.Text        := body;
IdMessage1.From.Name    := SenderName;
IdMessage1.From.Address := SenderEmail;

idAttach := TIdAttachmentFile.Create(idMessage1.MessageParts,filename);
idAttach.ContentTransfer    := 'base64';
idAttach.ContentType        := getMIMETypeFromFilename(filename);
idattach.FileName           := extractfilename(filename);

IdSMTP.Send(IdMessage1);