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.

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:

---

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.

Lees verder... Download nu...