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

来源：互联网发布：java开发单片机编辑：程序博客网时间：2024/05/16 09:11

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

0 0