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

Як створити розкривний список для тем в Outlook?

У вас можуть бути різні попередньо встановлені теми електронних листів, які потрібно надіслати різним одержувачам у Outlook. Було б дуже ефективно мати розкривний список теми для вибору теми, не вводячи її вручну під час створення електронного листа. Так само, як на зображенні нижче. Цей посібник містить три коди VBA, які допоможуть вам створити розкривний список із різними попередньо встановленими темами. Під час створення електронного листа ви можете вибрати будь-яку потрібну тему зі спадного меню, щоб автоматично заповнити рядок теми. Дотримуйтеся покрокових інструкцій, щоб це зробити.


Створіть розкривний список для тем у Outlook за допомогою коду VBA

Насправді Outlook не дозволяє додавати розкривний список у рядок теми. Тут вам потрібно створити форму користувача та поєднати її з кодами VBA, щоб заповнити її.

1. Запустіть Outlook, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Форма користувача.

3. Тоді Форма користувача1 вставляється під Project1 на лівій панелі Візуальний Бейсік редактор. Вам потрібно додати поле зі списком і командну кнопку до цієї форми користувача, перетягнувши ComboBox і CommandButton відповідно від Інструменти до Форма користувача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 (Код).

Код 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. Перейдіть на клацання Insert > Модулі в Візуальний Бейсік редактор. Потім скопіюйте та вставте наведений нижче код 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. Натисніть Нова електронна пошта кнопка під кнопкою Головна вкладка для створення електронного листа.

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 для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL