Често ли използвате името на прикачения файл като тема на имейла в 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 може да работи нормално, по-добре е да приложите или инструмента за поправка на входящата поща, или външния Помощна програма за отстраняване на грешки в PST, като DataNumen Outlook Repair, за да сканирате вашите PST файлове за откриване и разрешаване на грешки.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт повредени SQL Server база данни и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com