Envoi de mails en différentes langues à l'aide de ASP et CDOSYS

Question

Je souhaite envoyer un e-mail en utilisant le texte arabe comme ligne d'objet.

La pièce de code convertit les caractères spéciaux en texte arabe correctement pour le corps du message, mais ne parvient pas à le faire pour l'objet du message.

Je voudrais savoir ce que je manque?

 
     Set objCDOSYS = Server.CreateObject("CDO.Message") 
     Set objCDOConf = CreateObject("CDO.Configuration") 
     Set objCDOFields = objCDOConf.Fields 

     objCDOFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
     objCDOFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" 
     objCDOFields.Update 

     Set objCDOSYS.Configuration = objCDOConf 
     objCDOSYS.MimeFormatted=True 
     objCDOSYS.BodyPart.Charset = "Windows-1256" 

     objCDOSYS.From = Trim(Request.Form("frmSender")) 
     objCDOSYS.To = Trim(Request.Form("frmRecipient")) 

     objCDOSYS.Subject =Request.Form("frmSubject") 
     objCDOSYS.HTMLBody = Trim(Request.Form("frmMessage")) 

     objCDOSYS.HTMLBodyPart.charset = "Windows-1256" 
     objCDOSYS.Fields.update 

     objCDOSYS.Send 
     Set objCDOFields = Nothing 
     Set objCDOConf = Nothing 
     Set objCDOSYS = Nothing 

Answer 1

Vous devrez peut-être utiliser '=? UTF-8? B?' devant le sujet et la chaîne arabe encodée en base64.

objCDOSYS.Subject = "=?UTF-8?B?" + Base64Encode(Request.Form("frmSubject")) 

La fonction Base64Encode peut trouver à - http://nolovelust.com/post/classic-asp-base64-encoder-decoder.aspx

Note: Je l'ai fait essayer encore moi-même. donc pas sûr à 100%.

Answer 2

Modification du charset UTF-8 vaut un coup de poignard: -

objCDOSYS.HTMLBodyPart.charset = "UTF-8" 

Je pense que cela va entraîner le genre de codage Jirapong a essayé mais CDOSYS le fera pour vous. Malheureusement, je sais que cela ne fonctionne pas pour les noms d'affichage dans les adresses e-mail.