Как автоматично да попълвам тема на имейл с име на прикачен файл в Outlook?
За тези, които са свикнали да използват името на прикачения файл като тема на имейл в Outlook, ръчното въвеждане на името на прикачения файл в реда за тема всеки път ще отнеме много време. Както е показано в gif по-долу, ако искате автоматично да попълните темата на имейла с името на прикачения файл, когато вмъкнете прикачен файл, методът 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
🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...
📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP) / График за изпращане на имейли / Автоматично CC/BCC по правила при изпращане на имейл / Автоматично пренасочване (разширени правила) / Автоматично добавяне на поздрав / Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...
📨 Управление на Email: Лесно извикване на имейли / Блокиране на измамни имейли по теми и други / Изтриване на дублирани имейли / подробно търсене / Консолидиране на папки ...
📁 Прикачени файлове Pro: Пакетно запазване / Партидно отделяне / Партиден компрес / Автоматично запазване / Автоматично отделяне / Автоматично компресиране ...
🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони / Увеличете продуктивността на Outlook с изгледи с раздели / Минимизирайте Outlook, вместо да затваряте ...
???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове / Антифишинг имейли / 🕘Показване на часовата зона на подателя ...
👩🏼🤝👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли / Разделете група контакти на отделни групи / Премахнете напомнянията за рожден ден ...
Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.
