Hello,

Can anybody tell me how to send unicode mails using ASP and CDONTS.

Here is what I tried but it will display ??? for special characters in outlook.

I want to send email in lithunian and russian languages.

MY Server is MS 2003 running IIS6


CODE:
=================================

Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.SetLocaleIDs(65001)
objNewMail.From = fname &" ("&email&")"
objNewMail.To = Admin_Email


objNewMail.Subject = "Feedback - " & prj_name
MsgBody = ("<HTML><HEAD> <META HTTP-EQUIV='Content-Type' CONTENT='text/html; charset=utf-8'>")
MsgBody = MsgBody & ("<meta http-equiv='Content-Language' content='lt'></HEAD>")
MsgBody = MsgBody & ("<BODY bgcolor=#86AEFF>")
MsgBody = MsgBody & ("<table width='100%' cellpadding=0 cellspacing=0 border=1 bgcolor='#B8CFFF' bordercolor=maroon>")
MsgBody = MsgBody & ("<tr>")
MsgBody = MsgBody & ("<td>")
MsgBody = MsgBody & ("<table width='100%' cellpadding=10 cellspacing=0 border=0>")
MsgBody = MsgBody & ("<tr>")
MsgBody = MsgBody & ("<td width='100%' height=1 bgcolor='#B8CFFF' colspan=3><a style='font-family: Arial; font-size: 8pt; color: #6F602D; text-decoration: none'>")
'MsgBody = MsgBody & "<font color='#6F602D'>To,<br>"
MsgBody = MsgBody & "<b>Administratoriui </b><br>" & prj_name & "<br>"
MsgBody = MsgBody & "<p>Šis pranešimas informuoja, kad <b>" & fname & " " & lname & "</b> užsiregistravo " & time() & " on " & formatdatetime(now(),2) & ".<br>"
MsgBody = MsgBody & "<font color='#CC6600'><b>Vartotojo informacija</b></font><br>"
MsgBody = MsgBody & "<font color='#6F602D'><b>Vardas ir pavardė: </b>" & fname & " " & lname & "</font><br>"
MsgBody = MsgBody & "<font color='#6F602D'><b>El. paštas (vartotojo vardas): </b>" & email & "</font><br>"
if onlymail=false then
MsgBody = MsgBody & "<font color='#6F602D'><b>Slaptažodis: </b>" & mystr & "</font><br>"
end if
MsgBody = MsgBody & "<font color='#6F602D'><b>Įmonė: </b>" & company & "</font><br><br>"
MsgBody = MsgBody & "<font color='#6F602D'><b>Adresas: </b>" & address1 & "<br>" & address2 & "</font><br>"
MsgBody = MsgBody & "<font color='#6F602D'><b>Telefonas: </b>" & phone & "</font><br>"
MsgBody = MsgBody & "<font color='#6F602D'><b>Faksas: </b>" & fax & "</font><br>"
MsgBody = MsgBody & "<font color='#6F602D'><b>Miestas: </b>" & city & "</font><br>"
MsgBody = MsgBody & "<font color='#6F602D'><b>Pašto indeksas: </b>" & postal & "</font><br>"
MsgBody = MsgBody & "<font color='#6F602D'><b>Valstybė: </b>" & country & "</font><br><br>"
MsgBody = MsgBody & "<font color='#6F602D'><b>Apskritis: </b>" & state & "</font><br>"
MsgBody = MsgBody & "<font color='#6F602D'><b>Jus domina: </b>" & Prodname & "</font><br>"
MsgBody = MsgBody & (" </td>")
MsgBody = MsgBody & ("</tr>")
MsgBody = MsgBody & ("</table>")
MsgBody = MsgBody & ("</td>")
MsgBody = MsgBody & ("</tr>")
MsgBody = MsgBody & ("</table>")
MsgBody = MsgBody & ("</BODY>")
MsgBody = MsgBody & ("</HTML>")
objNewMail.BodyFormat = 0
objNewMail.MailFormat = 0
objNewMail.Body = MsgBody
objNewMail.Send

==============================================

I will very thankful to you all if you can solve my query.