Как да създадете падащ списък в имейл с Outlook чрез VBA

Microsoft Outlook поддържа програмиране с Visual Basic for Applications (VBA), което ви позволява да вградите персонализирана форма в имейл съобщение. Чрез UserForm и контрол за списък (ListBox) получателят може да избира от предварително зададени опции. Преди да започнете, трябва да активирате раздела „Developer“ в лентата и да настроите сигурността за макроси.

Настройка на Outlook за VBA макроси

Стъпка 1

Отворете раздела File → Options → Customize Ribbon.

Стъпка 2

В секцията Main Tabs отметнете Developer и натиснете OK. Outlook ще се върне към главния панел.

Стъпка 3

Отново от File изберете Options → Trust Center → Trust Center Settings.

Стъпка 4

В Macro Settings изберете Enable all macros и кликнете OK. За по‑голяма сигурност след тестовете можете да върнете настройката на Notifications for all macros.

Стъпка 5

Рестартирайте Outlook, за да влязат в сила промените.

Стъпка 6

Отидете в раздела Developer → Macros → Macros.

Стъпка 7

Въведете име за вашия макрос и натиснете Create.

Стъпка 8

Натиснете бутона Insert UserForm, за да отворите Toolbox и създадете нов UserForm.

Стъпка 9

От Toolbox‑а изберете контрол ListBox, задръжте мишката, плъзнете го върху UserForm‑а и пуснете.

Стъпка 10

По същия начин добавете контрол CommandButton към UserForm‑а.

Стъпка 11

Кликнете с десния бутон върху CommandButton и изберете View Code, за да отворите редактора на VBA.

Стъпка 12

В кода добавете елементи в ListBox чрез метода AddItem. Пример за три основни цвята:

Private Sub CommandButton1_Click()
    ListBox1.AddItem "Red"
    ListBox1.AddItem "Green"
    ListBox1.AddItem "Blue"
End Sub

ListBox1 е името, което Outlook автоматично задава на вашия ListBox. След записване (Ctrl+S) и натискане на F5, кликнете върху бутона – в списъка ще се появят „Red“, „Green“ и „Blue“.

Важно

• Информацията е приложима за Outlook 2013. При други версии може да има малки разлики.