Kako ustvariti spustni seznam za predmete v Outlooku?

Morda imate različne prednastavljene zadeve e-pošte, ki jih je treba v Outlooku razdeliti različnim prejemnikom. Zelo učinkovito bi bilo imeti spustni seznam zadeve za izbiro zadeve, ne da bi jo ročno tipkali pri sestavljanju e-pošte. Tako kot spodnji gif. Ta vadnica ponuja tri kode VBA, ki vam pomagajo ustvariti spustni seznam z različnimi prednastavljenimi predmeti. Ko sestavljate e-poštno sporočilo, lahko v spustnem meniju izberete katero koli zadevo, ki jo potrebujete, da se vrstica z zadevo samodejno izpolni. Sledite navodilom po korakih, da to storite.

Ustvarite spustni seznam za predmete v Outlooku s kodo VBA

Pravzaprav Outlook ne dovoljuje dodajanja spustnega seznama v vrstico z zadevo. Tukaj morate ustvariti uporabniški obrazec in ga združiti s kodami VBA, da ga dokončate.

1. Zaženite Outlook, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Uporabniški obrazec.

3. Nato Uporabniški obrazec 1 se vstavi pod Project1 v levem podoknu Visual Basic urednik. Temu uporabniškemu obrazcu morate dodati kombinirano polje in ukazni gumb tako, da povlečete ComboBox in CommandButton oziroma od Toolbox k Uporabniški obrazec 1.

4. Desni klik na ukazni gumb in izberite Nepremičnine v meniju z desnim klikom.

5. V Ljubljani Lastnosti – CommandButton1 spremenite podokno napis polje v OK. To dejanje bo spremenilo besedilo, prikazano na ukaznem gumbu.

6. Dvokliknite na prazno območje v uporabniškem obrazcu, da odprete ustrezen Uporabniški obrazec (koda) okno, nato zamenjajte obstoječo kodo z naslednjo kodo VBA.

Koda VBA 1: Uporabniški obrazec s spustnim seznamom, ki vključuje več prednastavljenih predmetov e-pošte

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

Opombe: V kodi je Zadeva 1, 2, 3, 4 in 5 so prednastavljene e-poštne zadeve, ki jih želite uporabiti v svojih e-poštnih sporočilih. “Brez spremembe« pomeni, da ne spremenite ničesar od obstoječe zadeve e-pošte. Prednastavljene teme e-pošte v kodi VBA lahko spremenite glede na svoje potrebe.

7. Dvojni klik Project1 > Predmeti Microsoft Outlook > Ta OutlookSession. Nato kopirajte naslednjo kodo VBA v okno ThisOutlookSession (koda).

Koda VBA 2, uporabljena v oknu 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. Nadaljujte s klikom Vstavi > Moduli v Visual Basic urednik. Nato kopirajte in prilepite naslednjo kodo VBA v Modul (koda) okno.

Koda VBA 3, uporabljena v oknu modula

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. Shranite kode in pritisnite druga + Q tipke za zapiranje Visual Basic urejevalnik in se vrnite v aplikacijo Outlook.

10. Kliknite nova elektronska pošta gumb pod Home zavihek za ustvarjanje e-pošte.

11. V oknu za novo sporočilo kliknite Prilagodite orodno vrstico za hitri dostop > Več ukazov.

12. V Ljubljani Outlook Možnosti pogovorno okno, morate konfigurirati na naslednji način.

12.1) Izberite Makri v Izberite ukaze iz spustni seznam;

12.2) Izberite Project1.ChangeSubject v seznamskem polju ukazov;

12.3) Kliknite Dodaj gumb;

12.4) Kliknite OK . Oglejte si posnetek zaslona:

13. Potem lahko vidite gumb je bil dodan na trak okna s sporočili.

14. Zdaj morate znova zagnati Outlook.

15. Če morate pri sestavljanju e-poštnega sporočila vstaviti prednastavljeno zadevo, morate klikniti na novo dodan gumb na traku, da prikažete uporabniški obrazec, izbrati zadevo v spustnem meniju in nato klikniti OK gumb, da ga vnesete v vrstico z zadevo.

Opombe:

1) Obstoječo temo lahko spremenite s katero koli temo, izbrano na spustnem seznamu;

2) Ta metoda dobro deluje pri odgovarjanju ali posredovanju e-pošte v novem oknu;

3) Če na e-poštna sporočila običajno odgovarjate v vrstici iz podokna za branje, namesto da odprete ločeno okno, lahko uporabniški obrazec prikažete na naslednji način.

3.1) Kliknite Razvojni > Makri > Project1.ChangeSubject. Oglejte si posnetek zaslona:

3.2) Ko se prikaže uporabniški obrazec, s spustnega seznama izberite prednastavljeno temo in kliknite OK gumb, bo izvirna tema takoj spremenjena.

4) Če izberete Brez spremembe v spustnem meniju bo izvirna tema ohranjena brez sprememb.

Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.