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