Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Siluvia Last modified

Возможно, у вас есть различные предустановленные темы электронных писем, которые необходимо распределить между разными получателями в 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-10 была добавлена на ленту окна сообщения.

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. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.
doc ai email handle

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

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

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

  • Умные ответы на письма
  • Оптимизированное содержание
  • Черновики на основе ключевых слов
  • Интеллектуальное расширение содержания
  • Краткое изложение писем
  • Перевод на несколько языков

Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь


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

Срочные новости: бесплатная версия Kutools для Outlook уже доступна!

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

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email — включая Ответ, Резюме, Оптимизацию, Расширение, Перевод и Составление писем.

📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...

📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...

📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...

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

👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...

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

Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!

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

kutools for outlook features1 kutools for outlook features2

🚀 Скачайте все дополнения Office одним кликом

Рекомендуем: Kutools для Office (5-в-1)

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

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