老婆测试工具培训记-qtp scriping-实践7

write a program to send email?

思路：利用 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：