This sample will display any e-mail (even encoded in UTF-8) in Western-Europe codepage (iso-8859-1, codepage number 1252).

The sample gets e-mail from POP3 server but you can use the same approach for IMAP4 and for messages taken from disk or database.

To send UTF-8 email, see Sending e-mails (SMTP)/International e-mail topic.

POP3.CodepageMode and POP3.Codepage are key properties of this sample. These properties are also available for IMAP4 and Message objects.

Note: If you change codepage of HTML message, also remove (or replace with new value) CHARSET setting found in META tag of HTML HEAD section. For example, you can remove META tag entirely using MessageCensor component (free product from iForum, LLC).

Dim objPOP3, objMsg ' Create POP3 object Set objPOP3 = CreateObject("MailBee.POP3") ' Unlock POP3 object objPOP3.LicenseKey = "put your license key here" ' Set POP3 server name objPOP3.ServerName = "mail.server.com" ' Set user credentials objPOP3.UserName = "username" objPOP3.Password = "password" ' UTF8 mail will be converted to codepage specified ' in Codepage property objPOP3.CodepageMode = 2 ' In most cases, you do not need to set Codepage property. ' However, you can always explicitly specify target ' codepage as it is done here. objPOP3.Codepage = 1252 ' Download a message Set objMsg = objPOP3.RetrieveSingleMessage(1) If Not objPOP3.IsError Then ' Display message body MsgBox objMsg.BodyText End If ' Disconnect if needed If objPOP3.Connected Then objPOP3.Disconnect End If

<% Dim objPOP3, objMsg ' Create POP3 object Set objPOP3 = Server.CreateObject("MailBee.POP3") ' Unlock POP3 object objPOP3.LicenseKey = "put your license key here" ' Set POP3 server name objPOP3.ServerName = "mail.server.com" ' Set user credentials objPOP3.UserName = "username" objPOP3.Password = "password" ' UTF8 mail will be converted to codepage specified ' in Codepage property objPOP3.CodepageMode = 2 ' In most cases, you do not need to set Codepage property. ' However, you can always explicitly specify target ' codepage as it is done here. objPOP3.Codepage = 1252 ' Download a message Set objMsg = objPOP3.RetrieveSingleMessage(1) If Not objPOP3.IsError Then ' Display message body Response.Write objMsg.BodyText End If ' Disconnect if needed If objPOP3.Connected Then objPOP3.Disconnect End If %>