Mercredi 22 Mai 2019  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
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 : 8
Membres en ligne : 0

 pirobert 1 semaine
 jcgdisle 26 semaines
 EMERGENCY 46 semaines
 beaulieu 58 semaines
 callaghi 62 semaines
 Charlie76 67 semaines
 joscopp 78 semaines
 JièL 78 semaines
 julbast 79 semaines
 zorro71 103 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:2 066
En ligne :8
Max. en ligne:312
Max. / jour:66 529
Total hier:7 205
Total ce mois:117 886
Total visites:21 784 804
Moyenne/jour:5 670

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 12873 Lecture(s) Imprimer
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
R09190 Trier les destinataires dans le carnet d'adresses (version 2002/2003), R15420 [VBA] Trouver une adresse Email dans les Contacts, R00100 Afficher les GIFs animés avec Outlook 2007, R06090 Appliquer une règle aux messages existants, R15100 [VBA] Imprimer les destinataires CCI, R08060 Recréer un profil, R02050 Lancer Outlook au démarrage Windows, R08160 L'entête du mail ne s'imprime pas (XP SP2 et IE7), R10030 Exporter tout ou partie du fichier .PST, R00140 Utiliser Outlook comme navigateur Web, R15000 [VBA] TUTORIEL OULOOK VBA, R06025 Limiter la taille maximum du .PST, R05070 Imprimer les noms des pièces jointes aux messages en HTML, R00020 Mettre Outlook 2002 (et autres) dans le systray, R15010 [VBA] Où sont les macros ?

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 [/\]