ahk发送邮件

tiandao321

于 2022-10-13 09:39:02 发布

阅读量726

点赞数

分类专栏：要弄得东西文章标签： servlet java mybatis

本文链接：https://blog.csdn.net/tiandao321/article/details/127295173

版权

要弄得东西专栏收录该内容

1 篇文章 1 订阅

订阅专栏

#SingleInstance Force

sFileName := A_Args[1]  ;; 傳入參數必須帶有路徑
/*if (sFileName = "") {
  MsgBox 必須傳入完整檔名
  return
}  
*/
pmsg := ComObjCreate("CDO.Message")
;;pmsg.Charset := "UTF-8"
pmsg.From := "datalzy2@163.com"
pmsg.To := "datalzy1@163.com"
pmsg.BCC := ""   ; Blind Carbon Copy, Invisable for all, same syntax as CC
pmsg.CC := ""   
pmsg.Subject := "检测到卡死出现:" . sFileName

;You can use either Text or HTML body like
pmsg.TextBody := "傳送檔名:" . sFileName
;OR
;pmsg.HtmlBody := "<html><head><title>Hello</title></head><body><h2>Hello</h2><p>Testing!</p></body></html>"

;;MsgBox %sFileName%
sAttach := sFileName ; can add multiple attachments, the delimiter is |

fields := Object()
fields.smtpserver := "smtp.163.com" ; specify your SMTP server
fields.smtpserverport := 465 ; 25
fields.smtpusessl := True ; False
fields.sendusing := 2   ; cdoSendUsingPort
fields.smtpauthenticate := 1   ; cdoBasic
fields.sendusername := "datalzy2@163.com"
fields.sendpassword := "申请的smtp密码"
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()