发个ＳＥＮＤ ＭＡＩＬ的 很好很强大

lingxin5013

Dim objOutlook
Dim objOutlookMsg
Dim olMailItem
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
Set mapi = objOutlook.GetNameSpace("MAPI")
objOutlookMsg.To = "ＭＡＩＬ地址        "
objOutlookMsg.Subject = "qtp 发送"
objOutlookMsg.Body = "收到否"
objOutlookMsg.Display
objOutlookMsg.Send
objOutlook.quit
Set objOutlook = Nothing
Set mapi = Nothing

没有蛀牙

谢谢
如何去check有没有收到这封邮件呢

假装不在

强大嘛，还行。
PS：
objOutlookMsg.CC可以实现CC功能，可以发送给多个人。

至于如何实现添加附件，这个楼主就不知道啥叫强大吧...

tanky

QTP Plus里面的代码

感兴趣的人可以去搜一个叫Jmail的插件，比这强大多了。

这个还需要配置OutLook。