51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2028|回复: 4
打印 上一主题 下一主题

[原创] 调用outlook发邮件,请问哪里错了,收不到邮件

[复制链接]
  • TA的每日心情
    郁闷
    2018-11-15 14:58
  • 签到天数: 2 天

    连续签到: 2 天

    [LV.1]测试小兵

    跳转到指定楼层
    1#
    发表于 2011-10-25 20:25:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    Function SendMail(sSendTo,sSendCC,sSubject,sBody,Attachment)
        sSendTo = "123123@qq.com"
        'sSendCC =  "123123@tset.com"
            sSubject = "测试报告"
            sBody = "测试通过"
            Attachment = "D:\2009总结.doc\"
        Set ol = CreateObject(Outlook.Application)
        Set Mail = ol.CreateItem(0)
            Mail.display
            Mail.To = sSendTo
            Mail.cc = sSendCC
            Mail.Subject = sSubject
            Mail.Body = sBody
            If(Attachment) Then
               Mail.Attachment.Add(Attachment)
            End If
            Mail.Send
            ol.Quit
            Set Mail = Nothing
            Set ol = Nothing

    End Function
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

  • TA的每日心情
    奋斗
    2018-2-28 18:04
  • 签到天数: 40 天

    连续签到: 1 天

    [LV.5]测试团长

    2#
    发表于 2011-10-26 15:08:04 | 只看该作者
    好像是VB,尝试下运行会有什么问题。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
    发表于 2011-10-26 16:00:38 | 只看该作者
    Mail.Attachment.Add(Attachment)

    应该是 Mail.Attachments.Add(Attachment)

    不过话说,你运行后,没报错么。。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2011-10-26 16:00:51 | 只看该作者
    Mail.Attachment.Add(Attachment)

    应该是 Mail.Attachments.Add(Attachment)

    不过话说,你运行后,没报错么。。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
    发表于 2011-10-27 10:45:13 | 只看该作者
    这代码简单,到处都是,你调用的时候 加msgbox 信息,看你信息内容取到了吗?再看outlook对象创建成功了吗,再看你邮件发送出去了吗,。。。。。。。。
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-24 17:47 , Processed in 0.071327 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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