Création d'une barre d'outils Outlook 2003 à l'aide de VBA

Question

Dans Excel 2003, je peux accéder à la collection Application.CommandBars pour créer des barres d'outils personnalisées à l'aide de VBA. Existe-t-il un équivalent dans Outlook 2003? Je suis en train de changer les étiquettes sur les boutons d'une barre d'outils client. Dans le futur, je voudrais créer la barre d'outils à partir de zéro.

Cheers, Dave

--Trindaz sur Fedang # Outlook VBAs

Answer 1

Nous avons fini de résoudre ce moi-même. Voici le code si vous êtes intéressé:

Dim expExplorer As Outlook.Explorer 
Dim cmbCommandBar As CommandBar 
Dim ctlBarControl As CommandBarControl 
For Each expExplorer In Outlook.Explorers 
    For Each cmbCommandBar In expExplorer.CommandBars 
     If cmbCommandBar.Name = "name-of-toolbar" Then 
      For Each ctlBarControl In cmbCommandBar.Controls 
       If ctlBarControl.Caption = "caption-i-want-to-change" Then 
        ctlBarControl.Caption = "new-caption-text" 
       End If 
      Next ctlBarControl 
     End If 
    Next cmbCommandBar 
Next expExplorer