QTP在用Action编写发送邮件的脚本时，添加附件识别不了

wang88735

在用Action编写发送带有附件的脚本时，添加附件识别不了(用网易163邮箱做的)，添加附件的对话框打不开（回放时）。有高手帮忙解决下吗？

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

zero0223

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参考下，这是我们目前用的邮件发送代码，可用