实现用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服务器可以匿名,那么用户名、密码、明文验证都可以省略了。
分享到:
相关推荐
一些常用的VBscript 文件是CHM,如果打开来是404页面 可以去google查查原因.
QTP脚本语言VBS编程VBScript学习的的基础笔记整理,QTP脚本语言VBS的编程能力的操作教程,文档中的图文解说非常详细,很适合初学者和QTP能力的进阶提升
qtp脚本语言VBScript资料,Vbs脚本编程简明教程和工具,希望对大家有用。 VBScript.chm,点击该文件右键属性,解除锁定就ok了
VBScript实例 打包的不是很多!!!正好我找到一些分享给大家
QTP错误截图、处理以及发送,QTP运行错误时,错误信息截图发送邮箱
QTP与QC的结合实现自动化测试框架 ——业务组件测试案例
使用vbscript脚本调用QTP并运行脚本。 配合http://download.csdn.net/detail/nor1127/5394005的代码文件,将文件解压到D/Tests即可使用。
VBS是学习使用QTP必须要掌握的基础知识,要做QTP自动化测试高手,建议先学习点VBS基础
Main_Users_Guide.pdf中文 ...VBscript错误处理.txt WEB通用功能的测试用例设计.docx 读取EXCEL用例中的参数到QTP中去.txt 相对路径和绝对路径的获取和访问.txt 一位高人的QTP学习笔记.doc 在QTP中如何使用Class.txt
QTP QTP
qtp资料qtp资料
qtp基础知识文档-VBScript 基础
QTP脚本语言vbs的编写操作规范教程,文档中的图文解说非常详细,很适合初学者和QTP能力的进阶提升
QTP对象库简介
Accessing_PDF ADODB DotNetFactory qtp_基础代码 QTP-SystemUtil QTP操作 1 QTP操作 2 QTP操作 3 QTP操作 4 QTP操作 5 QTP操作 6 shell32 ...慢慢学习 VBScript (V1[ 1].0) 文件操作 正则表达
QTP脚本语言VBS编程VBScript的基础全面整理,QTP脚本语言VBS的编程能力的操作教程,文档中的图文解说非常详细,很适合初学者和QTP能力的进阶提升
提供QTP下载地址
qtp9.2插件qtp9.2插件qtp9.2插件qtp9.2插件qtp9.2插件qtp9.2插件qtp9.2插件qtp9.2插件
QTP安装和使用教程; QTP自动化测试; QTP安装过程中的注意事项;