Отправка почты при помощи CDO.Message

Question

Как при помощи кода сделать чтобы сообщение корректно передавало кириллицу.
Потому что objMessage.TextBody будет равно "Это сообщение ......." возникает проблема с кодировками

       Set objMessage = CreateObject("CDO.Message")

        objMessage.Subject = Subject_
        objMessage.From = From_
        objMessage.To = StrA(3)
        objMessage.TextBody = TextBody_
        objMessage.AddAttachment ItogDir+"\"+Org+".zip"
       
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       
        'Name or IP of Remote SMTP Server
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = IP_       
       
        'Server port (typically 25)
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
       
        objMessage.Configuration.Fields.Update
       
        objMessage.Send

Answer 1

Попробуйте:

 

Code Snippet

...

objMessage.BodyPart.Charset="windows-1251".

...

 

 

 или какой-то другой ...

 

 

 

Answer 2

Для все кто искал и не смог найти информация вот что надо настроить чтобы правильно отображалось письмо. По крайне мере мне помогло.

        objMessage.Configuration.Fields.Item _       
        ("http://schemas.microsoft.com/cdo/configuration/languagecode") = 1049
        'objMessage.BodyPart.CharSet = "windows-1251".
       
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext") = true

===============================================================
Код указанный Andrey Kudrjashov выдает ошибку  "Предпологаеться наличие идентификатора."

Answer 3

еще бы как нить получить в нужной кодировке статус-сообщение об ошибке а то приходит типа такого :(

"CDO.Message.1: O?ainii?oo ia oaaeinu iiaee??eouny e na?aa?o."

 

Answer 4

то есть проблема похоже никого не касается лично или просто ее ни у кого нет :(

Answer 5

согласен с Сорокин Михаил

 objMessage.Configuration.Fields.Item _       
        ("http://schemas.microsoft.com/cdo/configuration/languagecode") = 1049
у меня именно так заработало, как надо.

Но еще в догонку, можно встроить функцию, для формирования тела письма из HTML файла.
После чего открываете оутлук сохраняете письмо в html далее проблем не будет 100%

Answer 6

А при таких настройках Subject можно задавать на русском ?

Если нет, то нужно смотреть в сторону urn:schemas:mailheader:content-type, там можно задать :  text/plain; charset=Windows-1251