Office中国论坛/Access中国论坛

标题: [求助]还不行啊----发送邮件问题始终有错误 [打印本页]

作者: frownies 时间: 2006-6-23 06:10
标题: [求助]还不行啊----发送邮件问题始终有错误
各位高手，我的系统急需向客户发送邮件，模仿了许多的例子，就是搞不通，笨啊，特请教高手帮我看看。

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

[attach]18664[/attach]

在此我先感谢各位了

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

作者: fan0217 时间: 2006-6-23 06:31
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。

作者: fan0217 时间: 2006-6-23 06:36
DoCmd.SendObject acSendTable, "Employees", acFormatXLS, _
"Nancy Davolio; Andrew Fuller", "Joan Weber", , _
"Current Spreadsheet of Employees", , False

作者: fan0217 时间: 2006-6-23 06:38
超链接地址：

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

复制代码

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

作者: frownies 时间: 2006-6-23 06:59
版主您好，谢谢您的回复，根据您第一个提示我试着做了，现在的问题停留在“.Send”上并报了一个错误（见附件），请您再看看。

另外您2、3两个回复是要我再试吗？[attach]18665[/attach]

作者: frownies 时间: 2006-6-25 01:44
还有问题呢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)