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

来自(xifeijian):http://blog.csdn.net/xifeijian/article/details/8451926

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);