QTP自动发送邮件的解决方案？

language_fw

使用的是office 2003的Outlook ,使用QTP自动发送邮件的时候,OutLook 会自动弹出一个错误信息，怎样才能把错误信心屏蔽呢？

在弹出图片后还会要求你输入用户名和密码的？

xiaoyaoke

关注中，我也同样遇到了这个问题，并且还没有想到解决办法

language_fw

' Send Email without Installing the SMTP Service

' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : Yes

Public Function Send_mail ( You_Account, Send_Email, Subject, Body)
Set objEmail = CreateObject("CDO.Message")
'发送人
objEmail.From = You_Account
'收件人
objEmail.To = Send_Email
'主题
objEmail.Subject = Subject
'内容
objEmail.Textbody = Body
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'服务器
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "自己公司的STMP"
'端口号
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End Function

这样就搞定了，分享给大家学习一下。

leo_hu_100

可以参考微软的脚本库：
http://www.microsoft.com/technet ... pmail/mssmvb01.mspx

安子

关于outlook和mozilla发送邮件的问题，希望大侠们多提建议

安子

我运行那个脚本 怎么提示:
“邮件无法发送到 SMTP 服务器。传输错误代码为 0x80040217。服务器响应为 not available”

安子

xiaoyaoke  language_hw
能否告知你的MSN或QQ,有问题找你探讨，关于发送邮件的问题

安子

objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "自己公司的STMP"
公司企业信箱
stmp：smtp.263xmail.com

tiger_86

谢谢了！ 正要搞的东西，看到 希望的 曙光了

安子

我也看到了

安子

我顶一下
楼主怎么不看他写的帖子

安子

我把脚本运行到这里objEmail.Send的时候
会报错：smtp错误