Discussion :

[robert.parise]

Cette programmation pour faire apparaitre le menu contextuel dans Outlook 2013 ne fonctionne pas.
Pourtant, elle fonctionne très bien dans outlook 2007 (ci-joint)

Quelqu'un connait la raison?

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Private Sub Application_ItemContextMenuDisplay( _
        ByVal CommandBar As Office.CommandBar, _
        ByVal Selection As Selection)
 
    Dim objButton As CommandBarButton
    Dim intButtonIndex As Integer
    Dim intCounter As Integer
 
    'Test si 1 seul mail est sélectionné
    If Selection.Count = 1 Then
        'Test si la sélection correspond à un E-mail
        If Selection.Item(1).Class = olMail Then
            Set objButton = CommandBar.Controls.Add( _
                            msoControlButton, , , , True)
            With objButton
                .Style = msoButtonIconAndCaption
                .Caption = "Infos sur le Mail"
                .FaceId = 463
                .OnAction = "Projet 1.ThisOutlookSession.InfosMail"
            End With
        End If
    End If
 
End Sub

[pc75]

Bonjour,

Tu as vu mon dernier message dans cette discussion => http://www.developpez.net/forums/d14...apercu-d-mail/

[robert.parise]

J'ai essayé la programmation un module, main ce ne fonctionne pas.

Est-ce que le numéro de FaceID est le bon?

Je vais continuer de chercher la cause du problem.

Pourtant, ca fonctionne sur office 2007. Est-ce que Microsoft à changer la programmation des menus contectuels?

[Oliv-]

SAlut,

As tu essayé de mettre un point d'arrêt dans ta procédure évenementielle pour voir si elle déclenche ?

[Oliv-]

En cherchant dans l'ai de outlook tu as dans la table des matières "nouveautés"

Moi je suis sur OL2010 et voilà ce que cela me dit

Référence du développeur Outlook
Modifications du modèle objet depuis Microsoft Office 2007

Voici un résumé comparatif des modifications apportées au modèle objet Microsoft Outlook 2010 depuis Microsoft Office 2007.

Remarques
Dans les tableaux, la valeur État d’un membre d’un modèle objet donné peut être l’une des suivantes :

Masqué Le membre a été désapprouvé et son utilisation n’est pas recommandée dans le code.
Modifié La syntaxe du membre a été modifiée.
Supprimé Le membre a été supprimé du modèle objet.


Application
Événements État
AttachmentContextMenuDisplay Masqué
ContextMenuClose Masqué
FolderContextMenuDisplay Masqué
ItemContextMenuDisplay Masqué
ShortcutContextMenuDisplay Masqué
StoreContextMenuDisplay Masqué
ViewContextMenuDisplay Masqué

Donc sur OL2013 ca a du être supprimé.

tu dois utiliser le RIBBON mais en vba je ne sais pas comment