Q-Encoding

Download Chilkat Email ActiveX

The Chilkat Email component automatically "Q" and "B" encodes header fields as necessary. However, the email object provides utility methods for encoding manually, if needed for some unforeseen reason.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set email = CreateObject("Chilkat.Email2")

qEncoded = email.QEncodeBytes("magnà el véder","iso-8859-1")
outFile.WriteLine(qEncoded)

qEncoded = email.QEncodeBytes("magnà el véder","utf-8")
outFile.WriteLine(qEncoded)

'  The output of this program is:
'  =?iso-8859-1?Q?magn=E0_el_v=E9der?=
'  =?utf-8?Q?magn=C3=A0_el_v=C3=A9der?=

outFile.Close