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

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

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

Set objEmail = CreateObject("CDO.Message")

SendMail()

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

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

Function SendMail
        objEmail.From = "发件人地址" '发件人
        objEmail.To = "收件人地址" '收件人
        objEmail.Subject = "电子邮件主题" '电子邮件主题主题
        objEmail.Textbody = "电子邮件内容" '电子邮件内容

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

set objEmail=nothing
End Function

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