Серый форум — AHK: Отправить email при событии

Re: AHK: Отправить email при событии

null@example.com (becauseim) — Sun, 30 Sep 2018 14:15:14 +0000

Не удается прикрепить файл без расширения:

sAttach := "C:\Users\" A_UserName "\AppData\file" sendpng

Без переменной в пути файл прикрепляется:

sAttach := "D:\file" sendpng

Подскажите, где ошибка?

Re: AHK: Отправить email при событии

null@example.com (becauseim) — Fri, 09 Dec 2016 16:09:03 +0000

Malcev, получилось. Спасибо!

Re: AHK: Отправить email при событии

null@example.com (Malcev) — Fri, 09 Dec 2016 14:53:24 +0000

a := "adress@gmail.com"
SendMail(a)
SendMail("adress@gmail.com")
SendMail(adress@gmail.com)

SendMail(To)
{
   msgbox % to
}

Re: AHK: Отправить email при событии

null@example.com (becauseim) — Fri, 09 Dec 2016 13:41:17 +0000

Malcev, пробовал убирать знаки процентов, убирать кавычки, ставить двойные кавычки вместо одинарных - ничего не вышло. Также скрипт ругается на pmsg.Send().

Re: AHK: Отправить email при событии

null@example.com (Malcev) — Fri, 09 Dec 2016 12:22:49 +0000

У вас неправильные параметры в функции:

Поскольку вызов функции является выражением, не следует заключать в знаки процента имена переменных в списке ее параметров. И напротив, буквальные строки необходимо заключать в двойные кавычки

И переменные:

var := "test"
msgbox % Subject := "%var%"
msgbox % Subject := var

Re: AHK: Отправить email при событии

null@example.com (becauseim) — Thu, 08 Dec 2016 15:21:06 +0000

Исправьте, пожалуйста.

SendMail(To, Subject, Body)
{
pmsg 			:= ComObjCreate("CDO.Message")
pmsg.From 		:= """I Am"" " 
pmsg.To 		:= "%To%"  
pmsg.BCC 		:= ""   ; Blind Carbon Copy, Invisable for all, same syntax as CC
;pmsg.CC 		:= "username@gmail.com, Other-username@gmail.com"
;pmsg.CC 		:= "Somebody@somewhere.com, Other-somebody@somewhere.com"
pmsg.Subject 	:= "%Subject%"
;You can use either Text or HTML body like
pmsg.TextBody 	:= "%Body%"
fields := Object()
fields.smtpserver   := "smtp.gmail.com" ; specify your SMTP server
fields.smtpserverport     := 465 ; 25
fields.smtpusessl      := True ; False
fields.sendusing     := 2   ; cdoSendUsingPort
fields.smtpauthenticate     := 1   ; cdoBasic
fields.sendusername := "adress@gmail.com"
fields.sendpassword := "password"
fields.smtpconnectiontimeout := 60
schema := "http://schemas.microsoft.com/cdo/configuration/"
pfld :=   pmsg.Configuration.Fields
For field,value in fields
	pfld.Item(schema . field) := value
pfld.Update()
Loop, Parse, sAttach, |, %A_Space%%A_Tab%
  pmsg.AddAttachment(A_LoopField)
pmsg.Send()
}

f1::
SendMail(adress@gmail.com, Report, Render Complete!)
return

Re: AHK: Отправить email при событии

null@example.com (becauseim) — Wed, 07 Dec 2016 23:15:31 +0000

Не пойму только, как привязать такой скрипт к событию. Например, при закрытии заданного окна. И можно ли преобразовать сценарий в функцию, чтобы задавать адресатов и тело сообщения для каждого события? Например, при закрытии одного окна отправлять одно сообщение, а при закрытии другого - другое сообщение. Т.е. как-то так:


WinWait, Notepad
WinWaitClose, Notepad
SendMail(mail_1@gmail.com, mail_2@gmail.com, Привет!) ; отправить на две разные почты сообщение "Привет!"
return

Re: AHK: Отправить email при событии

null@example.com (becauseim) — Wed, 07 Dec 2016 22:58:28 +0000

Malcev, спасибо! Теперь работает.

Re: AHK: Отправить email при событии

null@example.com (Malcev) — Wed, 07 Dec 2016 04:32:04 +0000

А в гугле двухэтапная аутентификация?
Если да, то надо тут разрешить:
https://www.google.com/settings/security/lesssecureapps

Re: AHK: Отправить email при событии

null@example.com (becauseim) — Wed, 07 Dec 2016 00:24:36 +0000

rowe, закомментировал, не помогло. Может, не та версия AHK?

Re: AHK: Отправить email при событии

null@example.com (rowe) — Tue, 06 Dec 2016 19:09:50 +0000

Да, все верно. Если нет вложений закомментируйте sAttach. Код полный.

Re: AHK: Отправить email при событии

null@example.com (becauseim) — Tue, 06 Dec 2016 18:40:26 +0000

Перед запуском скопированного сценария из 19-го поста редактирую строки: 2, 3, 23, 24.

Re: AHK: Отправить email при событии

null@example.com (becauseim) — Tue, 06 Dec 2016 18:36:01 +0000

rowe, только что скопировал заполненные данные в скрипте в браузер и вошел в учетную запись Google. Это полный код или его часть?

Re: AHK: Отправить email при событии

null@example.com (rowe) — Tue, 06 Dec 2016 18:27:07 +0000

Ветка форума. Проверил у себя на двух компьютерах, отправляет без ошибок.

Re: AHK: Отправить email при событии

null@example.com (becauseim) — Tue, 06 Dec 2016 17:45:00 +0000

rowe, выходит ошибка. Сообщение не приходит.