将一下内容保存为.vbs格式:

set Email=CreateObject("CDO.Message")
Email.From="发件人邮箱"
Email.To="收件人邮箱"
Email.Subject="主题"
Email.Textbody="邮件内容"
Email.AddAttachment "d:\shenqing.txt" '附件地址
with Email.Configuration.Fields
.Item(NameSpace&"sendusing")=2
.Item(NameSpace&"smtpserver")="smtp.163.com" '发件人发信邮件服务器
.Item(NameSpace&"smtpserverport")=25
.Item(NameSpace&"smtpauthenticate")=1
.Item(NameSpace&"sendusername")="发件人用户名" '
.Item(NameSpace&"sendpassword")="发件人密码"
.Update
end with
Email.Send
转载请尊重版权,出处:秋天博客 本文链接: https://www.cfresh.net/pc-tech/537