access能与outlook连接吗

若离ヘ不弃°

能不能在outlook中设一个自动回复凡是受到邮件就将access中某个表回复过去呢。
excel也可以，能不能实现的。

Agent

outlook很少用.留意留意

叶海峰

OutLook的NewMail事件可以实现收到新邮件,激活事件后进行相关操作,例如连接一个mdb读取某表数据,返回一个数据集,将数据集写到正文中去.或者将表导出到excel,发送exel附件等等


NewMail 事件
参阅应用于示例特性当“收件箱”中收到一封或多封新电子邮件时发生。该事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

Sub object_NewMail()
object     该表达式的值为 Application 对象。

说明
NewMail 事件在您希望新电子邮件到达时得到通知的情况下非常有用。如果您要处理到达“收件箱”的项目，请考虑对“收件箱”中项目的集合使用 ItemAdd 事件。ItemAdd 事件为添加到文件夹的每个项目传递一个引用。

示例
本 Microsoft Visual Basic/Visual Basic for Applications (VBA) 示例在新电子邮件到达时显示“收件箱”文件夹。示例代码必须放在类模块中，并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。

Public WithEvents myOlApp As Outlook.Application

Sub Initialize_handler()
    Set myOlApp = CreateObject("Outlook.Application")
End Sub

Private Sub myOlApp_NewMail()
    Dim myExplorers As Outlook.Explorers
    Dim myFolder As Outlook.MAPIFolder
    Dim x As Integer
    Set myExplorers = myOlApp.Explorers
    Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    If myExplorers.Count <> 0 Then
        For x = 1 To myExplorers.Count
            On Error GoTo skipif
            If myExplorers.Item(x).CurrentFolder.Name = "Inbox" Then
                myExplorers.Item(x).Display
                myExplorers.Item(x).Activate
                Exit Sub
            End If
skipif:
        Next x
     End If
     On Error GoTo 0
     myFolder.Display
End Sub

若离ヘ不弃°

叶海峰 发表于 2012-11-26 17:20
OutLook的NewMail事件可以实现收到新邮件,激活事件后进行相关操作,例如连接一个mdb读取某表数据,返回一个数 ...

谢谢，这个代码写在outlook里面吗，能不能给个例子啊，可以自动调access最新的数据的咯

叶海峰

是的,代码写在outlook里面,只要收到新邮件,这个事件就会被激活.在代码里面,可以先判断新邮件的发件人,主题之类的,然后再提取mdb里面的数据.

例子这两天写一个给你

若离ヘ不弃°

叶海峰 发表于 2012-11-27 17:18
是的,代码写在outlook里面,只要收到新邮件,这个事件就会被激活.在代码里面,可以先判断新邮件的发件人,主题之 ...

谢谢啊

yanghua1900363

关注