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 Domů 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.
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:
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.