#include <IE.au3>
$oIE = _IECreate('http://mail.ru/')
$oForm = _IEFormGetObjByName($oIE, 'Auth')
$oSelect = _IEFormElementGetObjByName($oForm, 'Domain')
$oUser = _IEGetObjByName($oIE, 'login')
$oPass = _IEGetObjByName($oIE, 'password')
_IEFormElementSetValue($oUser, 'Ваш логин')
_IEFormElementSetValue($oPass, 'Ваш пароль')
_IEFormElementOptionSelect($oSelect, 'mail.ru', 1, 'byValue')
$oInputs = _IETagNameGetCollection($oIE, 'input')
For $oInput In $oInputs
If $oInput.type == 'submit' And $oInput.value == 'Войти' Then
_IEAction($oInput, 'click')
ExitLoop
EndIf
Next
_IELoadWait($oIE)
_IELinkClickByText($oIE, 'Написать письмо')
$oTo = _IEGetObjByName($oIE, 'To')
$oSubject = _IEGetObjByName($oIE, 'Subject')
$oBody = _IEGetObjByName($oIE, 'Body')
$oSend = _IEGetObjByName($oIE, 'send')
_IEFormElementSetValue($oTo, '[email protected]')
_IEFormElementSetValue($oSubject, 'Тема письма')
_IEFormElementSetValue($oBody, 'Содержание письма')
_IEAction($oSend, 'click')
_IELoadWait($oIE)