Автор Тема: Помогите пожалуйста прикрутить отправку уведомления на email  (Прочитано 367 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн ace [?]

  • Новичок
  • *
  • Сообщений: 4
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Здравствуйте уважаемые форумчане!

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

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

Помогите пожалуйста прикрутить к этому скрипту отправку уведомления на email вместо проигрывания звука
« Последнее редактирование: Март 23, 2019, 08:43:16 от ace, Причина: уточнение »

Русское сообщество AutoIt


Помечен как лучший ответ пользователем ace Отправлен Март 26, 2019, 13:31:59

Оффлайн ra4o [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 931
  • Репутация: 172
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Вот пример с отправкой почты на inbox.ru , если другой почтовый сервер - легко изменить , подставив нужный адрес SMTP, потрт итд
Код: AutoIt [Выделить]
$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 [?]

  • Новичок
  • *
  • Сообщений: 4

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

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

$hMAIL.Send
$hMAIL^ERROR

Error:The requested action with this object gas failed.

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

Оффлайн ra4o [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 931
  • Репутация: 172
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Да уж,возможно из за операционной системы? Раньше на Windows 7 работало , сейчас на  Windows 10 не хочет :( У Вас какая ОС ?

Русское сообщество AutoIt


Оффлайн ace [?]

  • Новичок
  • *
  • Сообщений: 4

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Хм... Система Windows 7 32x фаеровол выключил.

Оффлайн ra4o [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 931
  • Репутация: 172
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Всё, настроил, работает ! Код выше рабочий, нужно настроить почтовик исходящей почты, например для Gmail нужно разрешить в настройках аккаунта -безопасность - разрешить доступ к почте небезопасным приложениям. В настройках самого почтовика включить IMAP (да и POP на всякий случай , хотя мы не используем ) После этих действий сообщения отправляются.

Оффлайн ace [?]

  • Новичок
  • *
  • Сообщений: 4

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Не отправляется уведомление. Пробовал сервисы mail.ru и gmail.com

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

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



Внимание: Для просмотра прикреплённых файлов необходимо Войти или Зарегистрироваться

Оффлайн ra4o [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 931
  • Репутация: 172
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
То, что Вы прикрепили один в один, то , что я дал Вам выше , только записано иначе. Скрипт выше работает , с Gmail необходимы настройки самой почты , с mail.ru было проще, проверю.

Русское сообщество AutoIt


 

Похожие темы

  Тема / Автор Ответов Последний ответ
11 Ответов
12268 Просмотров
Последний ответ Май 19, 2010, 12:18:14
от Kaster
5 Ответов
4037 Просмотров
Последний ответ Март 20, 2011, 00:01:31
от k790
0 Ответов
2609 Просмотров
Последний ответ Апрель 03, 2011, 04:47:14
от Belfigor
8 Ответов
5574 Просмотров
Последний ответ Июль 19, 2011, 08:09:51
от Arei
0 Ответов
2051 Просмотров
Последний ответ Июль 19, 2011, 00:42:58
от madmasles
18 Ответов
6806 Просмотров
Последний ответ Декабрь 23, 2011, 18:17:37
от gora
7 Ответов
3596 Просмотров
Последний ответ Апрель 18, 2012, 07:41:36
от eropov
8 Ответов
4529 Просмотров
Последний ответ Июнь 23, 2012, 08:35:48
от C2H5OH
4 Ответов
1162 Просмотров
Последний ответ Сентябрь 08, 2016, 03:35:11
от DezmontDeXa
1 Ответов
316 Просмотров
Последний ответ Март 04, 2018, 18:29:44
от pandemia