Comment créer une liste déroulante pour les objets dans Outlook ?

AuteurSiluvia Date de modification2025-04-09

Vous pouvez utiliser différents objets d’e-mail prédéfinis à distribuer à divers destinataires dans Outlook. Il serait très efficace de disposer d’une liste déroulante permettant de sélectionner un objet sans avoir à le saisir manuellement lors de la rédaction d’un e-mail, comme illustré dans le GIF ci-dessous. Ce tutoriel propose trois codes VBA pour vous aider à créer une liste déroulante contenant différents objets prédéfinis. Lorsque vous rédigez un e-mail, il vous suffit de choisir l’objet souhaité dans cette liste pour qu’il soit automatiquement inséré dans la ligne d’objet. Suivez ce guide pas à pas pour y parvenir.

Créer un Liste déroulante pour les objets dans Outlook à l’aide d’un code VBA

En réalité, Outlook ne permet pas d’ajouter une liste déroulante directement dans la ligne d’objet. Vous devez donc créer un formulaire utilisateur et l’associer à du code VBA pour implémenter cette fonctionnalité.

1. Lancez Outlook, puis appuyez simultanément sur les touches « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».

2. Dans la fenêtre « Microsoft Visual Basic pour Applications », cliquez sur « Insertion » > « UserForm ».

doc-subject-line-drop-down-list-1

3. Le « UserForm1 » est alors inséré sous « Projet1 » dans le volet gauche de l’éditeur « Visual Basic ». Pour le personnaliser, faites glisser depuis la « Boîte à outils » les éléments « ComboBox » et « CommandButton », puis déposez-les respectivement sur le « UserForm1 » afin d’y ajouter une zone de liste déroulante et un bouton de commande.

doc-subject-line-drop-down-list-2

4. Cliquez avec le bouton droit sur le bouton de commande, puis choisissez « Propriétés » dans le menu contextuel.

doc-subject-line-drop-down-list-3

5. Dans le volet « Propriétés – CommandButton1 », remplacez le texte du champ « Caption » par « OK ». Le libellé du bouton de commande sera ainsi mis à jour.

doc-subject-line-drop-down-list-4

6. Double-cliquez sur une zone vide du UserForm pour ouvrir la fenêtre « UserForm (Code) », puis remplacez le code existant par le code VBA suivant.

Code VBA 1 : UserForm avec un Liste déroulante comprenant plusieurs Objet de l'email prédéfinis

Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
  With ComboBox1
    .AddItem "Subject 1"
    .AddItem "Subject 2"
    .AddItem "Subject 3"
    .AddItem "Subject 4"
    .AddItem "Subject 5"
    .AddItem "No change"
  End With
End Sub

Private Sub CommandButton1_Click()
  GCbbIndex = ComboBox1.ListIndex
  GSelSubject = ComboBox1.Value
  Unload Me
End Sub

doc-subject-line-drop-down-list-5

Remarque : dans le code, les expressions « Objet 1, 2, 3, 4 » et « 5 » représentent les objets d’e-mail prédéfinis que vous souhaitez utiliser dans vos messages. « Aucune modification » signifie qu’aucun changement ne sera apporté à l’objet de l’e-mail existant. Vous pouvez adapter ces objets d’e-mail prédéfinis directement dans le code VBA selon vos besoins.

7. Double-cliquez sur « Projet1 » > « Objets Microsoft Outlook » > « ThisOutlookSession », puis copiez le code VBA suivant dans la fenêtre « ThisOutlookSession (Code) ».

Code VBA 2 utilisé dans la fenêtre ThisOutlookSession

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub

doc-subject-line-drop-down-list-6

8. Cliquez ensuite sur « Insertion » > « Module » dans l’éditeur Visual Basic, puis copiez-collez le code VBA suivant dans la fenêtre « Module (Code) ».

Code VBA 3 utilisé dans la fenêtre Module

Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
  Dim xItem As MailItem
  Dim xMail As Outlook.MailItem
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set xMail = GInlineMail
      Debug.Print "Explorer"
    Case "Inspector"
      Set xMail = Application.ActiveInspector.CurrentItem
      Debug.Print "Inspector"
  End Select
  UserForm1.Show
  If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
    xMail.Subject = GSelSubject
  End If
End Sub

doc-subject-line-drop-down-list-7

9. Enregistrez les codes, puis appuyez sur les touches « Alt » + « Q » pour fermer la fenêtre de l’« Éditeur Visual Basic » et revenir à Outlook.

