Jak v Outlooku vytvořit UserForm s ListBoxem

Krok 1 – Přidání karty Vývojář

Na kartě Soubor vyberte Možnosti → Přizpůsobit pás karet.

Krok 2 – Aktivace karty Vývojář

Zaškrtněte položku Vývojář v sekci Hlavní karty a klikněte na OK. Outlook se vrátí na domovskou kartu.

Krok 3 – Nastavení zabezpečení maker

Opět otevřete Soubor → Možnosti → Centrum zabezpečení → Nastavení Centra zabezpečení.

Krok 4 – Povolení maker

V Macro Settings zvolte Povolit všechna makra a potvrďte OK. Po dokončení úprav můžete nastavit Upozornění pro všechna makra pro vyšší bezpečnost.

Krok 5 – Restart Outlooku

Restartujte Outlook, aby se změny zabezpečení projevily.

Krok 6 – Otevření editoru maker

Na kartě Vývojář klikněte na Makra a zadejte název nového makra, poté stiskněte Vytvořit.

Krok 7 – Vložení UserFormu

V editoru VBA zvolte Insert → UserForm. Zobrazí se toolbox, ze kterého přetáhnete ovládací prvky.

Krok 8 – Přidání ListBoxu

V toolboxu vyberte ListBox, táhněte jej na formulář a uvolněte tlačítko myši.

Krok 9 – Přidání tlačítka (CommandButton)

Vyberte CommandButton, přetáhněte jej na UserForm a uvolněte.

Krok 10 – Úprava kódu tlačítka

Pravým tlačítkem klikněte na tlačítko v UserFormu a zvolte View Code. Do otevřeného okna vložte následující kód:

Private Sub CommandButton1_Click()
    ListBox1.AddItem "Červená"
    ListBox1.AddItem "Zelená"
    ListBox1.AddItem "Modrá"
End Sub

ListBox1 je výchozí název, který Outlook přiřadil vašemu ListBoxu. Každý řádek AddItem přidá nový prvek do seznamu.

Krok 11 – Otestování makra

Uložte projekt, stiskněte F5 a v otevřeném formuláři klikněte na tlačítko. V ListBoxu se objeví položky „Červená“, „Zelená“ a „Modrá“.

Upozornění

• Tento návod je určen pro Outlook 2013; v jiných verzích se mohou některé kroky mírně lišit.