Mercredi 16 Avril 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 : 7
Membres en ligne : 0

 angel 2 jours
 Quartzkyte 1 semaine
 EMERGENCY 1 semaine
 globox 2 semaines
 jaclam 2 semaines
 Oliv 7 semaines
 artefact0 9 semaines
 JièL 10 semaines
 YOUTE 12 semaines
 verdi 16 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:659
En ligne :7
Max. en ligne:119
Max. / jour:66 529
Total hier:4 499
Total ce mois:70 486
Total visites:10 537 902
Moyenne/jour:5 322

Dernières 24h

























Localisation visiteurs
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 5337 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
R00090 Noms des serveurs POP, IMAP, SMTP et Webmail des principaux FAI, R15310 [VBA] Limiter l'envoi selon la taille, R15420 [VBA] Trouver une adresse Email dans les Contacts, R14030 Ajouter / Supprimer un dossier au favoris, R07040 Autoriser la réception des pièces jointes « potentiellement sensibles », R99100 BSOD, R15010 [VBA] Où sont les macros ?, R12040 Créer un rendez-vous, R09140 Masquer les destinataires les uns des autres, R10020 Sauvegarder les paramètres et fichiers .PST d'Outlook 2002 (Windows XP seulement), R14010 Recherche rapide , R09180 Classer différemment ses contacts existants (définitivement), R09190 Trier les destinataires dans le carnet d'adresses (version 2002/2003), R11060 Restaurer le carnet d'adresses personnel (.PAB), R09080 Ajouter un dossier contact et l'afficher dans le carnet d'adresses

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