Как создать выпадающий список тем в Outlook?

Author: Siluvia Last Modified: 2025-08-07

Возможно, у вас есть различные предустановленные темы электронных писем, которые необходимо распределить между разными получателями в Outlook. Было бы очень эффективно иметь выпадающий список тем для выбора темы без необходимости вводить её вручную при составлении письма. Как показано на gif ниже. В этом руководстве представлены три кода VBA, которые помогут вам создать выпадающий список с различными предустановленными темами. При написании письма вы можете выбрать любую нужную тему из выпадающего списка, чтобы автоматически заполнить строку темы. Пожалуйста, следуйте пошаговому руководству.

Создание выпадающего списка тем в Outlook с помощью кода VBA

На самом деле, Outlook не позволяет добавлять выпадающий список в строку темы. Здесь вам нужно создать пользовательскую форму и объединить её с кодами VBA для завершения задачи.

1. Запустите ваш Outlook, нажмите клавиши "Alt" + "F11", чтобы открыть окно "Microsoft Visual Basic for Applications".

2. В окне "Microsoft Visual Basic for Applications" нажмите "Вставить" > "Пользовательская форма".

doc-subject-line-drop-down-list-1

3. Затем "UserForm1" будет вставлен под "Project1" в левой панели редактора "Visual Basic". Вам нужно добавить комбинированный список и кнопку команды на эту пользовательскую форму, перетаскивая "ComboBox" и "CommandButton" соответственно из "Toolbox" в "UserForm1".

doc-subject-line-drop-down-list-2

4. Щелкните правой кнопкой мыши кнопку команды и выберите "Свойства" в контекстном меню.

doc-subject-line-drop-down-list-3

5. В панели "Свойства - CommandButton1" измените поле "Caption" на "OK". Это действие изменит текст, отображаемый на кнопке команды.

doc-subject-line-drop-down-list-4

6. Дважды щелкните на пустом месте в UserForm, чтобы открыть соответствующее окно "UserForm (Code)", затем замените существующий код на следующий код 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

doc-subject-line-drop-down-list-5

Примечание: В коде "Тема 1, 2, 3, 4" и "5" являются предустановленными темами электронной почты, которые вы хотите использовать в своих письмах. “Без изменений” означает, что ничего не меняется в существующей теме письма. Вы можете изменить предустановленные темы писем в коде VBA в соответствии с вашими потребностями.

7. Дважды щелкните "Project1" > "Объекты Microsoft Outlook" > "ThisOutlookSession". Затем скопируйте следующий код VBA в окно "ThisOutlookSession (Code)".

Код 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

doc-subject-line-drop-down-list-6

8. Продолжайте нажимать "Вставить" > "Модуль" в редакторе "Visual Basic". Затем скопируйте и вставьте следующий код VBA в окно "Module (Code)".

Код 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

doc-subject-line-drop-down-list-7

9. Сохраните коды и нажмите клавиши "Alt" + "Q", чтобы закрыть окно "Редактор Visual Basic" и вернуться к приложению Outlook.

10. Нажмите кнопку "Новое письмо" на вкладке "Главная", чтобы создать письмо.

11. В новом окне сообщения нажмите "Настроить панель быстрого доступа" > "Дополнительные команды".

doc-subject-line-drop-down-list-8

12. В диалоговом окне "Параметры Outlook" вам нужно выполнить следующие настройки.

12.1) Выберите "Макросы" в выпадающем списке "Выбрать команды из";

12.2) Выберите "Project1.ChangeSubject" в списке команд;

12.3) Нажмите кнопку "Добавить";

12.4) Нажмите кнопку "ОК". См. скриншот:

doc-subject-line-drop-down-list-9

13. Затем вы увидите, что кнопка была добавлена на ленту окна сообщения.

doc-subject-line-drop-down-list-11

14. Теперь вам нужно перезапустить ваш Outlook.

15. При написании электронного письма, если вам нужно вставить предустановленную тему, просто нажмите на недавно добавленную кнопку на ленте, чтобы отобразить пользовательскую форму, выберите тему из выпадающего меню и нажмите кнопку "ОК", чтобы заполнить её в строку темы.

Примечания:

1) Вы можете изменить существующую тему на любую тему, выбранную в выпадающем списке;

2) Этот метод хорошо работает при ответе или пересылке письма в новом окне;

3) Если вы предпочитаете отвечать на письма прямо из панели чтения, не открывая отдельное окно, вы можете вызвать пользовательскую форму следующим образом.

3.1) Нажмите "Разработчик" > "Макросы" > "Project1.ChangeSubject". См. скриншот:

doc-subject-line-drop-down-list-13

3.2) Когда пользовательская форма появится, выберите предустановленную тему из выпадающего списка и нажмите кнопку "ОК", исходная тема изменится немедленно.

4) Если вы выберете "Без изменений" в выпадающем меню, исходная тема останется без изменений.

AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО

Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.

Эта функция поддерживает:

Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
Глобальный охват: Легко переводите ваши письма на любой язык.

Эта функция поддерживает: