51Testing软件测试论坛

标题: 发个ＳＥＮＤ　ＭＡＩＬ的　很好很强大 [打印本页]

作者: lingxin5013 时间: 2008-7-23 17:32
标题: 发个ＳＥＮＤ　ＭＡＩＬ的　很好很强大
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

作者: 没有蛀牙 时间: 2008-7-23 18:16
谢谢
如何去check有没有收到这封邮件呢

作者: 假装不在 时间: 2008-7-23 18:19
强大嘛，还行。
PS：
objOutlookMsg.CC可以实现CC功能，可以发送给多个人。

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

作者: tanky 时间: 2008-7-23 21:13
QTP Plus里面的代码

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

这个还需要配置OutLook。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)