Salve,
devo inviare una mail con del testo in Italiano e Cirillico, il prblema è che nella mail che arriva alcuni caratteri cirillico non vengono visti correttamente altri si. Vi posto il codice magari se qualcuno lo può provare per capire da cosa dipende

Grazie anticipatamente


codice:
HTML = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "<content=""text/html; charset=utf-8"">"
HTML = HTML & "<title> ciao</title>"
HTML = HTML & "</head>"
' STILI TESTO
HTML = HTML & "<body bgcolor=#F1F3F5 leftmargin=0 topmargin=0 marginwidth=0 marginheight=0>"

HTML = HTML &"Гостиница не соответствует описанию
test Italiano"


HTML = HTML & "</body></html>"




Dim iMsg, iConf, Fields

'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Fields = iConf.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp"

With iMsg

Set .Configuration = iConf
.From = "indirizzoMail"
.To = "indirizzoMail"
.Subject = "Test"

'Formato HTML
.HtmlBody =  HTML
'Invia l'email

.Send()

end with

set Fields = Nothing
set iConf = Nothing
set iMsg = Nothing