Note: The other languages of the website are Google-translated. Back to English
English English

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

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


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

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

1. Запустите Outlook, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > UserForm.

3. Затем Пользовательская форма1 вставляется под Project1 на левой панели Визуальный Бейсик редактор. Вам нужно добавить поле со списком и командную кнопку в эту пользовательскую форму, перетащив Поле со списком и Командная кнопка соответственно из Ящик для инструментов до Пользовательская форма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 (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. Продолжайте нажимать Вставить > Модули в Визуальный Бейсик редактор. Затем скопируйте и вставьте следующий код 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. Нажмите Новый E-mail под Главная вкладку, чтобы создать электронное письмо.

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

12. в Параметры Outlook диалоговое окно необходимо настроить следующим образом.

12.1) Выбрать Макрос в Выберите команды из раскрывающийся список;
12.2) Выбрать Project1.ChangeSubject в поле списка команд;
12.3) Нажмите Добавить кнопка;
12.4) Нажмите OK кнопка. Смотрите скриншот:

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

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

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

Заметки:

1) Вы можете изменить существующую тему, выбрав любую тему из выпадающего списка;
2) Этот метод хорошо работает при ответе или пересылке электронной почты в новом окне;
3) Если вы предпочитаете отвечать на электронные письма в режиме реального времени из панели чтения, а не открывать отдельное окно, вы можете вызвать форму пользователя следующим образом.
3.1) Нажмите разработчик > Макрос > Project1.ChangeSubject. Смотрите скриншот:

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

4) Если выбрать Без изменений в раскрывающемся меню исходная тема будет сохранена без каких-либо изменений.

Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места