都知道 - 都知道 - 知识图谱网站

vb.net 文本框中的vbs

VBS中用CDO.Message发送邮件的实现代码

VBS中用CDO.Message发送邮件的实现代码 更新时间:2011年01月21日23:15:40 作者: 曾经在编写VBS版U盘小偷程序的时候Google过怎么用VBS发送E-Mail,不知道为什么当时Google不到,可能是眼花了吧。使用CDO.Message对象就可以实现,示例代码演示的是gmail发送纯文本并带附件的邮件,至于其他的电子邮箱,需要修改代码中对应的smtp服务器和端口,原理也是一样的,就不举例了。贴出来的代码没有写注释,需要看注释的请下载源码。
复制代码代码如下:
ConstEmail_From="still.demon@gmail.com"
ConstPassword="password"
ConstEmail_To="380401911@qq.com"
SetCDO=CreateObject("CDO.Message")
CDO.Subject="FromDemon"
CDO.From=Email_From
CDO.To=Email_To
CDO.TextBody="Helloworld!"
cdo.AddAttachment="C:\hello.txt"
Constschema="http://schemas.microsoft.com/cdo/configuration/"
WithCDO.Configuration.Fields
.Item(schema&"sendusing")=2
.Item(schema&"smtpserver")="smtp.gmail.com"
.Item(schema&"smtpauthenticate")=1
.Item(schema&"sendusername")=Email_From
.Item(schema&"sendpassword")=Password
.Item(schema&"smtpserverport")=465
.Item(schema&"smtpusessl")=True
.Item(schema&"smtpconnectiontimeout")=60
.Update
EndWith
CDO.Send

详细注释版:
复制代码代码如下:
'Date:2010/6/18
'Author:Demon
'QQ:380401911
'E-mail:still.demon@gmail.com
'Website:http://demon.tw

ConstEmail_From="ddd@163.com"'发件人邮箱
ConstPassword="password"'发件人邮箱密码
ConstEmail_To="380401911@qq.com"'收件人邮箱

SetCDO=CreateObject("CDO.Message")'创建CDO.Message对象
CDO.Subject="FromDemon"'邮件主题
CDO.From=Email_From'发件人地址
CDO.To=Email_To'收件人地址
CDO.TextBody="Helloworld!"'邮件正文
cdo.AddAttachment="C:\hello.txt"'邮件附件文件路径
Constschema="http://schemas.microsoft.com/cdo/configuration/"'规定必须是这个,我也不知道为什么

WithCDO.Configuration.Fields'用with关键字减少代码输入
.Item(schema&"sendusing")=2'使用网络上的SMTP服务器而不是本地的SMTP服务器
.Item(schema&"smtpserver")="smtp.gmail.com"'SMTP服务器地址
.Item(schema&"smtpauthenticate")=1'服务器认证方式
.Item(schema&"sendusername")=Email_From'发件人邮箱
.Item(schema&"sendpassword")=Password'发件人邮箱密码
.Item(schema&"smtpserverport")=465'SMTP服务器端口
.Item(schema&"smtpusessl")=True'是否使用SSL
.Item(schema&"smtpconnectiontimeout")=60'连接服务器的超时时间
.Update'更新设置
EndWith

CDO.Send'发送邮件

原文:http://demon.tw/programming/vbs-send-email.html