Hoe maak je een vervolgkeuzelijst voor onderwerpen in Outlook?
Mogelijk hebt u verschillende vooraf ingestelde e-mailonderwerpen die naar verschillende ontvangers in Outlook moeten worden gedistribueerd. Het zou zeer efficiënt zijn om een vervolgkeuzelijst met onderwerpregel te hebben om een onderwerp te selecteren zonder het handmatig te typen bij het opstellen van een e-mail. Net zoals de gif hieronder gedemonstreerd. Deze zelfstudie biedt drie VBA-codes om u te helpen bij het maken van een vervolgkeuzelijst met verschillende vooraf ingestelde onderwerpen. Bij het opstellen van een e-mail kunt u elk gewenst onderwerp selecteren in de vervolgkeuzelijst om de onderwerpregel automatisch in te vullen. Volg de stapsgewijze handleiding om het voor elkaar te krijgen.
Maak een vervolgkeuzelijst voor onderwerpen in Outlook met VBA-code
Outlook staat het eigenlijk niet toe om een vervolgkeuzelijst in de onderwerpregel toe te voegen. Hier moet u een gebruikersformulier maken en dit combineren met VBA-codes om het in te vullen.
1. Start uw Outlook, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > UserForm.
3. Vervolgens de Gebruikersformulier1 is ingevoegd onder Project1 in het linkerdeelvenster van de Visual Basic editor. U moet een keuzelijst met invoervak en een opdrachtknop aan dit gebruikersformulier toevoegen door de ComboBox en Command knop respectievelijk van de Toolbox aan de Gebruikersformulier1.
4. Klik met de rechtermuisknop op de opdrachtknop en selecteer Properties in het rechtsklikmenu.
5. In de Eigenschappen – CommandButton1 verander het Onderschrift veld naar OK. Deze actie verandert de tekst die wordt weergegeven op de opdrachtknop.
6. Dubbelklik op het lege gebied in het gebruikersformulier om de bijbehorende Gebruikersformulier (code) venster en vervang vervolgens de bestaande code door de volgende VBA-code.
VBA-code 1: UserForm met een vervolgkeuzelijst inclusief meerdere vooraf ingestelde 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
Note: In de code, de Onderwerp 1, 2, 3, 4 en 5 zijn de vooraf ingestelde e-mailonderwerpen die u in uw e-mails wilt gebruiken. “Geen verandering” betekent niets veranderen aan het bestaande e-mailonderwerp. U kunt de vooraf ingestelde e-mailonderwerpen in de VBA-code naar wens wijzigen.
7. Dubbelklik Project1 > Microsoft Outlook-objecten > DezeOutlookSessie. Kopieer vervolgens de volgende VBA-code naar 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
8. Blijf klikken Invoegen > Module in de Visual Basic editor. Kopieer en plak vervolgens de volgende VBA-code in de Module (code) venster.
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
9. Sla de codes op en druk op de anders + Q toetsen om de Visual Basic-editor venster en keer terug naar de Outlook-toepassing.
10. Klik op het nieuwe e-mail knop onder de Home tabblad om een e-mail te maken.
11. Klik in het nieuwe berichtvenster op Pas de werkbalk Snelle toegang aan > Meer opdrachten.
12. In de Outlook Opties dialoogvenster, moet u als volgt configureren.
13. Dan zie je dat een knop is toegevoegd aan het lint van het berichtenvenster.
14. Nu moet u uw Outlook opnieuw opstarten.
15. Als u bij het opstellen van een e-mailbericht een vooraf ingesteld onderwerp moet invoegen, hoeft u alleen maar op de nieuw toegevoegde knop op het lint te klikken om het gebruikersformulier weer te geven, een onderwerp te selecteren in het vervolgkeuzemenu en vervolgens op de knop OK knop om het in de onderwerpregel in te vullen.
Opmerkingen:
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.