Hallo Stefan,
vielen Dank für den Hinweis. Ich habe da ein wenig mit rum gespielt, und bin hierbei gelandet:
Code: Alles auswählen
oSmtp := SMTPClient():new(cSmtpServer, 587, , oLog, 2)
...
FOR i := 1 TO Len(aAttachments)
cDateiname := SubStr(aAttachments[i], RAt("\", aAttachments[i]) + 1) // Den reinen Dateinamen aus dem vollständigen Pfad extrahieren
oContent := MimeMessage():createFromFile(aAttachments[i])
oContent:addHeader("Content-Disposition", ;
'attachment; filename="' + cDateiname + '"')
oMail:attachMixed(oContent)
// oMail:addheader("Content-Disposition", 'attachment; filename="' + aAttachments[i] + '"') // Ursprüngliche Version, die aber kein Content-Disposition setzt
NEXT
Das scheint erst einmal sauber zu funktionieren. Auch wenn ich die eigentliche Mail nicht wie im PDR mit MimeMessage erstelle sondern mit SMTPClient(). Und dort dann dennoch den Anhang als MimeMessage rein hänge.
Jan