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

[ace]

Здравствуйте уважаемые форумчане!

Есть простенький скрипт, проигрывающий звуковой файл на изменение цвета в заданных координатах экрана.

$Color = 0x2F4050 ; Цвет-эталон
While 1
If PixelGetColor (133 , 472) <> $Color Then
SoundPlay('c:\1\ding.wav', 1)
EndIf
Sleep(1000)
WEnd

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

 

[ra4o]

Вот пример с отправкой почты на 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

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

 

[ace]

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

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

$hMAIL.Send
$hMAIL^ERROR

Error:The requested action with this object gas failed.

Прошу помочь с решением.

 

[ra4o]

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

 

[ace]

Хм... Система Windows 7 32x фаеровол выключил.

 

[ra4o]

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

 

[ace]

Не отправляется уведомление. Пробовал сервисы mail.ru и gmail.com

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

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

 

[ra4o]

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

 

[tonycstech]

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