10. Cliquez sur le bouton « Nouveau e-mail » sous l’onglet « Accueil » pour créer un message électronique.

11. Dans la fenêtre du nouveau message, cliquez sur « Personnaliser la barre d’outils Accès rapide », puis sur « Autres commandes ».

doc-subject-line-drop-down-list-8

12. Dans la boîte de dialogue « Options Outlook », suivez les étapes ci-dessous.

12,1) Sélectionnez « Macros » dans la liste « Choisir les commandes dans » Liste déroulante ;

12,2) Sélectionnez « Project1.ChangeSubject » dans la liste des commandes ;

12,3) Cliquez sur le bouton « Ajouter » ;

12,4) Cliquez sur le bouton « OK ». Voir capture d’écran :

doc-subject-line-drop-down-list-9

13. Vous constatez alors qu’un bouton doc-subject-line-drop-down-list-10 a été ajouté au ruban de la fenêtre du message.

doc-subject-line-drop-down-list-11

14. Vous devez maintenant redémarrer Outlook.

15. Lors de la rédaction d’un message, pour insérer un objet prédéfini, il vous suffit de cliquer sur le nouveau bouton ajouté au Ruban afin d’ouvrir le formulaire utilisateur, de choisir un objet dans le menu déroulant, puis de cliquer sur « OK » pour l’insérer automatiquement dans la ligne d’objet.

Remarques:

1) Vous pouvez remplacer l’objet existant par n’importe quel objet sélectionné dans le Liste déroulante ;

2) Cette méthode fonctionne parfaitement lorsque vous répondez à un e-mail ou le transférez dans une nouvelle fenêtre ;

3) Si vous préférez répondre aux e-mails directement depuis le volet de lecture plutôt que d’ouvrir une fenêtre séparée, vous pouvez afficher le formulaire utilisateur de la manière suivante.

3,1) Cliquez sur « Développeur » > « Macros » > « Project1.ChangeSubject ». Voir capture d’écran :

doc-subject-line-drop-down-list-13

3,2) Lorsque le formulaire utilisateur s’ouvre, sélectionnez un objet prédéfini dans le Liste déroulante, puis cliquez sur le bouton « OK » ; l’objet initial sera immédiatement modifié.

4) Si vous sélectionnez « Aucune modification » dans le menu déroulant, l’objet initial sera conservé sans aucune modification.

Assistant IA Mail dans Outlook : des réponses plus intelligentes, une communication plus claire (magie en un clic !) !

Simplifiez vos tâches quotidiennes dans Outlook avec l’Assistant IA Mail de Kutools pour Outlook. Cet outil intelligent s’appuie sur vos e-mails précédents pour vous suggérer des réponses pertinentes, optimiser le contenu de vos messages et vous aider à rédiger et perfectionner vos e-mails en toute simplicité.

Cette fonctionnalité prend en charge :

Réponses intelligentes : obtenez des réponses élaborées à partir de vos conversations passées – personnalisées, précises et immédiatement utilisables.
Contenu amélioré : affinez automatiquement le texte de vos e-mails pour plus de clarté et d’impact.
Rédaction simplifiée : il vous suffit d’indiquer des mots-clés, et l’IA s’occupe du reste, avec plusieurs styles d’écriture.
Extensions intelligentes : libérez tout le potentiel de vos idées grâce à des suggestions parfaitement adaptées à votre contexte.
Résumé : obtenez instantanément des aperçus concis de vos e-mails les plus longs.
Portée mondiale : traduisez vos e-mails facilement dans n’importe quelle langue.

Cette fonctionnalité prend en charge :

Réponses intelligentes aux e-mails
Contenu optimisé
Brouillons basés sur des mots-clés
Extension intelligente du contenu
Résumé d’e-mails
Traduction multilingue

N’attendez plus –téléchargez dès maintenant l’Assistant IA Mail et profitez-en!

Meilleurs outils de productivité Office

Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !

🤖Kutools IA:Utilise une technologie d’intelligence artificielle avancée pour gérer vos e-mails sans effort, notamment en répondant, résumant, optimisant, développant, traduisant et rédigeant des messages.

📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...

📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…

📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…

🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...

👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…

👩🏼‍🤝‍👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…

Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !

Débloquez Kutools pour Outlook instantanément en un seul clic ! Ne perdez plus une seconde : téléchargez dès maintenant et boostez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook Télécharger maintenant Accéder à l’achat

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Fortement recommandé : Kutools for Office (5-en-1)

Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !

✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint

À propos de la Suite ⬇ Télécharger la Suite 💳 Acheter la Suite