使用VBS脚本发送邮件(带附件)

利用微软自带的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脚本发送邮件(带附件)/

赞赏

微信赞赏支付宝赞赏

docker安装gogs
批处理执行sql语句备份数据库
如何设计简单的php在线考试系统