Як автоматично заповнити тему електронного листа назвою вкладення в 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 з’явиться діалогове вікно із запитом, чи хочете ви використовувати назву вкладення як тему, клацніть Так кнопки.
Тоді рядок теми буде автоматично заповнено назвою вставленого вкладення.
примітки:
Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!
- Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
- Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
- Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
- Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
- Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
