Mardi 29 Juillet 2014  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Assistance à distance
Bibliographie
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 5
Membres en ligne : 0

 zeners 3 jours
 mappec 1 semaine
 JièL 5 semaines
 artefact0 9 semaines
 pajude 12 semaines
 xjr13sp 13 semaines
 vivi32 14 semaines
 angel 15 semaines
 Quartzkyte 16 semaines
 EMERGENCY 16 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:6 968
En ligne :5
Max. en ligne:119
Max. / jour:66 529
Total hier:6 108
Total ce mois:125 708
Total visites:11 195 286
Moyenne/jour:5 369

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q15000 Macros - VBA (41)  Catégorie »
[<<]  « Article  Article »  [>>]
R15930 [VBA] Création de menu dans outlook

Bonjour, J'ayant eu du mal à maîtriser les menus dans Outlook, j'ai fini par rassembler et adapter des exemples issues de Developpez.com. Je vous livre humblement le contenu de mon module si cela peut aider d'autre bricoleur. PS : je ne sachant pas comment envoyer le module je le stransmet au format texte ci-dessous. Merci pour votre site.


' ======================================================================================
'Description : Ensemble d'exemples pour créer un menu dans barre de menu ou dans une barre d'outil
'Auteur 1 : Starec - Philippe JOCHMANS - http://starec.developpez.com
'Auteur 2 : Fred (fring) - http://developpez.com
'Regroupé & adapté par : Marc Trémel
'=======================================================================================

'---------------------------------------------------------------------------------------
Sub ListeMenu()
Dim ObjOut As Outlook.Explorer
Dim Cbars As CommandBars, Cbar As CommandBar
Set ObjOut = Outlook.ActiveExplorer
Set Cbar = ObjOut.CommandBars.Item("Menu Bar")
'Cbar.Reset '<-- Retour à l'état initial
'Cbar.Protection = msoBarNoProtection '<-- Supprime la protection
For Each ctrl In Cbar.Controls
Debug.Print ctrl.Caption

Next ctrl
End Sub

'---------------------------------------------------------------------------------------
Sub Menus_perso()
'déclaration des variables
Dim ObjOut As Outlook.Explorer
Dim Cbars As CommandBars, Cbar As CommandBar, Cbut As CommandBarButton
Dim Ctxt As CommandBarComboBox, Cpop1 As CommandBarPopup, Cpop2 As CommandBarPopup
Dim x As Byte

Set ObjOut = Outlook.ActiveExplorer
Set Cbar = ObjOut.CommandBars.Item("Menu Bar")
Cbar.Protection = msoBarNoProtection

For Each ctrl In Cbar.Controls
If ctrl.Caption = "Menu" Then
Exit Sub
End If
Next

Set Cpop1 = Cbar.Controls.Add(msoControlPopup)
With Cpop1
.Caption = "Menu" '<-- label du sous-menu
.BeginGroup = True
.Tag = "m1" '<-- étiquette
End With

'insertion dans le menu d'un premier bouton de commande
Set Cbut = Cpop1.Controls.Add(msoControlButton)
With Cbut
.FaceId = 358 '<-- icône
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "Supprimer Menu" '<-- label du bouton
.OnAction = "SuppMenu" '<-- procédure à exécuter
.Tag = "sm1cbut1" '<-- étiquette
End With

'insertion dans le menu d'un second bouton de commande
Set Cbut = Cpop1.Controls.Add(msoControlButton)
With Cbut
.Style = msoButtonCaption '<-- bouton avec texte uniquement
.Caption = "Bouton 2" '<-- label du bouton
.OnAction = "Macro4" '<-- procédure à exécuter
.Tag = "sm1cbut2" '<-- étiquette
End With

'insertion dans le menu d'un sous-menu
Set Cpop2 = Cpop1.Controls.Add(msoControlPopup)
With Cpop2
.Caption = "Sous-menu" '<-- label du sous-menu
.Tag = "sm2" '<-- étiquette
End With

'insertion dans le sous-menu d'un bouton prédéfini ouvrant l'application Word
Set Cbut = Cpop2.Controls.Add(msoControlButton)
With Cbut
.FaceId = 42
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "Word" '<-- label du bouton
End With

