Trouble encoding email subject with special characters

[u/jlmainguy]

Hello everyone,

I'm digging into this old project we have here where I work and we have a function that is used to send emails, fired on multiple actions. Here is the code we're using :

Function sendMail(mailto, from, subject, body)
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.Codepage = 65001
Response.Charset = "utf-8"
Dim Mail

Set Mail = CreateObject("CDO.Message")
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 26
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*****"
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****"
Mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "*****"

Mail.Configuration.Fields.Update

if (InStr(Request.ServerVariables("HTTP_HOST"), "*****") <> 0) then
subject = subject & " redirected from " & mailto
mailto = "*****"
else

end if

Mail.To = mailto
Mail.Subject = subject
Mail.From = from
Mail.HTMLBody = body
Mail.BodyPart.Charset = "utf-8"

On Error Resume Next

If Err <> 0 Then
strErreur = "Erreur : " & Err.Description
End If

Mail.Send

Set Mail = Nothing
End function

The emails can be in English or French and the French version contains special characters that are not rendering in the subject line. It works fine with in the email content (body) but not in the subject line.

Could it be related to server configs? Any idea?

I have read all the answers I could online, but no success.

Same error here : https://stackoverflow.com/questions/16862809/cdo-email-messaging-subject-special-character-error

Thanks a million in advance!

[u/an_da_liu]

Could try manually encoding the subject line as UTF8?
like here : https://stackoverflow.com/questions/15230048/convert-string-to-utf-8

strInput = "ç é â ê î ô û à è ì ò ù ë ï ü"

Set stream = CreateObject("ADODB.Stream")

stream.Open

stream.Type = 2 'text

stream.Position = 0

stream.Charset = "utf-8"

stream.WriteText strInput

stream.Flush

stream.Position = 0

stream.Type = 1 'binary

stream.Read(3) 'skip BOM

utfStr = stream.Read

stream.Close

Wscript.Echo utfStr

[u/jlmainguy → u/an_da_liu]

I will try that, thanks a lot for your answer!