Hallo zusammen,
ich habe ein Problem mit dem Content-Transfer-Encoding für Datei-Anhänge mit dem MIME-Type text/plain. Ich würde diese gerne "base64"-kodieren. Allerdings macht der MTA (Mail Transfer Agent) mir anscheinend einen Strich durch die Rechnung.
Ich erstelle die Mail über die CDO.Message-API.
Set email = New CDO.message
' -----------------------------------------------
' Daten ins Mailobjekt schreiben
' -----------------------------------------------
email.From = p_mailFrom
email.ReplyTo = p_mailReplyTo
email.To = p_mailTo
email.BCC = p_mailBcc + ";" + p_mailFrom
email.Subject = p_mailSubject
email.TextBody = p_mailText
For i = 0 To UBound(p_mailAttach)
If p_mailAttach(i) <> "" Then
Dim attachment As IBodyPart
Set attachment = email.AddAttachment(p_mailAttach(i))
attachment.ContentTransferEncoding = cdoBase64
log.debugg ("Datei '" + p_mailAttach(i) + "' an Mail angehängt")
End If
Next i
Die Anhänge füge ich hinzu und setze direkt das entsprechende Flag fürs Encoding. Schaue ich mir anschließend allerdings die Mail an, so finde ich dort das Encoding "quoted-printable" für den Anhang.
Habt ihr eine Ahnung / einen Tipp wie ich das erzwingen kann, ohne weitere Kenntnis über den MTA zu haben?
LG,
Maik |