QTP自动发邮件

http://www.51testing.com/?3528/action_viewspace_itemid_5211.html

http://bbs.51testing.com/viewthread.php?tid=54183

Dim objOutlook
Dim objOutlookMsg
Dim olMailItem
' Create the Outlook object and the new mail object.
Set ōbjOutlook = CreateObject("Outlook.Application")
Set ōbjOutlookMsg = objOutlook.CreateItem(olMailItem)
Set mapi = objOutlook.GetNameSpace("MAPI")
' Define mail recipients
objOutlookMsg.To = "gzj08@126.com"
'objOutlookMsg.CC = "my@email.com"
' objOutlookMsg.BCC = "my@email.com"
' Body of the message
objOutlookMsg.Subject = "QTP Test Mail"
objOutlookMsg.Body = "This is a test mail"
'Display the email
objOutlookMsg.Display
' Send the message
objOutlookMsg.Send
' Release the objects
objOutlook.quit
Set ōbjOutlook = Nothing
Set mapi = Nothing