Modelo de suplemento de COM do Outlook

O exemplo de código a seguir fornece os procedimentos de eventos em branco necessários para implementar um suplemento COM.

Implements IDTExtensibility2 
 
Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant) 
' Occurs when the set of connected COM add-ins changes, that is when 
' any other add-in is connected or disconnected. 
' The custom argument is ignored. 
End Sub 
 
Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant) 
' If the COM add-in is connected, occurs when Outlook begins its 
' shutdown routines. 
' The custom argument is ignored. 
 
End Sub 
 
Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant) 
' Occurs when the COM add-in is connected. 
' The Application argument is the Outlook Application object. 
' The ConnectMode argument specifies how the COM add-in was connected. 
' It can be 
' ext_cm_AfterStartup Add-in was connected after Outlook started, 
' or the Connect property of the corresponding 
' COMAddIn object was set to True 
' ext_cm_Startup Add-in was connected on startup 
' ext_cm_External 
' ext_cm_CommandLine 
' The AddInInst argument is the COMAddIn object that refers to the current 
' instance of the add-in itself. 
' The custom argument is ignored. 
End Sub 
 
Private Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant) 
' Occurs when the COM add-in is disconnected. 
' The RemoveMode argument specifies how the COM add-in was disconnected. 
' It can be 
' ext_dm_HostShutdown Add-in was disconnected when Outlook was 
' closed. 
' ext_dm_UserClosed Add-in was disconnected when the user 
' cleared the corresponding check box in the 
' COM Add-ins dialog box, or the Connect 
' property of the corresponding COMAddIn 
' object was set to False. 
' The custom argument is ignored. 
End Sub 
 
Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant) 
' If the COM add-in connects at startup, occurs when Outlook completes 
' its startup routines. This event does not occur if the COM add-in is not 
' connected when Outlook loads, even when the user connects the add-in in 
' the COM Add-ins dialog box. 
' The custom argument is ignored. 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.