Application.NewMail 事件 (Outlook)

  • 项目

在 收件箱中收到一个或多个新电子邮件时发生。

语法

expression。 NewMail

expression：表示 Application 对象的变量。

备注

该事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

NewMail 事件触发，当新邮件到达收件箱时之前客户端, 规则处理。 如果您想要处理到达 收件箱中的项目，请考虑使用 ItemAdd 事件上的 收件箱中的项的集合。 该 ItemAdd 事件传递的引用添加到文件夹中的每一项。

NewMail 事件不会触发用户处于脱机模式时。

示例

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

Public WithEvents myOlApp As Outlook.Application 
 
 
 
Sub Initialize_handler() 
 
 Set myOlApp = Outlook.Application 
 
End Sub 
 
 
 
Private 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 If 
 
skipif: 
 
 Next x 
 
 End If 
 
 On Error GoTo 0 
 
 myFolder.Display 
 
End Sub

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。