[QTP]vbscript通过CDO组件发送电子邮件

实现用VBScript发送电子邮件很简单。下边用到的CDO是微软协作数据对象库，用于实现到自定义应用程序的消息传送和协作功能。

我们利用微软CDO对象用以下代码实现使用SMTP协议发送电子邮件：

Set objEmail = CreateObject("CDO.Message")

SendMail()

>>>>>>>>>>>>>>>>>>>>>>>>>>>以下SendMail实现发送邮件功能<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

>>>>>>>>>>>>函数仅是功能演示，并没有定义入参，可以根据实现情况将函数中要用到的信息，采用参数传递进来<<<<<<<<<<<<

FunctionSendMail
<wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.From = "发件人地址" '发件人<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.To = "收件人地址" '收件人<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.Subject = "电子邮件主题" '电子邮件主题主题<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.Textbody = "电子邮件内容" '电子邮件内容</wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr>

objEmail.AddAttachment("D:\test.xlsx")
<wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.Configuration.Fields.Item _<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr>("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.Configuration.Fields.Item _<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr>("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP服务器地址" 'SMTP服务器地址<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.Configuration.Fields.Item _<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr>("http://schemas.microsoft.com/cdo/configuration/sendusername") = "用户名" '用户名<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.Configuration.Fields.Item _<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr>("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "密码" '密码<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.Configuration.Fields.Item _<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr>("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '明文验证<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.Configuration.Fields.Item _<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr>("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'SMTP端口号<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.Configuration.Fields.Update<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr>objEmail.Send</wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr>

set objEmail=nothing
End Function

当然，如果你的SMTP服务器可以匿名，那么用户名、密码、明文验证都可以省略了。