2019獨角獸企業重金招聘Python工程師標準>>>

1、核心代碼?

Dim objOutlook Dim objOutMsg Dim olMailItem'Create the Outlook object and the new mail object. Set objOutlook = CreateObject("Outlook.Application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) Set mapi = objOutlook.GetNameSpace("MAPI")'Define mail recipients objOutlookMsg.To = "mengfeiyang@gpic.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 mail objOutlookMsg.Display'Send the message objOutlookMsg.Send'Release the objects Set objOutlook = Nothing Set mapi = Nothing

2、完整工程

代碼直接導入UFT中即可。

https://yunpan.cn/cBVxDWBf3zRBN （提取碼：cff6）

轉載于:https://my.oschina.net/u/2391658/blog/704808

總結

以上是生活随笔為你收集整理的UFT开发实例：QTP调用OutLook自动发送邮件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。