'insertion dans le sous-menu d'un bouton prédéfini ouvrant l'application Access
Set Cbut = Cpop2.Controls.Add(msoControlButton)
With Cbut
.FaceId = 264
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "Access" '<-- label du bouton
End With

'insertion dans le sous-menu d'un bouton prédéfini ouvrant l'application PowerPoint
Set Cbut = Cpop2.Controls.Add(msoControlButton)
With Cbut
.FaceId = 267
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "PowerPoint" '<-- label du bouton
End With
End Sub


'---------------------------------------------------------------------------------------
Sub SuppMenu()
Dim ObjOut As Outlook.Explorer
Dim Cbars As CommandBars, Cbar As CommandBar
Set ObjOut = Outlook.ActiveExplorer
Set Cbar = ObjOut.CommandBars.Item("Menu Bar")
Cbar.Protection = msoBarNoProtection
For Each ctrl In Cbar.Controls
If ctrl.Caption = "Menu" Then
ctrl.Delete
End If
Next ctrl
End Sub

'---------------------------------------------------------------------------------------
Sub Barre_menus_perso()
'déclaration des variables
Dim Cbars As CommandBars, Cbar As CommandBar, Cbut As CommandBarButton
Dim Ctxt As CommandBarComboBox, Cpop1 As CommandBarPopup, Cpop2 As CommandBarPopup
Dim x As Byte

Set Cbars = ActiveExplorer.CommandBars 'Collection des barres et menus de Outlook
For Each Cbar In Cbars 'Recherche de la barre "Nom_de_la_Barre"
If Cbar.NameLocal = "Nom_de_la_Barre" Then
Cbar.Visible = True
Exit Sub
End If
Next
'Création de la barre d'outils
Set Cbar = Cbars.Add("Nom_de_la_Barre")

'insertion sur la barre de menus d'un bouton de commande
Set Cbut = Cbar.Controls.Add(msoControlButton)
With Cbut
.FaceId = 358 '<-- icône
.Style = msoButtonIconAndCaption
.OnAction = "SuppBarre" '<-- procédure à exécuter
.TooltipText = "Suppression barre de menus" '<-- info-bulle
.Tag = "cbut1" '<-- étiquette
End With

'insertion sur la barre de menus d'une zone de texte
Set Ctxt = Cbar.Controls.Add(msoControlEdit)
With Ctxt
.Style = msoComboLabel '<-- zone de texte avec label
.Caption = "Date :" '<-- texte du label
.TooltipText = "Veuillez introduire une date" '<-- info-bulle
.OnAction = "Macro2" '<-- procédure à exécuter
.BeginGroup = True '<-- barre de séparation
.Tag = "ctxt1" '<-- étiquette
End With

'insertion sur la barre de menus d'une zone de liste
Set Ctxt = Cbar.Controls.Add(msoControlDropdown)
With Ctxt
.Style = msoComboLabel '<-- zone de liste avec label
.Caption = "Liste :" '<-- texte du label
.TooltipText = "Faites votre choix" '<-- info-bulle
.OnAction = "Macro3" '<-- procédure à exécuter
.BeginGroup = True '<-- barre de séparation
.Tag = "clist1" '<-- étiquette
For x = 1 To 5
.AddItem ("Choix " & x) '<-- ajout de 5 Item
Next
End With

'insertion sur la barre de menus d'un sous-menu 1
Set Cpop1 = Cbar.Controls.Add(msoControlPopup)
With Cpop1
.Caption = "Sous-menu 1" '<-- label du sous-menu
.Tag = "sm1" '<-- étiquette
End With

'insertion dans le sous-menu 1 d'un premier bouton de commande
Set Cbut = Cpop1.Controls.Add(msoControlButton)
With Cbut
.Style = msoButtonCaption '<-- bouton avec texte uniquement
.Caption = "Bouton 1" '<-- label du bouton
.OnAction = "Macro4" '<-- procédure à exécuter
.Tag = "sm1cbut1" '<-- étiquette
End With

