Hoe maak je een vervolgkeuzelijst voor onderwerpen in Outlook?
Je hebt mogelijk verschillende voorgedefinieerde e-mailonderwerpen die naar verschillende ontvangers in Outlook moeten worden gestuurd. Het zou erg efficiënt zijn om een vervolgkeuzelijst voor de onderwerprij te hebben, zodat je een onderwerp kunt selecteren zonder het handmatig te typen bij het opstellen van een e-mail. Net zoals in de onderstaande gif wordt gedemonstreerd. Deze handleiding biedt drie VBA-codes om je te helpen een vervolgkeuzelijst met verschillende voorgedefinieerde onderwerpen te maken. Bij het opstellen van een e-mail kun je elk gewenst onderwerp selecteren uit de vervolgkeuzelijst om de onderwerprij automatisch in te vullen. Volg de stap-voor-stap handleiding om dit te realiseren.
Maak een vervolgkeuzelijst voor onderwerpen in Outlook met VBA-code
Eigenlijk staat Outlook niet toe om een vervolgkeuzelijst in de onderwerprij toe te voegen. Hier moet je een gebruikersformulier maken en dit combineren met VBA-codes om het te voltooien.
1. Start je Outlook en druk op de toetsen "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.
2. Klik in het venster "Microsoft Visual Basic for Applications" op "Invoegen" > "UserForm".
3. Vervolgens wordt "UserForm1" ingevoegd onder "Project1" in het linkerdeelvenster van de "Visual Basic"-editor. Je moet een combobox en een opdrachtknop aan dit gebruikersformulier toevoegen door respectievelijk "ComboBox" en "CommandButton" van de "Toolbox" naar "UserForm1" te slepen.
4. Klik met de rechtermuisknop op de opdrachtknop en selecteer "Eigenschappen" in het rechtermuisknopmenu.
5. Wijzig in het deelvenster "Eigenschappen - CommandButton1" het veld "Caption" naar "OK". Deze actie verandert de tekst die op de opdrachtknop wordt weergegeven.
6. Dubbelklik op het lege gebied in de UserForm om het bijbehorende "UserForm (Code)"-venster te openen en vervang de bestaande code door de volgende VBA-code.
VBA-code 1: UserForm met een vervolgkeuzelijst met meerdere voorgedefinieerde e-mailonderwerpen
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
Opmerking: In de code zijn "Onderwerp 1, 2, 3, 4" en "5" de voorgedefinieerde e-mailonderwerpen die je wilt gebruiken in je e-mails. “Geen wijziging” betekent dat er niets aan het bestaande e-mailonderwerp wordt gewijzigd. Je kunt de voorgedefinieerde e-mailonderwerpen in de VBA-code naar wens wijzigen.
7. Dubbelklik op "Project1" > "Microsoft Outlook Objects" > "ThisOutlookSession". Kopieer vervolgens de volgende VBA-code naar het venster "ThisOutlookSession (Code)".
VBA-code 2 gebruikt in het ThisOutlookSession-venster
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. Ga verder met klikken op "Invoegen" > "Module" in de "Visual Basic"-editor. Kopieer en plak vervolgens de volgende VBA-code in het venster "Module (Code)".
VBA-code 3 gebruikt in het Module-venster
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. Sla de codes op en druk op de toetsen "Alt" + "Q" om het venster "Visual Basic Editor" te sluiten en terug te keren naar de Outlook-toepassing.
10. Klik op de knop "Nieuwe Email" onder het tabblad "Home" om een e-mail te maken.
11. Klik in het nieuwe berichtvenster op "Aanpassen Snelle Toegangswerkbalk" > "Meer Opdrachten".
12. Configureer in het dialoogvenster "Outlook-opties" als volgt.
13. Je ziet nu dat een knop 
is toegevoegd aan de werkbalk van het berichtenvenster.
14. Nu moet je je Outlook opnieuw starten.
15. Tijdens het opstellen van een e-mailbericht, als je een voorgedefinieerd onderwerp wilt invoegen, hoef je alleen maar op de nieuw toegevoegde knop op de werkbalk te klikken om het gebruikersformulier weer te geven, selecteer een onderwerp uit de vervolgkeuzemenu en klik vervolgens op de knop "OK" om het in de onderwerprij in te vullen.
Opmerkingen:
AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
- Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
- Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
- Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
- Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.
Deze functie ondersteunt:
- Slimme e-mailreacties
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Meertalige vertaling
Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet
Beste productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
