Application.NewMail 事件

kuaitou

Application.NewMail 事件

当“收件箱”中收到一封或多封新电子邮件时发生。 语法

表达式.NewMail

表达式   一个代表 Application 对象的变量。
说明

此事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。
NewMail 事件在您希望新电子邮件到达时得到通知的情况下非常有用。如果您想要处理“收件箱”中到达的项目，请考虑在“收件箱”中项目的集合上使用 ItemAdd 事件。ItemAdd 事件为添加到文件夹的每个项目传递一个引用。
用户处于脱机模式时不会触发 NewMail 事件。
示例

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

Visual Basic for Applications

Public WithEvents myOlApp As Outlook.ApplicationSub Initialize_handler()    Set myOlApp = Outlook.ApplicationEnd SubPrivate Sub myOlApp_NewMail()    Dim myExplorers As Outlook.Explorers    Dim myFolder As Outlook.Folder    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 Ifskipif:        Next x     End If     On Error GoTo 0     myFolder.DisplayEnd Sub 请教，如何实现收到信的时候处理新收到的邮件，这个类模板看不懂

闻启学

新到邮件时候  自动分配一个ID

获得这个ID 就是获得整个邮件了