Кодировка в письме

yurfed · Отправлено: **12:07, 10-09-2013** | #2

gkivi, очень похоже на DOS кодировку 866
А чем смотрите?

gkivi · Отправлено: **12:20, 10-09-2013** | #3

Смотрю в Microsoft Outlook 2007, но не думаю что это он пакостит. Скрипт видимо с помощью blat сформировал письмо в заведомо неверной кодировке. Что тема письма что сам текст с абракадаброй. файл с вложением отображается нормально.

yurfed · Отправлено: **12:35, 10-09-2013** | #4

gkivi, скопируйте текст письма и вставьте в редактор Bred 3.
По крайней мере сможете прочитать письмо.

gkivi · Отправлено: **12:46, 10-09-2013** | #5

Зачем?

я и так знаю текст письма, проблема не в том чем просмотреть, а чтобы письмо приходило уже в нормальной кодировке.

yurfed · Отправлено: **13:18, 10-09-2013** | #6

Цитата gkivi:

Смотрю в Microsoft Outlook 2007, но не думаю что это он пакостит. »

Но всё же, попробуйте например Mozilla Thunderbird Portable Edition

gkivi · Отправлено: **09:05, 12-09-2013** | #7

Хорошо, изложу проблему по другому.
Этот скрипт создает письмо с вложением используя blat. Тема и содержание письма при приходе на почту в абракадабре. С вложением никаких проблем.
Вывод: значит blat создаёт в не в той кодировке письмо?

oz84 · Отправлено: **14:51, 13-09-2013** | #8

gkivi
blat имеет среди ключей -unicode, нагуглил такую тему. Если будете пробовать, не забудьте отписаться, пожалуйста

oz84 · Отправлено: **03:23, 15-09-2013** | #9

gkivi, отправляйте строкой
Run (@scriptdir & "\blat.exe " & $BlatArgs, @ScriptDir, @SW_HIDE )
На всякий случай к $BlatArgs можно в конце добавить -charset UTF-8, но у меня и так отправляет. С blat.dll не прокатывает.

З.Ы. Blat версии 3.1.1, Microsoft Outlook не люблю, пользуюсь Sylpheed.

support23 · Отправлено: **16:20, 17-09-2013** | #10

такой вариант не подойдет?

Код:

$SmtpServer = "smtp.123.ru"    ; адрес SMTP сервера
$Port = "25"                  ; Порт SMTP сервера
$FromAddress = "123l@123.ru"   ; адрес отправителя
$ToAddress = "123@123.ru"     ; адрес назначения
$Subject = """текст"""    ; тема письма
$Body = """Текст"""    ; тело письма (сам текст письм
$AttachFiles = "temp.txt"  
$ToCopy    = ""  
$Username = "123@123.ru"      ; имя пользователя аккаунта, с которого отправляется
$Password = "123"               ; Пароль
      
      $objSMTPmail = ObjCreate("CDO.Message")
      $objSMTPmail.From = $FromAddress
      $objSMTPmail.To = $ToAddress
      $objSMTPmail.Cc = $ToCopy      
      $objSMTPmail.Subject = $Subject
      $objSMTPmail.Textbody = $Body
      $objSMTPmail.BodyPart.Charset = "utf-8"
      $objSMTPmail.AddAttachment ($AttachFiles)
      $objSMTPmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objSMTPmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") =  $SMTPSERVER
$objSMTPmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $SMTPPORT
$objSMTPmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1   
$objSMTPmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $Username
$objSMTPmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $Password
$objSMTPmail.Configuration.Fields.Update
$objSMTPmail.Send