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

Hvordan opretter man en rulleliste for emner i Outlook?

Du kan have forskellige forudindstillede e-mail-emner, der skal distribueres til forskellige modtagere i Outlook. Det ville være meget effektivt at have en emnelinje-rulleliste til at vælge et emne uden at skrive det manuelt, når du skriver en e-mail. Ligesom gif'en vist nedenfor. Denne vejledning indeholder tre VBA-koder, der hjælper dig med at oprette en rulleliste med forskellige forudindstillede emner. Når du skriver en e-mail, kan du vælge ethvert emne, du har brug for, fra rullemenuen for automatisk at udfylde emnelinjen. Følg venligst trin-for-trin guiden for at få det gjort.


Opret en rulleliste for emner i Outlook med VBA-kode

Faktisk tillader Outlook ikke at tilføje en rulleliste i emnelinjen. Her skal du oprette en brugerformular og kombinere den med VBA-koder for at udfylde den.

1. Start din Outlook, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Brugerformular.

3. Derefter Brugerformular1 er indsat under Project1 i venstre rude af Visual Basic redaktør. Du skal tilføje en kombinationsboks og en kommandoknap til denne brugerformular ved at trække i Kombinationsfelt og Kommandoknap henholdsvis fra Værktøjskasse til Brugerformular1.

4. Højreklik på kommandoknappen og vælg Ejendomme i højreklikmenuen.

5. i Egenskaber – CommandButton1 skift ruden Caption felt til OK. Denne handling vil ændre den tekst, der vises på kommandoknappen.

6. Dobbeltklik på det tomme område i brugerformularen for at åbne det tilsvarende Brugerformular (kode) vindue, og udskift derefter den eksisterende kode med følgende VBA-kode.

VBA-kode 1: Brugerformular med en rulleliste med flere forudindstillede e-mail-emner

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

Bemærk: I koden er Emne 1, 2, 3, 4 og 5 er de forudindstillede e-mail-emner, du vil bruge i dine e-mails. “Ingen ændring” betyder ikke at ændre noget af det eksisterende e-mailemne. Du kan ændre de forudindstillede e-mail-emner i VBA-koden i henhold til dine behov.

7. Dobbeltklik Project1 > Microsoft Outlook-objekter > Denne OutlookSession. Kopier derefter følgende VBA-kode ind i vinduet ThisOutlookSession (Code).

VBA-kode 2 brugt i vinduet 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. Fortsæt med at klikke indsatte > Moduler i Visual Basic redaktør. Kopier og indsæt derefter følgende VBA-kode i Modul (kode) vindue.

VBA-kode 3 brugt i modulvinduet

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. Gem koderne og tryk på andre + Q taster for at lukke Visual Basic Editor vindue og vende tilbage til Outlook-applikationen.

10. Klik på ny email knappen under Forside fanen for at oprette en e-mail.

11. Klik på i det nye meddelelsesvindue Tilpas værktøjslinjen Hurtig adgang > Flere kommandoer.

12. i Outlook Options dialogboks, skal du konfigurere som følger.

12.1) Vælg Makroer i Vælg kommandoer fra rulleliste
12.2) Vælg Projekt1.ChangeSubject i kommandolisten;
12.3) Klik på Tilføj knap;
12.4) Klik på OK knap. Se skærmbillede:

13. Så kan du se, at en knap er blevet tilføjet til båndet i meddelelsesvinduet.

14. Nu skal du genstarte din Outlook.

15. Når du skriver en e-mail-meddelelse, hvis du skal indsætte et forudindstillet emne, skal du blot klikke på den nyligt tilføjede knap på båndet for at få vist brugerformularen, vælge et emne fra rullemenuen og derefter klikke på OK knappen for at udfylde den i emnelinjen.

Noter:

1) Du kan ændre det eksisterende emne med et hvilket som helst emne valgt i rullelisten;
2) Denne metode fungerer godt, når du besvarer eller videresender en e-mail i et nyt vindue;
3) Hvis du har tendens til at svare på e-mails in-line fra læseruden i stedet for at åbne et separat vindue, kan du hente brugerformularen som følger.
3.1) Klik Udvikler > Makroer > Projekt1.ChangeSubject. Se skærmbillede:

3.2) Når brugerformularen dukker op, skal du vælge et forudindstillet emne fra rullelisten og klikke på OK knappen, ændres det originale emne med det samme.

4) Hvis du vælger Ingen ændring i rullemenuen bevares det originale emne uden ændringer.

Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL