Office中国论坛/Access中国论坛

标题: access能与outlook连接吗 [打印本页]

作者: 若离ヘ不弃° 时间: 2012-11-26 13:52
标题: access能与outlook连接吗
能不能在outlook中设一个自动回复凡是受到邮件就将access中某个表回复过去呢。
excel也可以，能不能实现的。

作者: Agent 时间: 2012-11-26 16:45
outlook很少用.留意留意

作者: 叶海峰 时间: 2012-11-26 17:20
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-27 10:16

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

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

作者: 叶海峰 时间: 2012-11-27 17:18
是的,代码写在outlook里面,只要收到新邮件,这个事件就会被激活.在代码里面,可以先判断新邮件的发件人,主题之类的,然后再提取mdb里面的数据.

例子这两天写一个给你

作者: 若离ヘ不弃° 时间: 2012-11-28 15:32

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

谢谢啊

作者: yanghua1900363 时间: 2012-11-29 10:06
关注

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