'insertion dans le sous-menu 1 d'un second bouton de commande
Set Cbut = Cpop1.Controls.Add(msoControlButton)
With Cbut
.Style = msoButtonCaption '<-- bouton avec texte uniquement
.Caption = "Bouton 2" '<-- label du bouton
.OnAction = "Macro4" '<-- procédure à exécuter
.Tag = "sm1cbut2" '<-- étiquette
End With

'insertion dans le sous-menu 1 d'un sous-menu 2
Set Cpop2 = Cpop1.Controls.Add(msoControlPopup)
With Cpop2
.Caption = "Sous-menu 2" '<-- label du sous-menu
.Tag = "sm2" '<-- étiquette
End With

'insertion dans le sous-menu 2 d'un bouton prédéfini ouvrant l'application Word
Set Cbut = Cpop2.Controls.Add(msoControlButton)
With Cbut
.FaceId = 42
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "Word" '<-- label du bouton
End With

'insertion dans le sous-menu 2 d'un bouton prédéfini ouvrant l'application Access
Set Cbut = Cpop2.Controls.Add(msoControlButton)
With Cbut
.FaceId = 264
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "Access" '<-- label du bouton
End With

'insertion dans le sous-menu 2 d'un bouton prédéfini ouvrant l'application PowerPoint
Set Cbut = Cpop2.Controls.Add(msoControlButton)
With Cbut
.FaceId = 267
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "PowerPoint" '<-- label du bouton
End With

Cbar.Position = msoBarTop
Cbar.Protection = msoBarNoMove + msoBarNoCustomize '<-- protection de la barre de menus
Cbar.Visible = True '<-- affichage de la barre de menus
End Sub

'---------------------------------------------------------------------------------------
Sub SuppBarre()
'déclaration des variables
Dim Cbars As CommandBars, Cbar As CommandBar

Set Cbars = ActiveExplorer.CommandBars 'Collection des barres et menus de Outlook
For Each Cbar In Cbars 'Recherche de la barre "Nom_de_la_Barre"
If Cbar.NameLocal = "Nom_de_la_Barre" Then
Cbar.Delete
End If
Next
End Sub

De la part d'un généreux membre Trarc91 pour qui le partage n'est pas un vain mot.

MERCI !

 


Publié par Trarc91 le mardi 09 novembre 2010 23:38 1 Commentaire 5812 Lecture(s) Imprimer
Commentaires
#1 | tdikarim le mercredi 01 juin 2011 12:48
j'adore Grin
Merci pour le partage
Publier un commentaire
Un commentaire n'est pas une question sur un problème que vous avez,
pour ces dernières veuillez utiliser les forums, ils sont fait pour.
Merci !!!

Les administrateurs se réservent le droit de corriger ou de supprimer les commentaires (et toute question).

Votre nom :




Entrez le code de validation :

Ceci n'est pas une question sur Outlook,
j'ai bien compris qu'il faut utiliser les forums pour TOUTE question !
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R00140 Utiliser Outlook comme navigateur Web Q00000 Divers
R12120 Synchroniser Google Calendar avec Outlook 2010 Q12000 Calendrier
R08250 Outlook ne trouve pas mes messages lors d'une recherche Q08000 Erreurs et problèmes
R10095 Utiliser PFBACKUP avec Outlook 2010 Q10000 Sauvegarde
Nuage de tags
R03060 Créer un papier à lettres a partir d'un message reçu, R00080 Ajouter le moteur de recherche de la FAQ à IE7, R08110 Ouvrir un autre PST, R11040 Restaurer ses règles de gestion des messages, R01010 Définir Outlook comme messagerie par défaut, R04050 Modifier une pièce jointe DANS un message, R05010 Ne pas imprimer la liste des (nombreux) destinataires d'un message, R12010 Modifier l'affichage du calendrier, R08070 Réparer / remettre en état Outlook ou le PST (6 solutions à appliquer dans l'ordre), R06040 Paramétrer l'archivage automatique d'un dossier, R15600 [VBA] ajouter un dossier contact et le définir en tant que carnet d'adresses, R99200 Pourquoi la copie est merdique ?, R06027 Alerter quand la taille du .PST est trop importante, R15600 [VBA] ajouter un dossier contact et le définir en tant que carnet d'adresses, R16050 Importer d'un autre PC les courriels d'Outlook Express vers Outlook sous Vista

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]