Как да създадете поле за списък на UserForm в Outlook

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

Етап 1

Щракнете върху раздела „Файл“, „Опции“ и след това „Персонализиране на лентата“.

Стъпка 2

Поставете отметка в квадратчето с надпис „Разработчик“ под Основни раздели и след това щракнете върху „OK“. Outlook автоматично ще се върне в началния панел.

Стъпка 3

Щракнете върху раздела „Файл“ и след това върху „Опции“, „Център за доверие“ и „Настройки на центъра за доверие“.

Стъпка 4

Изберете „Настройки на макроса“, „Активиране на всички макроси“ и след това щракнете върху „OK“, за да позволите на макроса в списъка да се изпълнява по време на тестване. След като приключите с вашия UserForm, обаче, можете да промените настройките си на „Известия за всички макроси“ за по-голяма сигурност.

Стъпка 5

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

Стъпка 6

Щракнете върху раздела „Разработчик“, „Макроси“ и след това опцията „Макроси“.

Стъпка 7

Въведете име за вашия макрос и след това щракнете върху „Създаване“.

Стъпка 8

Щракнете върху бутона "Вмъкване на потребителска форма", за да се покаже кутията с инструменти за формуляри и да се създаде потребителска форма, която ще съдържа вашето списъчно поле.

Стъпка 9

Щракнете върху контролата "Списък с полета" в кутията с инструменти, задръжте бутона на мишката, плъзнете контролата до UserForm и след това я освободете.

Стъпка 10

Щракнете върху контролата "CommandButton" в Кутията с инструменти, задръжте бутона на мишката, плъзнете го до UserForm и след това го освободете.

Стъпка 11

Щракнете с десния бутон на мишката върху „CommandButton“ в UserForm и след това щракнете върху „View Code“, за да се покаже неговият VBA макро код.

Стъпка 12

Добавете елементи към списъчното поле с помощта на функцията AddItem. Например, ако искате списъчното поле да съдържа трите основни цвята, вашият код трябва да прилича на следното:

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

ListBox1 е името, което Outlook автоматично дава списъчното поле, което сте плъзнали в UserForm. Изявлението ListBox1.AddItem "Red" прави червения първи елемент в списъчното поле.

Щракнете върху "Запазване", натиснете "F5" и след това щракнете върху CommandButton, за да стартирате макроса. Когато стартирате макроса и щракнете върху "CommandButton", цветовете Червено, Зелено и Синьо ще се появят в списъчното поле.