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

Hur skapar man en rullgardinslista för ämnen i Outlook?

Du kan ha olika förinställda e-postämnen som måste distribueras till olika mottagare i Outlook. Det skulle vara mycket effektivt att ha en rullgardinsmeny för ämnesraden för att välja ett ämne utan att skriva det manuellt när du skriver ett e-postmeddelande. Precis som gif-filen som visas nedan. Denna handledning innehåller tre VBA-koder som hjälper dig att skapa en rullgardinslista med olika förinställda ämnen. När du skriver ett e-postmeddelande kan du välja vilket ämne du behöver från rullgardinsmenyn för att automatiskt fylla i ämnesraden. Följ steg-för-steg-guiden för att få det gjort.


Skapa en rullgardinslista för ämnen i Outlook med VBA-kod

Faktum är att Outlook inte tillåter att lägga till en rullgardinslista i ämnesraden. Här behöver du skapa ett användarformulär och kombinera det med VBA-koder för att fylla i det.

1. Starta din Outlook, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Userform.

3. Sedan Användarformulär1 är införd under Project1 i den vänstra rutan av Visual Basic redaktör. Du måste lägga till en kombinationsruta och en kommandoknapp till detta användarformulär genom att dra ComboBox och Kommandoknapp respektive från Verktygslåda till Användarformulär1.

4. Högerklicka på kommandoknappen och välj Fastigheter i högerklickmenyn.

5. I Egenskaper – CommandButton1 ändra rutan Bildtext fält till OK. Denna åtgärd kommer att ändra texten som visas på kommandoknappen.

6. Dubbelklicka på det tomma området i användarformuläret för att öppna motsvarande UserForm (kod) fönstret och ersätt sedan den befintliga koden med följande VBA-kod.

VBA-kod 1: UserForm med en rullgardinslista inklusive flera förinställda e-postämnen

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

Anmärkningar: I koden, den Ämne 1, 2, 3, 4 och 5 är de förinställda e-postämnen du vill använda i dina e-postmeddelanden. "Ingen förändring” betyder att inte ändra något av det befintliga e-postämnet. Du kan ändra de förinställda e-postämnena i VBA-koden enligt dina behov.

7. Dubbelklicka Project1 > Microsoft Outlook-objekt > ThisOutlookSession. Kopiera sedan följande VBA-kod till fönstret ThisOutlookSession (Code).

VBA-kod 2 används i ThisOutlookSession-fönstret

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. Fortsätt att klicka Insert > Modulerna i Visual Basic redaktör. Kopiera sedan och klistra in följande VBA-kod i Modul (kod) fönster.

VBA-kod 3 används i modulfönstret

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. Spara koderna och tryck på andra + Q för att stänga Visual Basic Editor fönstret och återgå till Outlook-applikationen.

10. Klicka på Ny E-post knapp under Hem fliken för att skapa ett e-postmeddelande.

11. Klicka på i det nya meddelandefönstret Anpassa snabbåtkomstverktygsfältet > Fler kommandon.

12. I Outlook-Val i dialogrutan måste du konfigurera enligt följande.

12.1) Välj Makron i Välj kommandon från rullgardinsmeny
12.2) Välj Project1.ChangeSubject i kommandolistan;
12.3) Klicka på Lägg till knapp;
12.4) Klicka på OK knapp. Se skärmdump:

13. Då kan du se att en knapp har lagts till i menyfliksområdet i meddelandefönstret.

14. Nu måste du starta om din Outlook.

15. När du skriver ett e-postmeddelande, om du behöver infoga ett förinställt ämne, behöver du bara klicka på den nyligen tillagda knappen på menyfliksområdet för att visa användarformuläret, välj ett ämne från rullgardinsmenyn och klicka sedan på OK knappen för att fylla i den i ämnesraden.

Anmärkningar:

1) Du kan ändra det befintliga ämnet med valfritt ämne valt i rullgardinsmenyn;
2) Denna metod fungerar bra när du svarar på eller vidarebefordrar ett e-postmeddelande i ett nytt fönster;
3) Om du tenderar att svara på e-postmeddelanden direkt från läsrutan istället för att öppna ett separat fönster, kan du ta fram användarformuläret enligt följande.
3.1) Klicka Utvecklare > Makron > Project1.ChangeSubject. Se skärmdump:

3.2) När användarformuläret dyker upp, välj ett förinställt ämne från rullgardinsmenyn och klicka på OK knappen ändras det ursprungliga ämnet omedelbart.

4) Om du väljer Ingen förändring i rullgardinsmenyn kommer det ursprungliga ämnet att behållas utan några ändringar.

Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser