Hi,
Well I am a PHP Programmer, and I am coding in Classic ASP for some reason. I am stuck at a place.
My script need to send an email that will have Swedish Characters.
I have below code, the Subject is fine however the email body shows ?? in place of all the Swedish characters. Like this: Best??llning Ovriga ??nskem??l
Please help me !
Regards
Z
Well I am a PHP Programmer, and I am coding in Classic ASP for some reason. I am stuck at a place.
My script need to send an email that will have Swedish Characters.
I have below code, the Subject is fine however the email body shows ?? in place of all the Swedish characters. Like this: Best??llning Ovriga ??nskem??l
Please help me !
Regards
Z
Code:
<%@Language = VBScript Codepage = 65001 %>
<%
dim objMail
Set objMail = Server.CreateObject("CDO.Message")
dim smtpServer, yourEmail, yourPassword
smtpServer = "127.0.0.1"
yourEmail = "no_reply@mydomain.com"
yourPassword = "my_password"
objMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 2
objMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = smtpServer
objMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")[/URL] = 1
objMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25
objMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpusessl")[/URL] = true
objMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusername")[/URL] = yourEmail
objMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendpassword")[/URL] = yourPassword
objMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")[/URL] = 60
objMail.BodyPart.Charset = "utf-8"
objMail.Configuration.Fields.Update
objMail.Subject="Beställning Ovriga önskemål"
objMail.htmlBody = "<strong>Beställning Ovriga önskemål</strong>"
objMail.htmlBodyPart.Charset = "utf-8"
objMail.from = yourEmail
objMail.to = "recipient@some_mail.com"
objMail.Send
%>