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
Rispondi quotando