Проблема с кодировкой "windows-1251" в CDOSYS !!!

Программирование на Active Server Pages и VBScript.
SNV
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 08.09.2002 (Вс) 14:34
Откуда: СНГ

Проблема с кодировкой "windows-1251" в CDOSYS !!!

Сообщение SNV » 09.04.2006 (Вс) 0:02

Подскажите, почему в серверном VB-скрипте, при использовании русской кодировки "windows-1251" при отправке почты через удаленный SMTP-сервер, полученное письмо содержит мусор? А когда кодировка явно в скрипте не устанавливается, то письмо, после его получения, можно нормально прочесть только при принудительном выборе в почтовой программе кодировки "Кириллица - Windows".

Код скрипта :

<%@ Language=VbScript%>
<%

On Error Resume Next
Dim mailMessage, Flds, myConfig, strText
Set mailMessage = Server.CreateObject("CDO.Message")
Set myConfig = Server.CreateObject("CDO.Configuration")
Set Flds = myConfig.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' через удаленный SMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Имя сервера" ' SMTP-сервер
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' только для удаленного SMTP
.Item("http://schemas.microsoft.com/cdo/configuration/langua gecode") = "ru"
.Update
End With
With mailMessage
Set .Configuration = myConfig
.From = "e-mail-адрес": .To = "e-mail-адрес"
.Subject = "Тема'"
.BodyPart.Charset = "windows-1251"
.TextBody = "Текст письма"
.Send
End With
Set Flds = Nothing: Set myConfig = Nothing: Set mailMessage = Nothing

%>

И еще одна странная вещь. В полученном письме значение Content-Transfer-Encoding почему-то становиться равным 7bit . Попытка явно установить в скрипте свойство .BodyPart.ContentTransferEncoding = "8bit" ни к чему не приводит. Все равно "Content-Transfer-Encoding: 7bit" возвращается.
А когда свойство BodyPart.Charset вообще не устанавливать, приходит нормальные "8bit". но строчка "charset="windows-1251"" отсутствует, из-за чего, вероятно, почтовая программа и не может сразу открыть письмо в нужной кодировке. Если кто знает как решить проблему - спасибо!

Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 32

    TopList