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

caixing801929

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

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

lingxin5013

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

285929602

你的机器上有安装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

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

获取"邮件正文部分"对象到对象库：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