Přejít k hlavnímu obsahu

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.

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.

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 ProDá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.

Více       Stažení zdarma      Nákup
 

 

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would it be possible to create an external source for:
.AddItem "Subject 1"
.AddItem "Subject 2"
.AddItem "Subject 3"
.AddItem "Subject 4"
.AddItem "Subject 5"

So the list can be shared and edited for multiple computers?
This comment was minimized by the moderator on the site
Hi,

I have made the procedure but when i clic on the macro button, they don't have any action ?
Could you help me ?
This comment was minimized by the moderator on the site
Hi,

Sorry for the inconvenience. Did you follow the instructions provided in the post exactly? Can you tell me which version of Excel you are using?
This comment was minimized by the moderator on the site
I would like to creat an E-mail draft with such a drop down list for the subject.
Is it possible to attache this function to an mail template or does it have to be installed in the software of each user?
This comment was minimized by the moderator on the site
Hi Hana,

The code can't be attached to an email template, users who need to use this dropdown list will need to follow the steps in the tutorial to add the code to their Outlook.
This comment was minimized by the moderator on the site
Hi,

This is great. Is it possible to do the same for Outlook Calendar invites...meetings and appointments?
This comment was minimized by the moderator on the site
Hi James Marr,

This method does not support Outlook Calendar at the moment. Sorry for the inconvenience.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations