CDO.Message 发邮件

最新推荐文章于 2024-09-10 13:04:20 发布

转载最新推荐文章于 2024-09-10 13:04:20 发布 · 795 阅读

文章标签：

#ahk #邮件

脚本同时被 2 个专栏收录

4 篇文章

订阅专栏

网络

3 篇文章

订阅专栏

通过配置邮件服务器和账户信息，实现自动发送包含IP变动信息的邮件。

NameSpace := "http://schemas.microsoft.com/cdo/configuration/"
Email := ComObjCreate("CDO.Message")
Email.From := "sunshinezxk@163.com"
Email.To := "386283215@qq.com"
Email.Subject := "IP变动邮件"
Email.Htmlbody := "IP:192.168.56.1"
;Email.AddAttachment("C:\foo.zip")
Email.Configuration.Fields.Item(NameSpace "sendusing") := 2
Email.Configuration.Fields.Item(NameSpace "smtpserver") := "smtp.163.com" ;SMTP服务器地址
Email.Configuration.Fields.Item(NameSpace "smtpserverport") := 25
Email.Configuration.Fields.Item(NameSpace "smtpauthenticate") := 1
Email.Configuration.Fields.Item(NameSpace "sendusername") := "xxxx@163.com" ;邮箱账号
Email.Configuration.Fields.Item(NameSpace "sendpassword") := "xxxx" ;邮箱密码
Email.Configuration.Fields.update
Email.Send