51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2291|回复: 2
打印 上一主题 下一主题

[原创] 现在用QTP,如何发送foxmail,发邮件,加附近等

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2011-2-16 18:10:13 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如题,我只有outlook的,现在公司只装foxmail,求助
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2011-2-17 09:08:02 | 只看该作者
自己顶下
回复 支持 反对

使用道具 举报

  • TA的每日心情
    奋斗
    2014-12-18 10:31
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    3#
    发表于 2011-2-17 15:31:02 | 只看该作者

    下面代码是个通用方法

    Public Function Sendmail(mailfrom,mailto,smtp,username,password,mailtitle,mailbody,attachment)
    '参数说明:
    '发件人:mailfrom 收件人:mailto 邮件发送服务器:smtp 发件人邮箱地址:username 发件人邮箱密码:password 邮件标题:mailtitle 邮件内容:mailbody 附件路径:attachment
    NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
    Set Email = createObject("CDO.Message")
    Email.From =mailfrom
    Email.To = mailto
    Email.Subject = mailtitle
    Email.Textbody = mailbody
    Email.AddAttachment attachment
    With Email.Configuration.Fields
    .Item(NameSpace&"sendusing") = 2
    .Item(NameSpace&"smtpserver") = smtp
    .Item(NameSpace&"smtpserverport") = 25
    .Item(NameSpace&"smtpauthenticate") = 1
    .Item(NameSpace&"sendusername") = username
    .Item(NameSpace&"sendpassword") = password
    .update
    End With
    Email.Send
    End Function
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-9 06:22 , Processed in 0.095839 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表