ACCESS中调用OUTLOOK

zjs0270

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

zjs0270

感谢大家一起来想想

wanshan

之前做过一个自动发邮件的例子，可参考一下代码：
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

现在的附件是一个excel的文档，我怎么可以把我的查询转换成txt的附件来发送呢？

zjs0270

大家一起想想帮我解决下

rjacky

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

不太明白你的意思

zjs0270

我的意思是,我想将我数据库中的一个查询,作为TXT类型的附件,发送出去.请帮忙看看怎么修改WANSHAN帮我写的那段代码.谢谢

brucexiao

谢谢！！！！！！！！！！！！！！！！！！！！！