调用outlook发邮件，请问哪里错了，收不到邮件

deadhunter

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

好像是VB，尝试下运行会有什么问题。

ermine

Mail.Attachment.Add(Attachment)

应该是 Mail.Attachments.Add(Attachment)

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

ermine

Mail.Attachment.Add(Attachment)

应该是 Mail.Attachments.Add(Attachment)

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

wower1985

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