Utiliser CommandBarButton en Outlook [Résolu]

[LAGARDETTE]

Bonjour,

Quelqu'un sait-il s'il est possible de modifier les menus d' Outlook par du
code VBA, soit de l'intérieur d'Outlook, soit en automation ?
Car la collection CommandBars semble ne pas être reconnue en Outlook 2000 (alors qu'elle l'est en Access par exemple) ?

[bbil]

essai :

Code :

1
2
 
Outlook.ActiveExplorer.CommandBars..

[LAGARDETTE]

J'ai progressé : j'obtiens un nouveau bouton mais je n'arrive pas à lui trouver où lui associer du code sur l'évènement "on click"....

Ci-dessous le code pour créer le boton :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Public Sub CreeBouton()
  Dim oExplorer As Outlook.Explorer
  Set oExplorer = Application.ActiveExplorer
  Set Button = CreateCommandBarButton(oExplorer.CommandBars)
End Sub
 
Private Function CreateCommandBarButton(oBars As Office.CommandBars) As Office.CommandBarButton
  On Error Resume Next
  Dim oMenu As Office.CommandBar
  Dim oBtn As Office.CommandBarButton
  Const BAR_NAME As String = "MaBarre"
  Const CMD_NAME As String = "MonBouton"
 
  Set oMenu = oBars(BAR_NAME)
  If oMenu Is Nothing Then
    Set oMenu = oBars.Add(BAR_NAME, msoBarTop, , True)
    Set oBtn = oMenu.Controls.Add(msoControlButton, , CMD_NAME, , True)
    oBtn.Caption = CMD_NAME
    oBtn.Tag = CMD_NAME
 
  Else
    Set oBtn = oMenu.FindControl(, , CMD_NAME)
    If oBtn Is Nothing Then
      Set oBtn = oMenu.Controls.Add(msoControlButton, , CMD_NAME, , True)
    End If
  End If
 
  oMenu.Visible = True
  Set CreateCommandBarButton = oBtn
End Function

Un dernier coup de pouce, quelqu'un ?

Merci bcp d'avance

[LAGARDETTE]

Bonjour,

Finallement, j'ai trouvé la solution :

1/ Pour associer une fonction :

Code :

1
2
3
    With oBtn
    .OnAction=MaFonction()
    End With

2/ Ou bien pour lancer un exécutable :

Code :

1
2
3
4
    With oBtn
    .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = "C:\Test.bat"
    End With

[fyds]

Envoyé par LAGARDETTE

Bonjour,

Finallement, j'ai trouvé la solution :

1/ Pour associer une fonction :

Code :

[...]

En effet, le tout fonctionne, néanmoins, je crois que tu as oublié les fameux guillemets empêchant l'appel systématique de ta fonction lors de la création du bouton !

Code :

1
2
3
    With oBtn
    .OnAction="MaFonction()"
    End With

[ylabarre]

heu...

With oBtn
.OnAction="MaFonction()"
End With

On le met ou ça ?

Ps : beginner quand tu nous tiens.

EDIT : c'est bon. La fatigue et tout ça quoi ?!!

[benji.potter]

Bonjour a tous.
je suis en train de faire une barre pour outlook avec plusieurs boutons.
J'ai bien défini pour chaque bouton la propriété "OnAction" mais ca ne fonctionne pas. Quand je clique sur un des boutons, la souris s'enerve 2 secondes et plus rien (alors qu'il doit y avoir une messageBox).

Si quelqu'un pouvais m'aider...

merci d'avance.