最近研究QTP和.net可以结合使用发送邮件，自创方法记录一下

Eric_GuoDongliang

于 2015-03-13 16:08:10 发布

阅读量1k

点赞数

分类专栏： .net

本文链接：https://blog.csdn.net/Eric_GuoDongliang/article/details/44242569

版权

.net 专栏收录该内容

34 篇文章 0 订阅

订阅专栏

Set oSmtpClient=DotNetFactory("System.Net.Mail.SmtpClient","System")
Set oCredentials=DotNetFactory("System.Net.NetworkCredential","System")
Set oMailMessage=DotNetFactory("System.Net.Mail.MailMessage","System")
Set oMailAddressFrom=DotNetFactory("System.Net.Mail.MailAddress","System","xxxx@139.com","Jxxxx_HP_QTP")
Set oMailAddressTo=DotNetFactory("System.Net.Mail.MailAddress","System","xxxxx@hp.com")
Set oAttachment=DotNetFactory("System.Net.Mail.Attachment","System","C:\SSUUpdater.log")
oCredentials.UserName="xxxxxxx@139.com"
oCredentials.Password="jiangsumobile"
oSmtpClient.Host="smtp.xxx.com"

oSmtpClient.Credentials=oCredentials

oMailMessage.From=oMailAddressFrom
oMailMessage.isBodyHTML=True
oMailMessage.To.Add("xxxxx@hp.com")
oMailMessage.Cc.Add("xxxxx@hp.com")
oMailMessage.Subject="Test QTP Send Email"
oMailMessage.Attachments.Add oAttachment
oMailMessage.Body="Just a Test"

oSmtpClient.Send oMailMessage