Як автоматично заповнити тему електронного листа назвою вкладення в 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
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.