SendMail "******@163.com","收件人姓名","subject","This is a test Email","席飞剑","xifj@163.com"
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,strAttachPath)
'函数参数说明(收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址)
'on error resume next
Dim JMail,MailServer,Flag
Set JMail=CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312" '邮件编码,中文简体
JMail.silent=True 'Silent属性,表示屏蔽例外错误,返回FALSE或TRUE值,当值为TRUE时,表示邮件发送会忽略错误,不将错误信息返回给操作系统。
JMail.ContentType = "text/html" '邮件正文格式类型
MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器
JMail.MailServerUserName = "******" '登录用户名
JMail.MailServerPassWord = "******" '登录密码
JMail.MailDomain = "163.com" '域名(如果用"name@domain.com"这样的用户名登录时,请指明domain.com),可选
JMail.AddRecipient MailtoAddress,MailtoName '收信人邮箱和收信人名称
JMail.AddRecipientCC "需要CC的邮件列表" '如果需要CC抄送的话
JMail.Subject = Subject '主题
JMail.Body=MailBody '邮件正文
'JMail.AppendHTML(MailBody)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = 3 '表示邮件发送的优先级,1为最快,5为最慢,3为默认值。
if strAttachPath <> "" Then
Jmail.AddAttachment strAttachPath
End If
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close ' 释放Jmail和邮件服务器连接而使用的缓存空间
Set JMail=nothing
End Function
注:
1)使用前本机需要先安装JMail组件,否则创建对象时会报错误的。
2)
//邮件添加附件,(多附件的话,可以再加一条JMail.AddAttachment( "c:\\xifeijian.jpg",true,null);)就可以了。
//加了附件,把上面的JMail.ContentType="text/HTML";注释掉。否则会在邮件里出现乱码。
// Jmail.AddAttachment("c:\\xifeijian.jpg", true, null);
分享到:
相关推荐
一些常用的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安装过程中的注意事项;