首页 > 编程 > VBScript > 正文

vbs sendmail发邮件带附件方法

2020-07-26 11:56:50

字体：大中小

来源：转载

供稿：网友

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "zzzevazzz@21cn.com"
Email.To = "zzzevazzz@126.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:/foo.zip"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.21cn.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "zzzevazzz"
.Item(NameSpace&"sendpassword") = "ph4nt0m!"
.Update
End With
Email.Send

上一篇：用vbs实现虚拟主机和域名查循的脚本

下一篇：用vbs清空iis log 中自己登录ip的记录

学习交流

选择笔记本处理器（CPU）需避免那些误区和基

选择笔记本处理器（CPU）需避免那些误区和基本常识...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

中国移动6月净增5G套餐用户1459万户累计达7019.9万户

2020-07-20 18:48:56

蚂蚁集团计划在科创板和港交所同步上市估值超2000亿美元

2020-07-20 18:46:41

传滴滴最快年内在香港IPO 目标估值800亿美元

2020-07-20 18:43:20

小鹏汽车宣布C+轮融资近5亿美元高瓴红杉等为主要投资者

2020-07-20 18:35:48

微博内测热搜定制功能你可以愉快地吃瓜了吗？

2020-07-17 23:29:31

Twitter证实：黑客一共瞄准130个名人账号

2020-07-17 23:24:56

疑难解答

图片精选

网友关注