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

Як автоматично заповнити тему електронного листа назвою вкладення в Outlook?

Для тих, хто звик використовувати ім’я вкладення як тему електронного листа в Outlook, щоразу вручну вводити ім’я вкладення в рядку теми займе багато часу. Як показано на зображенні нижче, якщо ви хочете автоматично заповнити рядок теми електронного листа назвою вкладення під час вставлення вкладення, метод VBA у цьому посібнику допоможе.


Автоматично заповнюйте тему електронного листа назвою вкладення за допомогою коду VBA

Будь ласка, запустіть наведений нижче код VBA, щоб автоматично заповнити тему електронного листа назвою вставленого вкладення в Outlook.

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

2 В Microsoft Visual Basic для додатків вікно, двічі клацніть Проект1 (VbProject.OTM) > Об'єкти Microsoft Outlook > ThisOutlookSession відкрити ThisOutlookSession (Код) редактор.

3. Потім скопіюйте наступний код VBA в ThisOutlookSession (Код) редактор.

Код VBA: автоматично заповніть тему електронного листа назвою вкладення

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

4. Тепер потрібно зберегти код і перезапустити Outlook.

5. Відтепер, коли ви вставляєте вкладення в електронний лист, у якому ще не вказано тему, Kutools для Outlook з’явиться діалогове вікно із запитом, чи хочете ви використовувати назву вкладення як тему, клацніть Так кнопки.

Тоді рядок теми буде автоматично заповнено назвою вставленого вкладення.

примітки:

1) Якщо ви вже заповнили тему, вставлення вкладення не призведе до появи діалогового вікна.
2) Якщо ви видалили існуючу тему з поточного електронного листа, але курсор усе ще відображається в рядку теми, вставлення вкладення також не призведе до відкриття діалогового вікна. Після видалення теми вам потрібно клацнути подалі від рядка теми, щоб оновити вікно повідомлення, щоб код працював.
3) Якщо ви вставляєте кілька вкладень одночасно, лише назву першого вкладення можна використовувати як тему електронного листа.

Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

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

Ви маєте на увазі додавання кількох вкладень, одночасно додаючи назви цих вкладень до теми, а потім пов’язуючи їх за допомогою І?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

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

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