CDO.Message 发邮件 Autohotkey | Thinkai's Blog

Thinkai's Blog

Autohoutkey|Python|php|aardio|VOIP|IT 爱好者

CDO.Message 发邮件 Autohotkey 2994

作者为 发表

Autohotkey

Mail("sender@mail.com","receiver@mail.com","测试" A_Now,"正文空空如也")
;qq邮箱需要到网页邮箱设置-账户里面开启smtp服务,密码是另外生成的密码

Mail(from,to,subject,content,attach*){ ;发件人,收件人,标题,正文,附件文件路径数组 eg:["d:\a.xls","d:\b.doc"]
NameSpace := "http://schemas.microsoft.com/cdo/configuration/"
Email := ComObjCreate("CDO.Message")
Email.From := from
Email.To := to
;Email.Cc := "cc@mail.com" ;抄送
;Email.Bcc := "bcc@mail.com" ;暗送
Email.Subject := subject
;Email.Htmlbody := content ;html格式的正文
Email.Textbody := content ;纯文本格式的正文
for k,v in attach
{
IfExist, % v
Email.AddAttachment(v)
}
Email.Configuration.Fields.Item(NameSpace "sendusing") := 2
Email.Configuration.Fields.Item(NameSpace "smtpserver") := "smtp.mail.com" ;SMTP服务器地址
Email.Configuration.Fields.Item(NameSpace "smtpserverport") := 25 ;smtp发送端口 qq:465
Email.Configuration.Fields.Item(NameSpace "smtpauthenticate") := 1 ;需要验证
;Email.Configuration.Fields.Item(NameSpace "smtpusessl") := true ;使用ssl qq等需要
Email.Configuration.Fields.Item(NameSpace "sendusername") := "sender@mail.com" ;邮箱账号
Email.Configuration.Fields.Item(NameSpace "sendpassword") := "password" ;邮箱密码
Email.Configuration.Fields.update()

Email.Fields.Item("urn:schemas:mailheader:disposition-notification-to") := from ;设置“已读”回执
Email.Fields.Item("urn:schemas:mailheader:return-receipt-to") := from ;设置“已送达”回执
Email.Fields.Update()

Email.Send
}




评论功能已被关闭。

友情链接:Autohotkey中文论坛Autohotkey中文帮助Autohotkey官网我的B站直播间如若生涯一场梦博客联系作者免GooglePlay APK下载

 主题设计 • skyfrit.com  Thinkai's Blog | 保留所有权利

63 queries in 1.056 seconds |