[thelist] UTF-8 text in CDO.NewMail

[Sam Carter]

The new CDO email interface from Microsoft
 
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/
html/_cdosys_imessage_interface.asp
 
Is an enigma to me (compared to CDONTS).
 
I was able to modify my send email function
 
Function sendemail(strFrom, strTo, strCc, strBcc, strSubject, strBody)
Dim objMail
on error resume next
Set objMail = Server.CreateObject("CDO.Message")
 objMail.From = strFrom
 objMail.To = strTo
 objMail.Cc = strCc
 objMail.Bcc = strBcc
  objMail.Subject = strSubject
 objMail.textBody = strBody
  objMail.Send
 sendemail = ""
 if err.number <> 0 then sendemail = "Send Email error number: " &
CSTR(err.number) & " description: " & err.description
Set objMail = Nothing 
End Function

 
But I'm lost as to how to specify a UTF-8 body text message (to hold
Japanese).
 
Sam