Как создать выпадающий список тем в Outlook?
Возможно, у вас есть различные предустановленные темы электронных писем, которые необходимо распределить между разными получателями в Outlook. Было бы очень эффективно иметь выпадающий список тем для выбора темы без необходимости вводить её вручную при составлении письма. Как показано на gif ниже. В этом руководстве представлены три кода VBA, которые помогут вам создать выпадающий список с различными предустановленными темами. При написании письма вы можете выбрать любую нужную тему из выпадающего списка, чтобы автоматически заполнить строку темы. Пожалуйста, следуйте пошаговому руководству.
Создание выпадающего списка тем в Outlook с помощью кода VBA
На самом деле, Outlook не позволяет добавлять выпадающий список в строку темы. Здесь вам нужно создать пользовательскую форму и объединить её с кодами VBA для завершения задачи.
1. Запустите ваш Outlook, нажмите клавиши "Alt" + "F11", чтобы открыть окно "Microsoft Visual Basic for Applications".
2. В окне "Microsoft Visual Basic for Applications" нажмите "Вставить" > "Пользовательская форма".
3. Затем "UserForm1" будет вставлен под "Project1" в левой панели редактора "Visual Basic". Вам нужно добавить комбинированный список и кнопку команды на эту пользовательскую форму, перетаскивая "ComboBox" и "CommandButton" соответственно из "Toolbox" в "UserForm1".
4. Щелкните правой кнопкой мыши кнопку команды и выберите "Свойства" в контекстном меню.
5. В панели "Свойства - CommandButton1" измените поле "Caption" на "OK". Это действие изменит текст, отображаемый на кнопке команды.
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
Примечание: В коде "Тема 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
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
9. Сохраните коды и нажмите клавиши "Alt" + "Q", чтобы закрыть окно "Редактор Visual Basic" и вернуться к приложению Outlook.
10. Нажмите кнопку "Новое письмо" на вкладке "Главная", чтобы создать письмо.
11. В новом окне сообщения нажмите "Настроить панель быстрого доступа" > "Дополнительные команды".
12. В диалоговом окне "Параметры Outlook" вам нужно выполнить следующие настройки.
13. Затем вы увидите, что кнопка была добавлена на ленту окна сообщения.
14. Теперь вам нужно перезапустить ваш Outlook.
15. При написании электронного письма, если вам нужно вставить предустановленную тему, просто нажмите на недавно добавленную кнопку на ленте, чтобы отобразить пользовательскую форму, выберите тему из выпадающего меню и нажмите кнопку "ОК", чтобы заполнить её в строку темы.
Примечания:
AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО
Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.

Эта функция поддерживает:
- Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
- Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
- Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
- Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
- Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
- Глобальный охват: Легко переводите ваши письма на любой язык.
Эта функция поддерживает:
- Умные ответы на письма
- Оптимизированное содержание
- Черновики на основе ключевых слов
- Интеллектуальное расширение содержания
- Краткое изложение писем
- Перевод на несколько языков
Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь
Лучшие инструменты для повышения продуктивности работы с Office
Срочные новости: бесплатная версия Kutools для Outlook уже доступна!
Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...
📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...
👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!


🚀 Скачайте все дополнения 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