Як створити розкривний список для тем в Outlook?
У вас можуть бути різні попередньо встановлені теми електронних листів, які потрібно надіслати різним одержувачам у Outlook. Було б дуже ефективно мати розкривний список теми для вибору теми, не вводячи її вручну під час створення електронного листа. Так само, як на зображенні нижче. Цей посібник містить три коди VBA, які допоможуть вам створити розкривний список із різними попередньо встановленими темами. Під час створення електронного листа ви можете вибрати будь-яку потрібну тему зі спадного меню, щоб автоматично заповнити рядок теми. Дотримуйтеся покрокових інструкцій, щоб це зробити.
Створіть розкривний список для тем у Outlook за допомогою коду VBA
Насправді Outlook не дозволяє додавати розкривний список у рядок теми. Тут вам потрібно створити форму користувача та поєднати її з кодами VBA, щоб заповнити її.
1. Запустіть Outlook, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Форма користувача.
3. Тоді Форма користувача1 вставляється під Project1 на лівій панелі Візуальний Бейсік редактор. Вам потрібно додати поле зі списком і командну кнопку до цієї форми користувача, перетягнувши ComboBox і CommandButton відповідно від Інструменти до Форма користувача1.
4. Клацніть правою кнопкою миші кнопку команди та виберіть властивості в меню правої кнопки миші.
5 В Властивості – CommandButton1 , змініть Підпис поле до OK. Ця дія змінить текст, який відображається на командній кнопці.
6. Двічі клацніть порожню область у формі користувача, щоб відкрити відповідну форму Форма користувача (код) потім замініть існуючий код таким кодом VBA.
Код VBA 1: Форма користувача зі спадним списком із кількома попередньо встановленими темами електронних листів
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
примітки: У коді Тема 1, 2, 3, 4 і 5 це попередньо встановлені теми електронних листів, які ви хочете використовувати у своїх електронних листах. «Без змін” означає нічого не змінювати в існуючій темі електронного листа. Ви можете змінити попередньо встановлені теми електронних листів у коді VBA відповідно до ваших потреб.
7 Подвійне клацання Project1 > Об'єкти Microsoft Outlook > ThisOutlookSession. Потім скопіюйте наведений нижче код VBA у вікно ThisOutlookSession (Код).
Код VBA 2, який використовується у вікні 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. Перейдіть на клацання Insert > Модулі в Візуальний Бейсік редактор. Потім скопіюйте та вставте наведений нижче код VBA у Модуль (Код) вікна.
Код VBA 3, який використовується у вікні модуля
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. Збережіть коди та натисніть інший + Q клавіші, щоб закрити Редактор Visual Basic і поверніться до програми Outlook.
10. Натисніть Нова електронна пошта кнопка під кнопкою Головна вкладка для створення електронного листа.
11. У вікні нового повідомлення натисніть Налаштування панелі швидкого доступу > Більше команд.
12 В Параметри Outlook діалогове вікно, вам потрібно налаштувати наступним чином.
13. Потім ви можете побачити кнопку 
додано на стрічку вікна повідомлень.
14. Тепер потрібно перезапустити Outlook.
15. Під час створення повідомлення електронної пошти, якщо вам потрібно вставити попередньо встановлену тему, вам потрібно просто натиснути щойно додану кнопку на стрічці, щоб відобразити форму користувача, вибрати тему зі спадного меню, а потім клацнути OK кнопку, щоб заповнити його в рядку теми.
примітки:
Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!
- Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
- Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
- Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
- Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
- Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
