Jak vytvořit rozevírací seznam pro předměty v Outlooku?

Můžete mít různé přednastavené předměty e-mailu, které je třeba distribuovat různým příjemcům v aplikaci Outlook. Bylo by velmi efektivní mít rozevírací seznam předmětu pro výběr předmětu bez ručního zadávání při psaní e-mailu. Stejně jako gif ukázaný níže. Tento výukový program poskytuje tři kódy VBA, které vám pomohou vytvořit rozevírací seznam s různými přednastavenými předměty. Při psaní e-mailu můžete z rozevírací nabídky vybrat jakýkoli předmět, který chcete automaticky vyplnit. Chcete-li to provést, postupujte podle podrobného průvodce.

Vytvořte rozevírací seznam pro předměty v Outlooku s kódem VBA

Ve skutečnosti Outlook neumožňuje přidat rozevírací seznam do předmětu. Zde musíte vytvořit uživatelský formulář a zkombinovat jej s kódy VBA, abyste jej dokončili.

1. Spusťte svůj Outlook a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > UserForm.

3. Potom UserForm1 se vkládá pod Project1 v levém panelu Visual Basic editor. Do tohoto uživatelského formuláře musíte přidat pole se seznamem a příkazové tlačítko přetažením ComboBox a CommandButton respektive z Toolbox k UserForm1.

4. Klepněte pravým tlačítkem na příkazové tlačítko a vyberte Nemovitosti v nabídce pravého tlačítka myši.

5. V Vlastnosti – CommandButton1 podokno, změňte Titulek pole do OK. Tato akce změní text zobrazený na příkazovém tlačítku.

6. Poklepáním na prázdnou oblast v UserForm otevřete odpovídající UserForm (kód) okno, poté nahraďte stávající kód následujícím kódem VBA.

Kód VBA 1: UserForm s rozevíracím seznamem obsahujícím několik přednastavených předmětů e-mailu

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

Poznámka: V kódu je Předmět 1, 2, 3, 4 a 5 jsou přednastavené předměty e-mailů, které chcete používat ve svých e-mailech. “Žádná změna” znamená neměnit nic ze stávajícího předmětu e-mailu. Přednastavené předměty e-mailu v kódu VBA můžete změnit podle svých potřeb.

7. Dvojklik Project1 > Objekty Microsoft Outlook > ThisOutlookSession. Poté zkopírujte následující kód VBA do okna ThisOutlookSession (Code).

Kód VBA 2 použitý v okně 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. Pokračujte kliknutím Vložit > Modul v Visual Basic editor. Poté zkopírujte a vložte následující kód VBA do Modul (kód) okno.

Kód VBA 3 použitý v okně Modul

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. Uložte kódy a stiskněte Další + Q klávesy pro zavření Editor jazyka Visual Basic a vraťte se do aplikace Outlook.

10. Klepněte na tlačítko Nový Email pod tlačítkem Home vytvořte e-mail.

11. V okně nové zprávy klepněte na Přizpůsobte panel nástrojů Rychlý přístup > Další příkazy.

12. V Možnosti aplikace Outlook dialogové okno, musíte nakonfigurovat následujícím způsobem.

12.1) Vyberte makra v Vyberte příkazy z rozbalovací seznam;

12.2) Vyberte Project1.ChangeSubject v seznamu příkazů;

12.3) Klikněte na přidat tlačítko;

12.4) Klikněte na OK knoflík. Viz screenshot:

13. Pak můžete vidět tlačítko byl přidán na pás karet v okně zprávy.

14. Nyní musíte restartovat svůj Outlook.

15. Pokud při psaní e-mailové zprávy potřebujete vložit přednastavený předmět, stačí kliknout na nově přidané tlačítko na pásu karet pro zobrazení uživatelského formuláře, vybrat předmět z rozbalovací nabídky a poté kliknout na tlačítko OK tlačítko k vyplnění do řádku předmětu.

Poznámky:

1) Stávající předmět můžete změnit libovolným předmětem vybraným v rozevíracím seznamu;

2) Tato metoda funguje dobře při odpovídání na e-mail nebo jeho přeposílání v novém okně;

3) Pokud máte tendenci odpovídat na e-maily přímo z podokna pro čtení místo otevírání samostatného okna, můžete uživatelský formulář vyvolat následovně.

3.1) Klepněte na tlačítko Vývojka > makra > Project1.ChangeSubject. Viz snímek obrazovky:

3.2) Když se objeví uživatelský formulář, vyberte z rozevíracího seznamu přednastavený předmět a klikněte na OK tlačítko, původní předmět se okamžitě změní.

4) Pokud zvolíte Žádná změna v rozbalovacím menu zůstane původní předmět zachován beze změn.

Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.