Outlook VBA教程:NewMail事件

当收件箱接收到一封或多封新邮件时发生。该事件在 VBScript 中不可用。

Sub object_NewMail()

object  该表达式的值为Application对象。

VBA示例

本示例在新邮件到达时显示“收件箱”文件夹。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


Dim 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
    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

上页:Outlook VBA教程:NewInspector事件 下页:Outlook VBA教程:OnError事件

Outlook VBA教程:NewMail事件:相关链接

Outlook VBA教程:OnError事件 Outlook VBA教程:Open事件
Outlook VBA教程:OptionsPagesAdd事件 Outlook VBA教程:Progress事件
Outlook VBA教程:PropertyChange事件 Outlook VBA教程:Quit事件
Outlook VBA教程:Read事件 Outlook VBA教程:Reminder事件
Outlook VBA教程:ReminderAdd事件 Outlook VBA教程:ReminderChange事件
Outlook VBA教程:ReminderFire事件 Outlook VBA教程:ReminderRemove事件
Outlook VBA教程:Reply事件 Outlook VBA教程:ReplyAll事件
Outlook VBA教程:SelectionChange事件 Outlook VBA教程:Send事件
Outlook VBA教程:ShortcutAdd事件 Outlook VBA教程:Snooze事件
Outlook VBA教程:Startup事件 Outlook VBA教程:SyncEnd事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号