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

АвторSiluviaДата изменения2025-04-09

У вас могут быть разные предустановленные темы писем, которые нужно отправлять различным получателям в Outlook. Наличие раскрывающегося списка для выбора темы при создании письма — без ручного ввода — значительно повысит эффективность работы, как показано на GIF-изображении ниже. В этом руководстве представлены три кода VBA, которые помогут вам создать такой раскрывающийся список с предустановленными темами. При создании нового письма вы сможете просто выбрать нужную тему из выпадающего списка, и строка темы автоматически заполнится. Следуйте пошаговым инструкциям, чтобы реализовать это решение.

Создание Раскрывающийся список для тем в Outlook с помощью кода VBA

На самом деле Outlook не поддерживает добавление раскрывающегося списка в строку темы. Чтобы реализовать эту функцию, вам нужно создать пользовательскую форму и интегрировать её с кодами VBA.

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

2. В окне «Microsoft Visual Basic for Applications» выберите «Insert» → «UserForm».

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

3. После этого «UserForm1» появится под «Project1» на левой панели редактора Visual Basic. Перетащите из «Toolbox» на «UserForm1» поле со списком (ComboBox) и кнопку команды (CommandButton), чтобы добавить их на форму.

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

4. Щёлкните правой кнопкой мыши по кнопке команды и в контекстном меню выберите «Properties».

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

5. На панели «Properties – CommandButton1» измените значение поля «Caption» на «OK» — это обновит текст, отображаемый на кнопке.

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

6. Дважды щёлкните по пустой области формы UserForm, чтобы открыть окно «UserForm (Code)», затем замените существующий код приведённым ниже кодом VBA.

Код VBA 1: форма UserForm с Раскрывающийся список, содержащим несколько предустановленных Тема письма

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

Примечание: в коде «Subject 1, 2, 3, 4» и «5» — это предустановленные темы писем, которые вы можете использовать в своих сообщениях. «No change» означает, что текущая тема письма останется без изменений. Вы можете настроить предустановленные темы писем в коде VBA под свои нужды.

7. Дважды щёлкните «Project1» > «Microsoft Outlook Objects» > «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 выберите «Insert» > «Module» и скопируйте приведённый ниже код VBA в окно «Module (Code)».

Код VBA 3, используемый в окне Module

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. Нажмите кнопку «Новое письмо» на вкладке «Home», чтобы создать новое письмо.

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

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

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

12,1) выберите «Macros» в поле «Choose commands from» Раскрывающийся список;

12,2) выберите «Project1.ChangeSubject» в списке команд;

12,3) нажмите кнопку «Add»;

12,4) нажмите кнопку «OK». См. снимок экрана:

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

13. Теперь вы увидите, что кнопка doc-subject-line-drop-down-list-10 была добавлена на ленту окна сообщения.

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

14. Теперь Outlook необходимо перезапустить.

15. При создании письма, если вам нужно вставить предустановленную тему, просто нажмите на новую кнопку на Лента, чтобы отобразить пользовательскую форму, выберите тему из выпадающего меню и нажмите кнопку «OK», чтобы вставить её в строку темы.

Примечания:

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

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

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

3,1) Выберите «Developer» > «Macros» > «Project1.ChangeSubject». См. снимок экрана:

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

3,2) Когда появится пользовательская форма, выберите предустановленную тему из Раскрывающийся список и нажмите кнопку «OK» — исходная тема немедленно изменится.

4) если вы выберете «No change» в выпадающем меню, исходная тема сохранится без каких-либо изменений.

AI Mail Assistant в Outlook: умные ответы, чёткая коммуникация (волшебство в один клик!)

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

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

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

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

Умные ответы на письма
Оптимизированный контент
Черновики на основе ключевых слов
Интеллектуальное расширение контента
Резюмирование писем
Многоязыковой перевод

Не ждите —скачайте AI Mail Assistant прямо сейчас и наслаждайтесь!

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для простой работы с электронной почтой: ответы, резюмирование, оптимизация, расширение, перевод и создание писем.

📧Автоматизация электронной почты: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отзыв письма / Блокировка мошеннических писем по темам и другим параметрам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебный интерфейс: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса в один клик: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные / Удаление напоминания о дне рождения…

Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним кликом! Не теряйте времени — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook Скачать сейчас Перейти к покупке

🚀 Скачать одним кликом — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним кликом пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

✅Удобство в один клик: Скачайте все пять установочных пакетов одним щелчком.
🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете ⬇ Скачать пакет 💳 Приобрести пакет