51Testing软件测试论坛

标题: 调用outlook发邮件，请问哪里错了，收不到邮件 [打印本页]

作者: deadhunter 时间: 2011-10-25 20:25
标题: 调用outlook发邮件，请问哪里错了，收不到邮件
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

作者: archonwang 时间: 2011-10-26 15:08
好像是VB，尝试下运行会有什么问题。

作者: ermine 时间: 2011-10-26 16:00
Mail.Attachment.Add(Attachment)

应该是 Mail.Attachments.Add(Attachment)

不过话说，你运行后，没报错么。。

作者: wower1985 时间: 2011-10-27 10:45
这代码简单，到处都是，你调用的时候加msgbox 信息，看你信息内容取到了吗？再看outlook对象创建成功了吗，再看你邮件发送出去了吗，。。。。。。。。

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