CDO.Message and UTF-8 Issue

[polsynth@gmail.com]

I have vbscript (ASP) code that sends emails using information passed
into the script from a Flash component. The information is escaped
using Flash's escape function so I receive the values properly and
then decode them.

I can display the decoded information correctly in a web browser using
UTF-8 encoding on the web page, however when I send the information
via email the unicode values in the message body show the "funny"
characters instead of what I expect. For example, when I look at the
email sent by the script I see these three characters — instead of
the em dash.

I've tried setting the charset for the email but it doesn't seem to
have any effect.

Here's the my code:

Set objMail = Server.CreateObject("CDO.Message")
Set objBodyPart = objmail.BodyPart
objBodyPart.Charset = "UTF-8"

Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields

With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/
sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/
smtpserver") = "localhost"
.Item("http://schemas.microsoft.com/cdo/configuration/
smtpconnectiontimeout") = 20
.Item("http://schemas.microsoft.com/cdo/configuration/
smtpserverport") = 25
.Update
End With

With objMail
Set .Configuration = objConf
.From = email
.To = Trim(recip)
.Subject = subject

.TextBody = txtboilerplate 'the txtboilerplate contains the
unicode chars
End With

objMail.Send
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing

Is there something wrong with how I'm trying to set the charset?

Thanks!

[asaf.meir.barziv@gmail.com]

On 26 ×*ובמבר 2008, 03:57, polsy...@gmail.com wrote:

> I have vbscript (ASP) code that sends emails using information passed
> into the script from a Flash component. The information is escaped
> using Flash's escape function so I receive the values properly and
> then decode them.
>
> I can display the decoded information correctly in a web browser using
> UTF-8 encoding on the web page, however when I send the information
> via email the unicode values in the message body show the "funny"
> characters instead of what I expect. For example, when I look at the
> email sent by the script I see these three characters — instead of
> the em dash.
>
> I've tried setting the charset for the email but it doesn't seem to
> have any effect.
>
> Here's the my code:
>
> Â* Â* Â* Â* Â* Set objMail = Server.CreateObject("CDO.Message")
> Â* Â* Â* Â* Â* Set objBodyPart = objmail.BodyPart
> Â* Â* Â* Â* Â* objBodyPart.Charset = "UTF-8"
>
> Â* Â* Â* Â* Â* Set objConf = Server.CreateObject("CDO.Configuration")
> Â* Â* Â* Â* Â* Set objFields = objConf.Fields
>
> Â* Â* Â* Â* Â* With objFields
> Â* Â* Â* Â* Â* Â* Â* .Item("http://schemas.microsoft.com/cdo/configuration/
> sendusing") = 2
> Â* Â* Â* Â* Â* Â* Â* .Item("http://schemas.microsoft.com/cdo/configuration/
> smtpserver") Â*= "localhost"
> Â* Â* Â* Â* Â* Â* Â* .Item("http://schemas.microsoft.com/cdo/configuration/
> smtpconnectiontimeout") = 20
> Â* Â* Â* Â* Â* Â* Â* .Item("http://schemas.microsoft.com/cdo/configuration/
> smtpserverport") = 25
> Â* Â* Â* Â* Â* Â* Â* .Update
> Â* Â* Â* Â* Â* End With
>
> Â* Â* Â* Â* Â* With objMail
> Â* Â* Â* Â* Â* Â* Â* Set .Configuration = objConf
> Â* Â* Â* Â* Â* Â* Â* .From = email
> Â* Â* Â* Â* Â* Â* Â* .To = Trim(recip)
> Â* Â* Â* Â* Â* Â* Â* .Subject = subject
>
> Â* Â* Â* Â* Â* Â* Â* .TextBody = txtboilerplate Â* 'the txtboilerplate contains the
> unicode chars
> Â* Â* Â* Â* Â* End With
>
> Â* Â* Â* Â* Â* objMail.Send
> Â* Â* Â* Â* Â* Set objFields = Nothing
> Â* Â* Â* Â* Â* Set objConf = Nothing
> Â* Â* Â* Â* Â* Set objMail = Nothing
>
> Is there something wrong with how I'm trying to set the charset?
>
> Thanks!

set HTMLBodyPart and TextBodyPart Charset too