[vba][outlook] modifier les barres d'outils

Question

Bonjour,

Je souhait modifier la faction d'un bouton de la barre d'outil standard
de la fentre de nouveau message, celui d'ajout de piece jointe (pour
pouvoir utiliser un gestionnaire de documents pour selectionner les
pi&#232;ces jointes). Voici ce que j'ai fait pour l'instant:



Option Explicit

  

  Private WithEvents myInspectors As Outlook.Inspectors

  

  Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector) 'lors de l'ouverture d'une nouvel fentre de message (reponse, lecture, nouveau, peut importe), j'effectue ma modification

    If InStr(Inspector.Caption, "- Message") <> 0 Then 'test si c'est une fentre de mail (pas de calendrier...)

        With Inspector.CommandBars.Item("Standard").Controls.Item("&Fichier...") 'bouton "ins&#233;rer un fichier" de la barre standard

             .Reset 'r&#233;initialisation du bouton

           .OnAction = "myMacro" 'changement de l'action effectu&#233;

       End With

    End If

  End Sub

  

Sub myMacro()

    MsgBox "ca marche"

End Sub

  
Quand je clic sur le bouton, aucune action n'est
effectu&#233;, en affichant le contenue de OnAction, j'obtiens bien le texte
que j'ai entr&#233;. J'ai essay&#233; avec d'autre boutons (envoyer...) mais
j'obtiens le meme r&#233;sultat.

Si quelqu'un pouvait m'aider.

Merci

Stevo

stevo77 · Answer

je tente un piti UP!, on ne sait jamais

stevo77 · Answer

re-UP! z'inquietez pas, c'est le dernier

stevo77 · Answer

Bon, j'ai renoncer &#224; modifier le bouton original d'ajout de pi&#232;ce
jointe car ce n'est pas possible, l'action qu'il effectue est d&#233;fini
par son Id (Inspector.CommandBars("Standard").Controls("&Fichier...").Id) qui est en lecture seul.

J'ai donc voulu cr&#233;er un nouveau bouton et de rendre l'original
invisble. Pour commencer j'ai essay&#233; de cr&#233;er ce bouton dans une nouvel
bar d'outil comme indiqu&#233; dans l'aide:



Dim myControl As CommandBarButton

Dim myBar As CommandBar



Set myBar = CommandBars("Custom")

Set myControl = myBar.Controls.Add(Type:=msocontrolButton)

With myControl

    .FaceId = 1079 'FaceId du bouton d'ajout de pi&#232;ce jointe

    .OnAction = "MySub"

End With

myBar.Visible = True



Le probleme, c'est que meme de cette facon, j'ai toujours un bouton sans icone et qui ne fait rien , meme en d&#233;clarant myControl comme CommandBarControl.

Help me please!

[vba][outlook] modifier les barres d'outils

3 réponses

Discussions similaires