Office中国论坛/Access中国论坛

标题: ACCESS中调用OUTLOOK [打印本页]

作者: zjs0270 时间: 2008-1-9 12:41
标题: ACCESS中调用OUTLOOK
请教大家一个问题，我现在要在ACCESS中调用OUTLOOK来发送邮件，我邮件的名称是"test"，正文内容是"hello",附件是我里面的三个查询。我现在要将这三个查询作为3个txt格式的副本，分别发送给3个不同的人。请在按钮中帮我写一下。感谢
NITE-----zjs0270@163.com
XIWEI----zjs0270@126.com
YOJIA---zjs0270@sina.com.cn

作者: zjs0270 时间: 2008-1-9 14:22
感谢大家一起来想想

作者: wanshan 时间: 2008-1-9 15:23
之前做过一个自动发邮件的例子，可参考一下代码：
Dim olApp As Outlook.Application
Dim myMail As MailItem

Set olApp = Outlook.Application
Set myMail = olApp.CreateItem(olMailItem)
With myMail
      .Recipients.Add ("mymail@163.com")
      .Recipients.Add ("mymail2@163.com")
      .Subject = "邮件主题（" & Date & "  " & WeekdayName(Weekday(Date)) & "）"
      .Body = "邮件正文"
      .Attachments.Add ("D:\E-mail\附件.XLS")
      .Save
      .Send
End With

注意：1.需要引用Microsoft Outlook 9.0 Object Library；2.最好装Outlook 2000，高版本的有提示，需要点击后才能发送。

作者: zjs0270 时间: 2008-1-9 17:51
现在的附件是一个excel的文档，我怎么可以把我的查询转换成txt的附件来发送呢？

作者: zjs0270 时间: 2008-1-9 20:04
大家一起想想帮我解决下

作者: rjacky 时间: 2008-1-9 20:14

原帖由 zjs0270 于 2008-1-9 17:51 发表
现在的附件是一个excel的文档，我怎么可以把我的查询转换成txt的附件来发送呢？

不太明白你的意思

作者: zjs0270 时间: 2008-1-13 16:11
我的意思是,我想将我数据库中的一个查询,作为TXT类型的附件,发送出去.请帮忙看看怎么修改WANSHAN帮我写的那段代码.谢谢

作者: brucexiao 时间: 2008-1-22 14:31
谢谢！！！！！！！！！！！！！！！！！！！！！

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