Moin !
Danke, der Link war genau der richtige.
Ich habe mir diese Funktion geschrieben, welche mir den Text so kodiert, daß es in einem Header verwendet werden kann:
Code
Function textQEncode(sText As String) As String Const cQEncodingStart = "=?iso-8859-1?Q?" Const cQEncodingEnd = "?=" Const cMaxChar = 95 Static i As Integer Static sArr1(cMaxChar) As String Static sArr2(cMaxChar) As String If i = 0 Then ' Initialize during 1st call For i = 0 To cMaxChar sArr1(i) = Chr$(160 + i) sArr2(i) = "=" & Hex((160 + i)) Next End If ' Sonderfälle für in der Q-Kodierung genutzte Zeichen <= 160 sText = Replace(sText, "=", "=3D") ' Erst die = raus sText = Replace(sText, "_", "=95") ' _ wird später für Leerzeichen genutzt sText = Replace(sText, Chr(32), "_") ' Alle Leerzeichen zu _ sText = Replace(sText, "?", "=3F") ' ? raus ' Benutze Arrays für alle restlichen (8bit) Zeichen textQEncode = cQEncodingStart & Replace(sText, sArr1, sArr2) & cQEncodingEndEnd Function
Aufruf dann mit
Ich hoffe es hilft auch Julgo und einigen anderen hier weiter.
Winke,
Thorsten