(转) QTP Scripting - 实践7
上一篇 /
下一篇 2008-12-20 12:03:32
/ 个人分类:QTP
思路:利用 cmo和 outlook对象
解决方法1:
Dim Outlook 'As New Outlook.Application
Set ōutlook = CreateObject("Outlook.Application")
Dim Message 'As Outlook.MailItem
Set Message = Outlook.CreateItem(olMailItem)
With Message
.Subject ="hello"
.Body = "test\"
'Set destination email address
.Recipients.Add ("pcl@51testing.com")
.Send
End With
解决方法2:
Dim Email As Object NameS = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "****@qq.com" '//你自己的油箱号码 Email.To = "" ' // 要发的人 Email.Subject = "" '//相当于邮件里的标题 Email.Textbody = "" '//相当于邮件里的内容 Email.Configuration.Fields.Item(NameS & "sendusing") = 2 Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.qq.com" '// 服务器 Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25 '//端口号 Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1 Email.Configuration.Fields.Item(NameS & "sendusername") = "**" '//油箱号码@前面的名字 Email.Configuration.Fields.Item(NameS & "sendpassword") = "**" '//你油箱的密码 Email.Configuration.Fields.Update Email.Send
|
收藏
举报
TAG: