[VBS]使用脚本自动发送邮件

最新推荐文章于 2024-07-13 12:05:36 发布

snakeman

最新推荐文章于 2024-07-13 12:05:36 发布

阅读量1.3k

点赞数

分类专栏： VBS脚本文章标签：脚本 email 服务器 c

本文链接：https://blog.csdn.net/snakeman/article/details/3497201

版权

VBS脚本专栏收录该内容

1 篇文章 0 订阅

订阅专栏

'Ok

NameSpace="http://schemas.microsoft.com/cdo/configuration/"

Set Email=CreateObject("CDO.Message")

Email.From="mail@mail.com"        '发件人地址
Email.To="to@mail.com"                '收件人地址
Email.Subject="Mail"                        '邮件标题

Email.Textbody="test" '邮件正文

Email.AddAttachment "C:/abc.txt" '附件

With Email.Configuration.Fields
    .Item(NameSpace & "sendusing") = 2
    .Item(NameSpace & "smtpserver") = "smtp.mail.com"        '发件人SMTP服务器地址
    .Item(NameSpace & "smtpserverport") = 25                        '发件人SMTP服务器端口
    .Item(NameSpace & "smtpauthenticate")=1                        '邮箱需要身份验证
    .Item(NameSpace & "sendusername") = "mail.@mail.com"    '发件人地址
    .Item(NameSpace & "sendpassword") = "password"            '发件人邮箱密码
    .Update
End With

Email.Configuration.Fields.Update

Email.Send

Set Email=Nothing