利用微软自带的vbs脚本，编写一个vbs脚本发送邮件的小东西！很简单的，可以放心使用，不过这应该是明文发送，千万不要在网吧使用，容易被截获哦。
////////////////////////////////////////////////////////////

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"’这个必须有，应该是VBS脚本链接微软网站获取某些支持应用的，删除的话vbs脚本会报错！
set Email = CreateObject("CDO.Message")’调用vbs邮件接口
Email.From = "ksfer124@163.com" '发信人地址
Email.To = "mtksol@163.com" '收信人地址（qq邮箱也可）
Email.Subject = "vbs脚本发邮件" '邮件主题
x="d:\邮件.txt" '发信内容写在d:\邮件.txt中
y="d\莫言小说.txt" '这是需发送的附件D盘的txt文档（也可以是其他附件，不要太大！）。
Set fso=CreateObject("Scripting.FileSystemObject")’下面一般都是一些接口函数的调用，不做解释
Set myfile=fso.OpenTextFile(x,1,Ture)
c=myfile.readall
myfile.Close
Email.Textbody = c
Email.AddAttachment y
with Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.163.com" '这是163邮箱服务器地址，qq邮箱等请自行填写smtp地址
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "ksfer124" '发信人用户名
.Item(NameSpace&"sendpassword") = "password123" '发信人密码，也就是ksfer124@163.com的邮箱密码！
.Update
end with
Email.Send
Set Email=Nothing

////////////////////////////////////////////////////////////
将以上内容保存为.VBS格式运行就可以了！实测可行！

后记：
本人已经把他加入windows的任务计划了，每小时发送指定邮件哦！

基于互联网精神，在注明出处的前提下本站文章可自由转载！

本文链接：https://ranjuan.cn/使用vbs脚本发送邮件（带附件）/