51Testing软件测试论坛

标题: QTP在用Action编写发送邮件的脚本时，添加附件识别不了 [打印本页]

作者: wang88735 时间: 2009-11-21 19:48
标题: QTP在用Action编写发送邮件的脚本时，添加附件识别不了
在用Action编写发送带有附件的脚本时，添加附件识别不了(用网易163邮箱做的)，添加附件的对话框打不开（回放时）。有高手帮忙解决下吗？

[ 本帖最后由 wang88735 于 2009-11-21 19:58 编辑 ]

作者: zero0223 时间: 2009-11-23 08:54
Function sendmail(touser,fromuser,txtfile,title,name,pwd)'邮件发送
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = fromuser '发信人地址
Email.To = touser '收信人地址
Email.Subject = title '邮件主题
Email.Textbody="#######"&vbcrlf&now
Email.AddAttachment newfileMT'添加附件
with Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "****.com" '这是126邮箱的服务器地址
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = name '发信人用户名
.Item(NameSpace&"sendpassword") = pwd '发信人密码
.Update
End With
Email.Send
Set Email=Nothing
End Function

LZ参考下，这是我们目前用的邮件发送代码，可用

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