Erreur dans l'événement OnDisconnection Addin Outlook avec vb6

Question

Bonjour,


J'utilise un add-in Outlook &#233;crit en VB6 pour ajouter un bouton sur la barre de commande "standard" en utilisant le concepteur de compl&#233;ment de vb6 (pas l'implements IDTExtensibility2). Dans l'&#233;v&#233;nement AddInInstance_OnDisconnection je veux supprimer l'objet bouton mais j'obtiens l'erreur '424' (un objet est requis). Comme indiqu&#233; dans l'article 
http://support.microsoft.com/kb/230876/en-us (CommandBar control reference becomes invalid before com add-in on disconnection event fires) j'utilise la m&#233;thode FindControl dans l'&#233;v&#233;nement AddInInstance_OnDisconnection pour obtenir une nouvelle r&#233;f&#233;rence vers le contr&#244;le CommandBar mais maintenant j'ai l'erreur '91' (variable objet ou variable bloc with non d&#233;finie) sur cette ligne . Quelqu'un peut-il m'aider s'il vous plait ?


 Question subsidiaire : Faut-il mieux utiliser le concepteur de compl&#233;ment de vb6 ou l'implement (IDTExtensibility2) ? 


Merci.

Extrait de mon code :

Option Explicit


Dim WithEvents oOutlook As outlook.Application


Dim WithEvents objLaunchButtonApplication As Office.CommandBarButton


Private Sub AddinInstance_OnConnection(ByVal Application As Object, _


ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _


ByVal AddInInst As Object, custom() As Variant)


Dim i As Integer


On Error Resume Next


Set oOutlook = New outlook.Application


Set objLaunchButtonApplication = oOutlook.ActiveExplorer.CommandBars("standard").FindControl(Tag:="Register")


If Not objLaunchButtonApplication Is Nothing Then


objLaunchButtonApplication.Delete


End If


If Not objLaunchButtonApplication Is Nothing Then


Set objLaunchButtonApplication = Nothing


End If


' add parameters


' Type : indique le type de contr&#244;le : msoControlButton (bouton),


' msoControlEdit (zone de texte), msoControlDropdown (zone de liste d&#233;roulante),


' msoControlComboBox (zone de liste modifiable) ou msoControlPopup (sous-menu).


' Par d&#233;faut : msoControlButton


' Id est un nombre entier repr&#233;sentant un contr&#244;le pr&#233;d&#233;fini.


' Chaque bouton des barres d'outils pr&#233;difinis a un ID propre.


' Par d&#233;faut, c'est un bouton vide.


' Parameter, vous pouvez stocker dans ce param&#232;tre les donn&#233;s que vous


' voulez (pour pouvoir les relire ensuite).


' Before, position du nouveau contr&#244;le, il se placera alors devant le


' contr&#244;le dont la position est le num&#233;ro indiqu&#233;.


' Par d&#233;faut : &#224; la fin de le barre de commande


' Temporary doit &#234;tre &#224; True pour que le contr&#244;le soit temporaire, dans ce


' cas il dispara&#238;t &#224; la fermeture de l'application. Par d&#233;faut : False.


' cette option pose probl&#232;me si on ouvre 2 fois Outlook, donc je l'ai d&#233;sactiv&#233;e


' Set objLaunchButtonApplication = oOutlook.ActiveExplorer.CommandBars("Standard").Controls.Add(msoControlButton, , , , True)


Set objLaunchButtonApplication = oOutlook.ActiveExplorer.CommandBars("Standard").Controls.Add(Type:=msoControlButton)


With objLaunchButtonApplication


' texte du bouton


.Caption = "Register"


' Style du bouton. Ce sont des constantes pr&#233;d&#233;finies


' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, msoButtonIconAndCaption,


' msoButtonIconAndCaptionBelow, msoButtonIconAndWrapCaption,


' msoButtonIconAndWrapCaptionBelow, ou msoButtonWrapCaption.


.Style = msoButtonCaption


' Les &#233;l&#233;ments suivants sont facultatifs, mais recommand&#233;s.


' La propri&#233;t&#233; Tag est facultative, mais recommand&#233;e.


' Elle vous permet de prendre le contr&#244;le rapidement et d'aider la soci&#233;t&#233;


' &#224; r&#233;seaux multiples &#224; en garder une trace lorsque plusieurs


' fen&#234;tres d'application sont visibles. Cette propri&#233;t&#233; est requise


' par certaines applications Office et doit &#234;tre fournie.


.Tag = "Register"


' La propri&#233;t&#233; OnAction est facultative, mais recommand&#233;e.


' Elle doit &#234;tre d&#233;finie sur le ProgID du compl&#233;ment pour que,


' si le compl&#233;ment n'est pas charg&#233; lorsqu'un utilisateur appuie sur le


' bouton, la soci&#233;t&#233; &#224; r&#233;seaux multiples le charge automatiquement,


' puis d&#233;clenche l'&#233;v&#232;nement Click pour le compl&#233;ment &#224; g&#233;rer.


.OnAction = "!<" & AddInInst.ProgId & ">"


.Visible = True


End With


End Sub


Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, _


custom() As Variant)


' On Error Resume Next


On Error GoTo 0


If Not objLaunchButtonApplication Is Nothing Then


Set objLaunchButtonApplication = oOutlook.ActiveExplorer.CommandBars("standard").FindControl(Tag:="Register")


objLaunchButtonApplication.Delete


Set objLaunchButtonApplication = Nothing


End If


If Not oOutlook Is Nothing Then


Set oOutlook = Nothing


End If


End Sub

cs_angelot · Answer

Personne n'a une id&#233;e ou un soup&#231;on de piste ?

Erreur dans l'événement OnDisconnection Addin Outlook avec vb6

1 réponse

Discussions similaires