[求助]还不行啊----发送邮件问题始终有错误

frownies

各位高手，我的系统急需向客户发送邮件，模仿了许多的例子，就是搞不通，笨啊，特请教高手帮我看看。

上传的例子中包含了几种发邮件的函数，无任哪种只要能发就成。我的系统环境是Office2000（我不想用2003）



在此我先感谢各位了

[此贴子已经被作者于2006-6-24 17:43:00编辑过]

frownies

还有问题呢

frownies

版主您好，谢谢您的回复，根据您第一个提示我试着做了，现在的问题停留在“.Send”上并报了一个错误（见附件），请您再看看。

另外您2、3两个回复是要我再试吗？

fan0217

超链接地址：

1. [b][color=#ff0066][url=mailto:fan0217@163.com?Subject=你好！]mailto[/color][/b]:fan0217@163.com?Subject=你好！[/url]

复制代码

[此贴子已经被作者于2006-6-22 22:40:09编辑过]

fan0217

DoCmd.SendObject acSendTable, "Employees", acFormatXLS, _
    "Nancy Davolio; Andrew Fuller", "Joan Weber", , _
    "Current Spreadsheet of Employees", , False

fan0217

Dim olApp As Outlook.Application
Dim myMail As MailItem

    Set olApp = Outlook.Application
    Set myMail = olApp.CreateItem(olMailItem)
    With myMail
        .Recipients.Add ("收件人地址")'多个地址用分号分开
        .Subject = "主题"
        .Body = "正文"
        .Save
        .Send
    End With



需要引用Outlook和正确配置Outlook。