Hoe maakt u een keuzelijst voor onderwerpen in Outlook?

AuteurSiluvia Wijzigingsdatum2025-04-09

Mogelijk beschikt u over verschillende vooraf ingestelde e-mailonderwerpen die naar verschillende ontvangers in Outlook moeten worden gestuurd. Het zou dan zeer efficiënt zijn om een keuzelijst in de onderwerpregel te hebben, zodat u bij het opstellen van een e-mail eenvoudig een onderwerp kunt selecteren zonder dit handmatig te hoeven typen — precies zoals wordt gedemonstreerd in de onderstaande GIF. Deze handleiding biedt drie VBA-codes waarmee u een keuzelijst met verschillende vooraf ingestelde onderwerpen kunt maken. Tijdens het opstellen van een e-mail selecteert u gewoon het gewenste onderwerp uit de vervolgkeuzelijst, en de onderwerpregel wordt automatisch ingevuld. Volg de stapsgewijze instructies om dit in te stellen.

Een Keuzelijst voor onderwerpen maken in Outlook met VBA-code

Outlook staat standaard geen keuzelijst toe in de onderwerpregel. Daarom moet u een aangepast gebruikersformulier maken en dit koppelen aan VBA-code om het gewenste resultaat te bereiken.

1. Start Outlook en druk op de toetsencombinatie Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster 'Microsoft Visual Basic for Applications' op 'Invoegen' > 'Gebruikersformulier'.

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

3. Vervolgens wordt "Gebruikersformulier1" ingevoegd onder "Project1" in het linkerdeelvenster van de Visual Basic-editor. Voeg aan dit formulier een keuzelijst (ComboBox) en een opdrachtknop toe door respectievelijk "ComboBox" en „CommandButton" uit de Gereedschapskist naar "Gebruikersformulier1" te slepen.

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

4. Klik met de rechtermuisknop op de opdrachtknop en kies 'Eigenschappen' in het contextmenu.

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

5. Wijzig in het deelvenster „Eigenschappen – Opdrachtknop1" het veld "Bijschrift" naar „OK" om de tekst op de knop direct te updaten.

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

6. Dubbelklik op een leeg gedeelte van het gebruikersformulier om het bijbehorende venster **Gebruikersformulier (Code)** te openen en vervang de bestaande code door de volgende VBA-code.

VBA-code 1: Gebruikersformulier met een Keuzelijst met meerdere vooraf ingestelde E-mailonderwerp

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

Opmerking: In de code zijn "Onderwerp 1, 2, 3, 4" en "5" de vooraf ingestelde e-mailonderwerpen die u in uw e-mails wilt gebruiken. „Geen wijziging" betekent dat het bestaande e-mailonderwerp ongewijzigd blijft. U kunt de vooraf ingestelde e-mailonderwerpen in de VBA-code aanpassen aan uw wensen.

7. Dubbelklik op "Project1" > "Microsoft Outlook-objecten" > „ThisOutlookSession" en plak de volgende VBA-code in het venster „ThisOutlookSession (Code)".

VBA-code 2 gebruikt in het venster 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. Klik vervolgens in de Visual Basic-editor op "Invoegen" > „Module". Kopieer en plak daarna de volgende VBA-code in het venster „Module (Code)".

VBA-code 3 gebruikt in het modulevenster

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. Sla de codes op en druk op Alt + Q om de Visual Basic Editor te sluiten en terug te keren naar Outlook.

10. Klik op de knop 'Nieuwe e-mail' onder het tabblad 'Start' om een e-mail te maken.

11. Klik in het nieuwe berichtvenster op 'Snelle toegang aanpassen' > 'Meer opdrachten'.

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

12. Configureer het volgende in het dialoogvenster 'Outlook-opties'.

12,1) Selecteer „Macro's" in de lijst „Opdrachten kiezen uit" Keuzelijst;

12,2) Selecteer "Project1.ChangeSubject" in het opdrachtenlijstvak;

12,3) Klik op de knop „Toevoegen";

12,4) Klik op de knop „OK". Zie schermafbeelding:

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

13. Vervolgens ziet u dat er een knop doc-subject-line-drop-down-list-10 is toegevoegd aan het lint van het berichtvenster.

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

14. Start nu uw Outlook opnieuw.

15. Bij het opstellen van een e-mailbericht hoeft u, als u een vooraf ingesteld onderwerp wilt invoegen, alleen maar te klikken op de nieuw toegevoegde knop op de Lint om het gebruikersformulier weer te geven, een onderwerp te selecteren in het vervolgmenu en vervolgens op de knop „OK" te klikken om het in de onderwerpregel in te vullen.

Opmerkingen:

1) U kunt het bestaande onderwerp wijzigen in elk onderwerp dat u selecteert in de Keuzelijst;

2) Deze methode werkt goed bij het beantwoorden of doorsturen van een e-mail in een nieuw venster;

3) Als u e-mails liever inline beantwoordt vanuit het leesvenster in plaats van een afzonderlijk venster te openen, kunt u het gebruikersformulier als volgt oproepen.

3,1) Klik op "Ontwikkelaar" > "Macro's" > "Project1.ChangeSubject". Zie schermafbeelding:

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

3,2) Wanneer het gebruikersformulier verschijnt, selecteert u een vooraf ingesteld onderwerp in de Keuzelijst en klikt u op de knop „OK"; het oorspronkelijke onderwerp wordt dan onmiddellijk gewijzigd.

4) Als u „Geen wijziging" selecteert in het vervolgmenu, blijft het oorspronkelijke onderwerp ongewijzigd.

AI Mail Assistant in Outlook: Slimmere antwoorden, helderder communicatie (magie met één klik!)

Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert van uw eerdere e-mails om intelligente, nauwkeurige antwoorden te genereren, uw e-mailinhoud te optimaliseren en u moeiteloos te ondersteunen bij het opstellen en verbeteren van berichten.

Deze functie ondersteunt:

Slimme antwoorden: Ontvang reacties die zijn samengesteld op basis van uw eerdere gesprekken — persoonlijk, nauwkeurig en direct klaar voor gebruik.
Laat uw e-mailtekst automatisch verfijnen voor meer duidelijkheid en impact.
Moeiteloos opstellen: Geef gewoon trefwoorden op en laat AI de rest doen, in meerdere schrijfstijlen.
Intelligente uitbreidingen: Breid uw gedachten moeiteloos uit met contextbewuste suggesties.
Samenvatting: Ontvang direct beknopte samenvattingen van lange e-mails.
Wereldwijde reikwijdte: Vertaal uw e-mails moeiteloos naar elke gewenste taal.

Deze functie ondersteunt:

Slimme e-mailantwoorden
Geoptimaliseerde inhoud
Op trefwoorden gebaseerde concepten
Intelligente inhoudsuitbreiding
E-mailsamenvatting
Vertaling in meerdere talen

Wacht niet—download nu de AI Mail Assistant en geniet van!

Beste Office-productiviteitstools

Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!

🤖KUTOOLS AI:Gebruikt geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…

📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…

📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…

🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...

👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...

👩🏼‍🤝‍👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Ontgrendel Kutools voor Outlook direct met één klik! Wacht niet langer—download nu en verhoog uw efficiëntie!

Functielijst van Kutools voor Outlook Nu downloaden Naar aankoop gaan

🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!

✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint

Over het pakket ⬇ Download het pakket 💳 Koop het pakket