Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для beve

Старожил


Сообщения: 307
Благодарности: 137

Профиль | Отправить PM | Цитировать


Цитата SvetlanaK:
_INetSmtpMail работает, но выдает неверную кодировку »
Я специально попробовал отослать вот такое "письмо":
читать дальше »
Код: Выделить весь код
#include <INet.au3>

$s_SmtpServer = "smtp.mail.ru"
$s_FromName = "User"
$s_FromAddress = "Test@list.ru"
$s_ToAddress = "user@list.ru"
$s_Subject = "Test"
Global $as_Body[1]
 $as_Body[0]='Введение в AutoIt.AutoIt v3 - это язык для написания сценариев, напоминающий BASIC. Основным его назначением является автоматизация работ с Windows GUI (графическим интерфейсом пользователя MS Windows). Для выполнения этой сложной задачи предоставляется комбинация испытанных методов, включающих в себя - симуляцию нажатий комбинаций клавиш клавиатуры, перемещения указателя мыши и управления окнами и его визуальными элементами. Как показывает практика, эти "приводные ремни" весьма эффективны для получения работающих решений в ситуациях, когда другие стандартные средства (например, VBScript и SendKeys) оказываются бессильны. По замыслу AutoIt предполагался быть средством "тиражирования конфигураций" ПК. Но с момента создания третьей версии его возможности могут быть использованы для реализации "кухни" автоматизации - написания сценариев решения различных задач, в том числе и для администрирования системы. AutoIt умеет:'&@CRLF& 'Симулировать нажатия комбинаций клавиатуры (поддерживается основная масса раскладок клавиатуры)'&@CRLf&'Симулировать перемещения указателя мыши и нажатия на ее кнопки'&@CRLF&'Перемещать, менять размер и управлять параметрами отображения окон'&@CRLF&'Непосредственно взаимодействовать с "управляющими элементами" (controls) окна (получать/менять надпись, перемещать, отключать, и т.п. действия)'&@CRLF&'Работать с буфером обмена для пересылки его текстового содержания'&@CRLF&'Читать, менять и создавать ключи и значения реестра'
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
    MsgBox(0, "Success!", "Mail sent")
Else
    MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf


Отсылал 2 раза и открывал двумя разными почтовыми программами: The Bat и Pop Peeper, в обоих случаях письмо получено читабельно и в кирилице. (Тему и имя пользователя нужно писать в транслите либо на англ...)

-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.


Отправлено: 18:40, 18-11-2009 | #7