caixing801929 发表于 2008-8-11 18:03:47

QTP录制126邮箱的发送邮件过程的问题

使用QTP录制126邮箱发送邮件的过程,录制完成后,回放脚本时,收到的邮件里正文没有内容(发邮件时是有的)。
专家视图中没有录入正文的脚本。好像是输入正文的地方的对象没有在对象库中,但小弟不知道怎么将那个对象添加到对象库中。
望各位大侠赐教,谢谢。

[ 本帖最后由 caixing801929 于 2008-8-11 18:05 编辑 ]

lingxin5013 发表于 2008-8-12 08:59:26

你说的比较抽象 最好把代码拿起来 你提出的问题我给出个大概的处理方法你尝试下
1:使用object spy添加
2:使用对象仓库强制添加该对象
希望对你有帮助

285929602 发表于 2008-8-12 09:54:54

你的机器上有安装Outlook吗?如果有安装,把Outlook配置成服务器成126的,126的帮助会提供如何配置Outlook的,能够实现通过Outlook收发邮件,然后接下来你可以进行QTP脚本的编写
Set oMessage = CreateObject("CDO.Message")
oMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'下面需要你126服务器的 Remote SMTP Server,你可以通过126帮助获取到,通常是url形式的。
oMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XX.126.com"
'Server port (typically 25)
oMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMessage.Configuration.Fields.Update

oMessage.Subject = "邮件标题"
oMessage.Sender = "发送人"
oMessage.To = "收件人"
oMessage.TextBody = "内容"
oMessage.Send

caixing801929 发表于 2008-8-12 10:04:14

Browser("网易126免费邮--你的专业电子邮局").Page("网易126免费邮--你的专业电子邮局").WebEdit("pass").SetSecure "48a0eb53a7ddf779c27d06dab4edcada66cae148a9e7275907d71756fff307c74e053f5733ab"
Browser("网易126免费邮--你的专业电子邮局").Page("网易126免费邮--你的专业电子邮局").WebButton("登 录").Click
Browser("网易126免费邮--你的专业电子邮局").Page("网易电子邮箱 - 逍遥3.0Beta").Frame("index").Link("写信").Click
Browser("网易126免费邮--你的专业电子邮局").Page("网易电子邮箱 - 逍遥3.0Beta").Frame("index").WebEdit("to").Set "haichentang@126.com"
Browser("网易126免费邮--你的专业电子邮局").Page("网易电子邮箱 - 逍遥3.0Beta").Frame("index").WebEdit("subject").Set "ceshi"
Browser("网易126免费邮--你的专业电子邮局").Page("网易电子邮箱 - 逍遥3.0Beta").Frame("index").WebElement("发送").Click
Browser("网易126免费邮--你的专业电子邮局").Page("网易电子邮箱 - 逍遥3.0Beta").Frame("index").Link("退出").Click
Browser("网易126免费邮--你的专业电子邮局").Page("网易126免费邮--你的专业电子邮局_2").Sync
Browser("网易126免费邮--你的专业电子邮局").Close
这个是我录制的代码,你说的使用那个object spy添加对象我试了,添加对象到对象库,但是回放的时候就发生错误。

xl_kaiser 发表于 2008-11-5 10:54:06

回复 1# 的帖子

获取"邮件正文部分"对象到对象库:Object Repository --Add Object to Local
将代码:
Browser("网易163免费邮--中文邮箱第一品牌").Page("网易电子邮箱 - 极速3.0正式版").Frame("HtmlEditor").WebElement("WebElement").Object.innerText="邮件正文部分"
添加到发送邮件代码的相应位置即可。

详见:http://user.qzone.qq.com/47936736/blog/1225811777
页: [1]
查看完整版本: QTP录制126邮箱的发送邮件过程的问题