Hi
I am trying to send
Chinese Email through ASP CODSYS object. I have set message encoding as
UTF-8.
But the email sent
through the page is displaying garbage. The ASP code is as
follows:
Can anyone help me
with this?
Thanks and
Regards,
-Mandar
Date
<%@
Language=VBScript %>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form method=post>
<input name=subject>
<input name=message>
<input name=posted type = submit value = 'Send'>
<%
dim iconf
dim flds
set iconf=server.CreateObject("CDO.Configuration")
set flds=iconf.Fields
flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form method=post>
<input name=subject>
<input name=message>
<input name=posted type = submit value = 'Send'>
<%
dim iconf
dim flds
set iconf=server.CreateObject("CDO.Configuration")
set flds=iconf.Fields
flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")
= "c:\inetpub\mailroot\pickup"
flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
flds.update
flds.update
if request("posted")
<> "" then
Dim objMail
Set objMail = Server.CreateObject("CDO.Message")
objMail.Configuration=iconf
objMail.From = "[EMAIL PROTECTED]"
objMail.To = "[EMAIL PROTECTED]"
objMail.cc = "[EMAIL PROTECTED]"
objMail.bcc = "[EMAIL PROTECTED];[EMAIL PROTECTED]"
objMail.Subject = request("subject")
objMail.BodyPart.Charset = "UTF-8"
objMail.TextBody = request("message")
objMail.Send
Response.write "Message was sent with subject " & request("subject") & " and body " & request ("message")
end if
%>
</form>
</BODY>
</HTML>
Dim objMail
Set objMail = Server.CreateObject("CDO.Message")
objMail.Configuration=iconf
objMail.From = "[EMAIL PROTECTED]"
objMail.To = "[EMAIL PROTECTED]"
objMail.cc = "[EMAIL PROTECTED]"
objMail.bcc = "[EMAIL PROTECTED];[EMAIL PROTECTED]"
objMail.Subject = request("subject")
objMail.BodyPart.Charset = "UTF-8"
objMail.TextBody = request("message")
objMail.Send
Response.write "Message was sent with subject " & request("subject") & " and body " & request ("message")
end if
%>
</form>
</BODY>
</HTML>
http://www.patni.com
World-Wide Partnerships. World-Class Solutions.
_____________________________________________________________________
This e-mail message may contain proprietary, confidential or legally privileged information for the sole use of the person or entity to whom this message was originally addressed. Any review, e-transmission dissemination or other use of or taking of any action in reliance upon this information by persons or entities other than the intended recipient is prohibited. If you have received this e-mail in error kindly delete this e-mail from your records. If it appears that this mail has been forwarded to you without proper authority, please notify us immediately at [EMAIL PROTECTED] and delete this mail.
_____________________________________________________________________
