Note: The other languages of the website are Google-translated. Back to English

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 Vastgoed 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

Opmerking:: 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 functie in het 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.

12.1) Selecteer Macro's functie in het Kies opdrachten van keuzelijst;
12.2) Selecteer Project1.Onderwerp wijzigen in de lijst met opdrachten;
12.3) Klik op de Toevoegen knop;
12.4) Klik op de OK knop. Zie screenshot:

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:

1) U kunt het bestaande onderwerp wijzigen met elk onderwerp dat is geselecteerd in de vervolgkeuzelijst;
2) Deze methode werkt goed bij het beantwoorden of doorsturen van een e-mail in een nieuw venster;
3) Als u de neiging heeft om e-mails in-line te beantwoorden vanuit het leesvenster in plaats van een apart venster te openen, kunt u het gebruikersformulier als volgt openen.
3.1) Klik op Ontwikkelaar > Macro's > Project1.Onderwerp wijzigen. Zie screenshot:

3.2) Wanneer het gebruikersformulier verschijnt, selecteert u een vooraf ingesteld onderwerp in de vervolgkeuzelijst en klikt u op de OK knop, wordt het oorspronkelijke onderwerp onmiddellijk gewijzigd.

4) Als u selecteert: Geen verandering in het vervolgkeuzemenu blijft het oorspronkelijke onderwerp ongewijzigd.

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Heb je vragen? Stel ze hier. (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL