Comment créer une liste déroulante pour les sujets dans Outlook ?
Vous pouvez avoir différents sujets d'e-mail prédéfinis qui doivent être distribués à différents destinataires dans Outlook. Il serait très efficace d'avoir une liste déroulante de ligne d'objet pour sélectionner un sujet sans le saisir manuellement lors de la rédaction d'un e-mail. Tout comme le gif démontré ci-dessous. Ce didacticiel fournit trois codes VBA pour vous aider à créer une liste déroulante avec différents sujets prédéfinis. Lors de la rédaction d'un e-mail, vous pouvez sélectionner l'objet dont vous avez besoin dans la liste déroulante pour remplir automatiquement la ligne d'objet. Veuillez suivre le guide étape par étape pour le faire.
Créer une liste déroulante pour les sujets dans Outlook avec le code VBA
En fait, Outlook ne permet pas d'ajouter une liste déroulante dans la ligne d'objet. Ici, vous devez créer un formulaire utilisateur et le combiner avec des codes VBA pour le compléter.
1. Lancez votre Outlook, appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Formulaire utilisateur.
3. Puis le UserForm1 est inséré sous Project1 dans le volet de gauche du Visual Basic éditeur. Vous devez ajouter une zone de liste déroulante et un bouton de commande à ce formulaire utilisateur en faisant glisser le Boîte combo et Bouton de commande respectivement de la Boîte à outils à ces victimes que nous nommons UserForm1.
4. Cliquez avec le bouton droit sur le bouton de commande et sélectionnez Propriétés dans le menu contextuel.
5. dans le Propriétés - CommandButton1 volet, changez le Légende champ à OK. Cette action modifiera le texte affiché sur le bouton de commande.
6. Double-cliquez sur la zone vide de l'UserForm pour ouvrir le formulaire correspondant. Formulaire utilisateur (Code) fenêtre, puis remplacez le code existant par le code VBA suivant.
Code VBA 1 : UserForm avec une liste déroulante comprenant plusieurs sujets d'e-mail 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
Notes: Dans le code, le Sujet 1, 2, 3, 4 et 5 sont les sujets d'e-mail prédéfinis que vous souhaitez utiliser dans vos e-mails. "Aucun changement” signifie ne rien changer à l'objet de l'e-mail existant. Vous pouvez modifier les sujets d'e-mail prédéfinis dans le code VBA en fonction de vos besoins.
7. Double-cliquez Project1 > Objets Microsoft Outlook > Cette session Outlook. Copiez ensuite 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
8. Continuez à cliquer insérer > Module dans le Visual Basic éditeur. Ensuite, copiez et collez le code VBA suivant dans le Module (Code) fenêtre.
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
9. Enregistrez les codes et appuyez sur la autre + Q touches pour fermer le Éditeur Visual Basic fenêtre et revenir à l'application Outlook.
10. Cliquez sur l' Nouveau Email bouton sous Accueil onglet pour créer un e-mail.
11. Dans la nouvelle fenêtre de message, cliquez sur Personnaliser la barre d'outils Accès rapide > Plus de commandes.
12. dans le Options d'Outlook boîte de dialogue, vous devez configurer comme suit.
13. Ensuite, vous pouvez voir qu'un bouton 
a été ajouté au ruban de la fenêtre de message.
14. Vous devez maintenant redémarrer votre Outlook.
15. Lors de la rédaction d'un message électronique, si vous devez insérer un sujet prédéfini, il vous suffit de cliquer sur le bouton nouvellement ajouté sur le ruban pour afficher le formulaire utilisateur, sélectionnez un sujet dans le menu déroulant, puis cliquez sur le OK bouton pour le remplir dans la ligne d'objet.
Notes:
Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!
- CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
- Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
- Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
- Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
- Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
