Чи часто ви використовуєте ім'я вкладення як тему електронної пошти в Outlook? Якщо так, ви повинні сподіватися, що Outlook може автоматично завершити його. У цій статті буде представлено зручний метод для реалізації його за допомогою Outlook VBA.
Багато користувачів звикли вручну вводити назву вкладення в рядок теми електронного листа. У такому випадку, якщо Outlook може автоматично виконувати це, це буде набагато зручніше. Крім того, деякі користувачі часто забувають заповнити рядок теми. Тому, натискаючи кнопку «Надіслати», вони отримають попередження «тема відсутня». У такому випадку, якщо Outlook може автоматично заповнити тему назвою вкладення, вони зможуть уникнути надокучливого попередження «тема відсутня». Коротко кажучи, вважається, що багато користувачів Outlook прагнуть такого методу, щоб Outlook автоматично заповнював рядок теми листа назвою вкладення. На щастя, за допомогою Outlook VBA ми можемо досягти цього з максимальною легкістю. Ось детальні коди та кроки VBA.
Автозаповнення рядка теми електронною поштою з назвою вкладення
- Спочатку ви можете запустити Outlook і перейти на вкладку «Розробник».
- Потім на цій вкладці слід натиснути кнопку «Visual Basic», яка відкриє редактор VBA.
- У наступному вікні вам слід спершу знайти проект “ThisOutlookSession” у списку проектів праворуч.
- Потім двічі клацніть, щоб відкрити цей проект. А потім скопіюйте в нього наступні коди.
Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem
Private Sub Initialize_handlers()
Set olInspectors = Application.Inspectors
End Sub
Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
Dim olItem As Object
Set olItem = Inspector.CurrentItem
If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub
Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
If olMail.Subject = "" Then
'If you don't want the prompt,
'Just delete the Msgbox line and its corresponding "End if".
If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
olMail.Subject = Attachment.DisplayName
End If
End If
End Sub
- Після цього вам потрібно продовжувати призначати цифровий сертифікат поточному проекту VBA, як зазвичай.
- По-перше, використовуйте вбудовану утиліту «Цифрові сертифікати для проектів VBA» для створення цифрового сертифіката.
- Згодом ви можете підписати поточний макрос.
- Пізніше вийдіть із редактора VBA і змініть параметри макросу на «Сповіщення для макросів із цифровим підписом, усі інші макроси вимкнені».
- Нарешті можна спробувати.
- Створіть новий електронний лист.
- Якщо ви не заповнили тему і маєте намір вкласти файл, ви отримаєте повідомлення, наприклад, таке зображення:
- Коли ви виберете “Так”, тема одразу буде заповнена назвою вкладення.
Справитися з частими проблемами Outlook
За умови, що ви використовували Outlook десятки років, ви, мабуть, стикалися з багатьма проблемами Outlook. Тоді, які дії ти зазвичай робиш, зустрічаючи їх? Пропонуємо з’ясувати та викорінити їх якомога швидше. Це тому, що накопичувані проблеми можуть пошкодити дані Outlook у будь-який час. Отже, навіть якщо Outlook може працювати нормально, вам краще застосувати інструмент відновлення папки "Вхідні" або зовнішній Утиліта виправлення помилок Outlook PST, Як DataNumen Outlook Repair, для сканування ваших файлів PST для виявлення та вирішення помилок.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт пошкоджених SQL Server база даних та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com