QTP发送邮件

        Dim objOutlook
        Dim objOutlookMsg
        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 = "send mail1@139.com;mail2@139.com" '邮件收件人,多个收件人用分号隔开
        'objOutlookMsg.CC = "my@email.com"  ’抄送人
        ' objOutlookMsg.BCC = "my@email.com" ‘密送人
        ' Body of the message
        objOutlookMsg.Subject = "邮件主题"  ’邮件主题
        objOutlookMsg.Body ="邮件内容" ‘邮件内容
        'Display the email
       objOutlookMsg.Display
        ' Send the message
        objOutlookMsg.Send
        ' Release the objects
        objOutlook.quit
        Set objOutlook = Nothing

        Set mapi = Nothing

如果发送邮件时出现以下对话框，可以进行设置:进入Outlock->工具->信息中心->编程访问->选中“从不向我发出可疑活动警告(不推荐)";

转自：http://jingyan.baidu.com/article/1974b289bccfe0f4b0f7744d.html