QTP实现从outlook客户端自动发送邮件

最新推荐文章于 2024-06-05 10:44:50 发布

SHW800

最新推荐文章于 2024-06-05 10:44:50 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏：原创 QTP/UFT

本文链接：https://blog.youkuaiyun.com/SHW800/article/details/38238927

原创同时被 2 个专栏收录

30 篇文章

订阅专栏

QTP/UFT

9 篇文章

订阅专栏

本文介绍如何利用QTP实现自动发送邮件功能，并详细解释了在配置Outlook时需要设置‘从不发出可疑警告’以确保自动化测试顺利完成。通过关键代码示例，演示了发送邮件的具体步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

QTP也可以实现从outlook自动发送邮件，如果要做邮件自动化测试，这是个很好的方法。

注意：需要设置outlook，选项-信任中心-编程访问，设置为：从不发出可疑警告，自动化测试方可完成。

关键代码如下：

Function sendMailFromOutLook(SendTo,Subject,MailBody,Attachment,MailNumber)
    Set oWsh = CreateObject("WScript.Shell")
    oWsh.Run "OutLook"  'start outlook
    wait 5
    Dim i
    oWsh.SendKeys "{ESC}"  'close the warning box
    Set oWsh = Nothing
    For i = 1 To MailNumber
      Set oMail = CreateObject("Outlook.Application")
      Set Mail = oMail.CreateItem(0)

      Mail.to = SendTo
      Mail.Subject = Subject
      Mail.Body =  MailBody
      If Attachment<>"" Then
          Mail.Attachments.Add(Attachment)
      End If

      Mail.send
      'print "第 "&i&" 封邮件已发送"
      Set Mail = Nothing
      Set oMail = Nothing
      wait 5
    Next

End Function