Outlook Application事件

Private WithEvents Application As Outlook.Application

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Outlook.Search)

End Sub

Private Sub Application_AdvancedSearchStopped(ByVal SearchObject As Outlook.Search)

End Sub

Private Sub Application_BeforeFolderSharingDialog(ByVal FolderToShare As Outlook.MAPIFolder, Cancel As Boolean)

End Sub

Private Sub Application_ItemLoad(ByVal Item As Object)

End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub

Private Sub Application_MAPILogonComplete()

End Sub

Private Sub Application_NewMail()

End Sub

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

End Sub

Private Sub Application_OptionsPagesAdd(ByVal Pages As Outlook.PropertyPages)

End Sub

Private Sub Application_Quit()

End Sub

Private Sub Application_Reminder(ByVal Item As Object)

End Sub

Private Sub Application_Startup()

End Sub