VBScript: e-mail s kódováním utf-8

CDOsys.dll lze použít ve skriptech VBS k posílání zpráv prostřednictvím připojení k SMTP serveru. Ve skriptu lze zadat konfiguraci zprávy, hlavičku, formát (text, html) nebo i zakomponovat jako přílohu libovolný soubor. Ve výchozím nastavení používá tato metoda kódování Latin 1 (ISO-8859-1) a české znaky jsou tedy komoleny. Ověřil jsem následující konfiguraci, která správně zachová česká písmenka:

Set Msg = Createobject("CDO.Message")
Msg.To = "prijemce@mail.net"
Msg.Cc = ""
Msg.From = "odeslal@mail.net"
Msg.Subject = "nova zprava"
Msg.Textbody = "text zprávy" + vbCrLf + "další řádky zprávy"
Msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTPserver.domain.cz"
Msg.BodyPart.Charset = "UTF-8"
Msg.Configuration.Fields.Update
Msg.Send
Set Msg = Nothing

Napsat komentář

Vaše emailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *