VBS发送邮件（163邮箱到QQ邮箱或Gmail）

最新推荐文章于 2018-06-18 14:32:50 发布

lynch0571

最新推荐文章于 2018-06-18 14:32:50 发布

阅读量7k

点赞数

分类专栏：其他文章标签： qq邮箱 gmail 163邮箱 vbs 发送邮件

本文链接：https://blog.csdn.net/lynch0571/article/details/22057207

版权

其他专栏收录该内容

4 篇文章 0 订阅

订阅专栏

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

Set Email = CreateObject("CDO.Message") 

Email.From = "***********@163.com" 

Email.To = "************@qq.com"
'Email.To = "************@gmail.com"

Email.Subject = "Test sendmail.vbs" 

Email.Textbody = "OK!" 

Email.AddAttachment "C:\test.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") = "***********@163.com" 

.Item(NameSpace&"sendpassword") = "********" 

.Update 

End With 

Email.Send