Отправка письма на другой Email

CreatiK · 28 Янв 2011

Можно ли реализовать такое?

Для чего это мне?
Я практикуюсь на созданиях ботов для игр в контакте. Хочу сделать чтобы люди могли предложения давать по боту по email'у а то и так в аське спама стало много уже достали.

Код каркаса:

Код:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Отправить письмо Димке)", 376, 281, 230, 126)
$Input1 = GUICtrlCreateInput("", 16, 24, 345, 21)
$Label1 = GUICtrlCreateLabel("Тема письма", 16, 8, 72, 17)
$Edit1 = GUICtrlCreateEdit("", 16, 64, 345, 169, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
$Label2 = GUICtrlCreateLabel("Текст письма", 16, 48, 75, 17)
$Button1 = GUICtrlCreateButton("Отправить письмо", 264, 240, 89, 33, $BS_MULTILINE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Arei · 29 Янв 2011

мой вариант, есть один минус нужно прикреплять файл, но это может быть и плюс

Код:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Wesoft = GUICreate("Wesoft", 377, 189, 192, 124)
$Button1 = GUICtrlCreateButton("Кнопка=)", 288, 144, 75, 25, $WS_GROUP)
$ToAddress = ("")
$FromAddress = ("")
$FromName = "Mail Sender"
$Subject = GUICtrlCreateInput("тема", 24, 32, 185, 21)
$Body = GUICtrlCreateEdit("", 24, 83, 185, 105)
GUICtrlSetData(-1, "")
$AttachFiles = GUICtrlCreateInput("Файл", 24, 56, 161, 21); прикреплённые файлы к письму
$Username = ("")
$SmtpServer = ("smtp.yandex.ru")
$Password = ("")
;$SmtpServer = "smtp.mail.ru"            ; адрес SMTP сервера
;$FromName = "Mail Sender"               ; имя отправителя
;$FromAddress = "[email protected]" ; адрес отправителя
;$ToAddress = "[email protected]"      ; адрес назначения
;$Subject = "test_mail_8"              ; тема письма
;$Body = "body_of_mail"            ; тело письма (сам текст письма)
;$Username = "zzzzzmail"            ; имя пользователя аккаунта, с которого отправляется
;$Password = "12345z"
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###




$BlatArgs = "-t "&$ToAddress&" -f "&$FromAddress&" -s "&$Subject&" -body "&$Body&" -server "&$SmtpServer&" -u "&$Username&" -pw "&$Password&" -attach "&$AttachFiles

Func _SendMail($CMDstring)
    $BlatDLL = DllOpen ("blat.dll")
    Do
        $result=DllCall($BlatDLL,"int","Send","str",$CMDstring)

        Select
            Case $result[0] = 13
                MsgBox(16,"Ошибка. Код ошибки " & $result[0], "Не могу открыть временный файл во временной папке")

            Case $result[0] = 12
                MsgBox(16, "Ошибка. Код ошибки " & $result[0], "Не указаны или не найдены в реестре аргументы -server или -f")

            Case $result[0] = 3
                MsgBox(16, "Ошибка. Код ошибки " & $result[0], "Не могу прочитать файл с текстом письма или приложенный файл")

            Case $result[0] = 2
                MsgBox(16, "Ошибка. Код ошибки " & $result[0], "Почтовому серверу не понравился адрес отправителя; или он отказал нам в подключении; или неверный пароль; или не найден файл с текстом письма")
            Case $result[0] = 1
                MsgBox(16, "Ошибка. Код ошибки " & $result[0], "Не могу открыть SMTP сокет. Проверьте подключение к Интернету; либо неверные аргументы")
            Case $result[0] <> 0
                MsgBox(16, "Ошибка. Код ошибки " & $result[0], "Неизвестная ошибка")
        EndSelect
    Until $result[0] = 0
    MsgBox(16, "нет ошибки.", "Письмо отправлено :-)" & @CRLF)
    DllClose ($BlatDLL)
EndFunc ;

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
               _SendMail($BlatArgs)

	EndSwitch
WEnd

Arei · 29 Янв 2011

нужна библиотека blat.dll она на форуме есть, или в файлах я выкладывал она должна лежать там же, где и скрипт,а после компиляции не требуется.

CreatiK · 29 Янв 2011

Он отправляет текст только на английском?

Arei · 29 Янв 2011

на любом

renom · 29 Янв 2011

http://autoit-script.ru/index.php?action=downloads;sa=view;down=50

Arei · 29 Янв 2011

renom,да это то что я выкладывал.
qsort как умею так и сделал, и нормально получилось.

BiG_BoY · 2 Апр 2011

У меня ошибку выдаёт, что мол нет соединения с интернетом.

Dr1N · 25 Апр 2012

После компиляции всё равно нужна библиотека blat.dll. Как обойти это ?

kaster · 25 Апр 2012

Dr1N

Код:

FileInstall

exHalfer · 14 Янв 2013

А есть подобная DLL для win x64?

Viktor1703 · 14 Янв 2013

Не проще с помощью объекта CDO.Message ?

Код:

Global $iError, $oEvent = ObjEvent('AutoIt.Error', '__cdo_error')

MsgBox(0, '', __cdo_Message('кому@domain.ru', 'имя', 'от кого@domain.ru', 'пароль', 'тема', 'сообщение'))

Func __cdo_Message($sToAddress, $sFromName, $sFromAddress, $sPassword, $sSubject = '', $sBody = '', $sAttach = '', $sServer = 'smtp.mail.ru', $iPort = 25, $iSSL = 0)
    Local $oEmail = ObjCreate('CDO.Message')
    If (Not IsObj($oEmail)) Then
        Return SetError(1, 0, 0)
    EndIf
    $oEmail.From = '"' & $sFromName & '" <' & $sFromAddress & '>'
    $oEmail.To = $sToAddress
    $oEmail.Subject = $sSubject
    $oEmail.TextBody = $sBody & @CRLF
    If ($sAttach <> '') Then
        If FileExists($sAttach) Then
            $oEmail.AddAttachment($sAttach)
        Else
            Return SetError(2, 0, 0)
        EndIf
    EndIf
    $oEmail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendusing') = 2
    $oEmail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver') = $sServer
    $oEmail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport') = $iPort
    $oEmail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate') = 1
    $oEmail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendusername') = $sFromAddress
    $oEmail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendpassword') = $sPassword
    $oEmail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/smtpusessl') = $iSSL
    $oEmail.Configuration.Fields.Update
    $oEmail.Send
    If $iError Then
        $iError = 0
        Return SetError(3, 0, 0)
    EndIf
    Return 1
EndFunc

Func __cdo_error()
    $iError = $oEvent.Number
EndFunc

Arei · 14 Янв 2013

Я знал, что ты эту функцию опубликуешь. :smile:

exHalfer · 14 Янв 2013

Через CDO.Message на х86 идет все как надо, а на win x64 выдает ошибку:

The requested action with this object has failed.:
$oEmail.Send
$oEmail.Send^ ERROR

Нашел blat.dll для х64 на оф. сайте, но функция от Arei, с его использованием, тоже выдает ошибку:

Subscript used with non-Array variable.:
Case $result[0] = 13
Case $result^ ERROR

Arei · 14 Янв 2013

Удали все проверки и попробуй запустить.

exHalfer · 14 Янв 2013

Удалил все проверки - просто не отсылается письмо.
"Методом научного тыка" вернул обратно старый blat.dll и сменил Gmail на Mail.ru - все заработало. Странно только, что на ноутбуке с win x86 все работает и на Gmail.
В общем не страшно, в таком случае, буду использовать Mail.ru.

irshat · 3 Фев 2013

Может не в тему, но чтобы не засорять форум, задам здесь вопрос. Во всем форуме написано только об отправке писем с паролем, и нигде нет без пароля.
Этот пример не заработал, показал ошибку Код 50.

Код:

#include <INet.au3>

$s_SmtpServer = "mysmtpserver.com.au"
$s_FromName = "My Name"
$s_FromAddress = "From eMail Address"
$s_ToAddress = "To eMail Address"
$s_Subject = "My Test UDF"
Dim $s_Body[2]
$s_Body[0] = "Testing the new email udf"
$s_Body[1] = "Second Line"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body)
$err = @error
If $Response = 1 Then
    MsgBox(0, "Success!", "Mail sent")
Else
    MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf

На VBS через этот же сервер нормально уходит, в чем может быть проблема. Или есть другие способы отправки без аутентификации.

Pavel · 4 Июн 2016

Ребят, а кто знает как отправлять кириллические символы в нужной кодировке (версия с blat.dll)? Приходят кракозябры...

Alofa · 5 Июн 2016

Pavel, Ответ #11 и без всяких там blat.dll.

Pavel · 14 Июн 2016

Alofa сказал(а):
Pavel, Ответ #11 и без всяких там blat.dll.

В 3.3.12.0 работает? У меня нет... :scratch:

Автор темы	Похожие темы	Форум	Ответы	Дата
K	Отправка Html письма autoit	Общие вопросы по AutoIt	2	27 Сен 2019
A	Отправка html письма	Общие вопросы по AutoIt	7	19 Мар 2016
Д	Отправка письма через mail.ru(bk.ru или list.ru)	Общие вопросы по AutoIt	2	3 Фев 2016
	Перенесено: Автоматический вход в почту и отправка письма	Общие вопросы по AutoIt	0	8 Окт 2013
B	Автоматический вход в почту и отправка письма	Стол заказов	1	8 Окт 2013

Отправка письма на другой Email

Новичок

Скриптер

Скриптер

Новичок

Скриптер

Новичок

Скриптер

Новичок

Новичок

Мой Аватар, он лучший самый

Новичок

AutoIT Гуру

Скриптер

Новичок

Скриптер

Новичок

Новичок

Новичок

Alofa

Гость

Новичок