Что нового

Помогите пожалуйста прикрутить отправку уведомления на email

ace

Новичок
Сообщения
4
Репутация
0
Здравствуйте уважаемые форумчане!

Есть простенький скрипт, проигрывающий звуковой файл на изменение цвета в заданных координатах экрана.
Код:
$Color = 0x2F4050 ; Цвет-эталон
While 1
If PixelGetColor (133 , 472) <> $Color Then
SoundPlay('c:\1\ding.wav', 1)
EndIf
Sleep(1000)
WEnd

Помогите пожалуйста прикрутить к этому скрипту отправку уведомления на email вместо проигрывания звука
 
Последнее редактирование модератором:

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Вот пример с отправкой почты на inbox.ru , если другой почтовый сервер - легко изменить , подставив нужный адрес SMTP, потрт итд
Код:
$Color = 0x2F4050 ; Цвет-эталон
While 1
	If PixelGetColor(133, 472) <> $Color Then
		_SendMail()
	EndIf
	Sleep(1000)
WEnd

Func _SendMail()
	$str = "http://schemas.microsoft.com/cdo/configuration/"
	$hMAIL = ObjCreate("CDO.Message")
	With $hMAIL
		.From = "***@inbox.ru"
		.To = "***@inbox.ru"
		.Subject = "Это тест"
		.TextBody = "Проверка отправки почты"
		.AddAttachment("") ;файл для отправки
	EndWith
	With $hMAIL.Configuration.Fields
		.Item($str & "sendusing") = 2
		.Item($str & "smtpserver") = "smtp.inbox.ru" ;SMTP Server
		.Item($str & "smtpauthenticate") = 1
		.Item($str & "sendusername") = "***@inbox.ru"
		.Item($str & "sendpassword") = "***" ;Пароль SMTP-сервер
		.Item($str & "smtpserverport") = 465 ;Порт
		.Update
	EndWith
	$hMAIL.Send
EndFunc   ;==>_SendMail

Подставьте свои Логин-пароль и необходимій текст, тему и если нужно - путь к файлу для отправки
 
Автор
A

ace

Новичок
Сообщения
4
Репутация
0
Спасибо за помощь, но отправка уведомления не идет. Конечно же прописал в скрипте свои данные почтового ящика.
Вместо этого окно с ошибкой Autoit Error

Код:
Line 28 (File "C:\mail.au3"):

$hMAIL.Send
$hMAIL^ERROR

Error:The requested action with this object gas failed.

Прошу помочь с решением.
 
Последнее редактирование модератором:

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Да уж,возможно из за операционной системы? Раньше на Windows 7 работало , сейчас на Windows 10 не хочет :( У Вас какая ОС ?
 
Автор
A

ace

Новичок
Сообщения
4
Репутация
0
Хм... Система Windows 7 32x фаеровол выключил.
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Всё, настроил, работает ! Код выше рабочий, нужно настроить почтовик исходящей почты, например для Gmail нужно разрешить в настройках аккаунта -безопасность - разрешить доступ к почте небезопасным приложениям. В настройках самого почтовика включить IMAP (да и POP на всякий случай , хотя мы не используем ) После этих действий сообщения отправляются.
 
Автор
A

ace

Новичок
Сообщения
4
Репутация
0
Не отправляется уведомление. Пробовал сервисы mail.ru и gmail.com

Нашел тут где-то на форуме рабочий скрипт, с ним у меня идет отправка на mail.ru

Если не сложно прошу помочь объединить 1-й скрипт из первого сообщения с этим
 

Вложения

  • mailru.au3
    2.6 КБ · Просмотры: 13

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
То, что Вы прикрепили один в один, то , что я дал Вам выше , только записано иначе. Скрипт выше работает , с Gmail необходимы настройки самой почты , с mail.ru было проще, проверю.
 

tonycstech

Новичок
Сообщения
94
Репутация
3
А у меня ваш код не работает. Сколько я их не пробывал не один не работал кроме того что я прикрепил.
Посылаю емайлы через безплатные SMTP сервера сервисы типа MailJet или SMTP2GO. Работают отлично. SMTP2GO проще.
 

Вложения

  • Email.au3
    5.7 КБ · Просмотры: 6
Верх