CDOSYS subject not displaying the correct characters

[FesterSXS]

I have the following code creating emails based on information submitted through a form. The bodytext of the email (in Russian) is showing up fine in the delivered email, however, the subject is showing all the Russian cyrillic characters as question marks.

I have set the charset of the bodytext to utf-8 but this is not affecting the subject. Does anyone have any ideas what I can do to get the subject displaying correctly?

kind regards

Tony

...
Dim objCustomerMail

'Send confirmation e-mail to customer
Set objCustomerMail = Server.CreateObject("CDO.Message")

objCustomerMail.BodyPart.Charset = "utf-8"
objCustomerMail.Subject = "Spirax Sarco ?????? - ?????????? ?? ??? ??????"
objCustomerMail.From = strAssociateEmail
objCustomerMail.To = strCustomerEmail
objCustomerMail.TextBody = strBodyText & vbcrlf & "?? ? ????????? ????????? ? ??????????? ?????? ????? ? ?? ???????? ?????????? ? ??? ?? ??????? ????????"
objCustomerMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 1
objCustomerMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "localhost"
objCustomerMail.Configuration.Fields.Item("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25 
objCustomerMail.Configuration.Fields.Update
objCustomerMail.Send

Set objCustomerMail = Nothing

Tony