]]>sAttach := "C:\Users\" A_UserName "\AppData\file" sendpngБез переменной в пути файл прикрепляется:
sAttach := "D:\file" sendpngПодскажите, где ошибка?
]]>a := "adress@gmail.com"
SendMail(a)
SendMail("adress@gmail.com")
SendMail(adress@gmail.com)
SendMail(To)
{
msgbox % to
}Поскольку вызов функции является выражением, не следует заключать в знаки процента имена переменных в списке ее параметров. И напротив, буквальные строки необходимо заключать в двойные кавычки
И переменные:
var := "test"
msgbox % Subject := "%var%"
msgbox % Subject := varSendMail(To, Subject, Body)
{
pmsg := ComObjCreate("CDO.Message")
pmsg.From := """I Am"" <adress@gmail.com>"
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
WinWait, Notepad
WinWaitClose, Notepad
SendMail(mail_1@gmail.com, mail_2@gmail.com, Привет!) ; отправить на две разные почты сообщение "Привет!"
return