Често ли ви се налага да прикачвате конкретни файлове, когато изпращате конкретни имейли в Outlook? Ако е така, може да ви е досадно всеки път да ги добавяте ръчно. Тази статия ще ви научи на бърз метод да го постигнете с Outlook VBA.
В ежедневните си работи често се налага да прикачвам конкретни файлове, когато изпращам конкретни имейли. Например всяка седмица трябва да изпращам имейл до началниците си, за да докладвам за седмичната си работа. В този имейл ще трябва да прикача някои специфични файлове, включително работни дневници, някои отчети за статистика на данните и т.н. Обикновено актуализирам тези файлове всяка седмица. В миналото обикновено първо съставям тялото на съобщението и след това добавям ръчно тези файлове. В момента обаче намирам по-умен трик. Това използва Outlook VBA, за да го автоматизира. Ако имате подобни изисквания, моля, прочетете, за да научите конкретните кодове на VBA и подробните операции.
Автоматично прикачване на конкретни файлове при изпращане на конкретни имейли
- За начало стартирайте Outlook и отидете на раздела „Разработчик“.
- След това можете да намерите и кликнете върху бутона „Visual Basic“, който ще изведе прозореца на редактора на VBA наведнъж.
- В следващия прозорец трябва да щракнете двукратно върху проекта „ThisOutlookSession“ в списъка с проекти отляво.
- След това трябва да копирате и поставите следните VBA кодове в него.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strPrompt As String
Dim nRes As Integer
'Check the email subject and recipient
If InStr(LCase(Item.Subject), "worklog") > 0 And InStr(Item.To, "frank") > 0 Then
strPrompt = "Do you want to attach the worklog related files?"
nRes = MsgBox(strPrompt, vbYesNo + vbQuestion, "Attach Files")
If nRes = vbYes Then
'Attach the specific files
With Item
.Attachments.Add ("C:\Attachments\WorkLog.docx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 1.xlsx")
.Attachments.Add ("C:\Attachments\Data Statistics Report 2.xlsx")
End With
End If
End If
End Sub
- След това ще трябва да присвоите цифров сертификат на новия проект.
- Първо кликнете върху бутона „Инструмент“ в лентата с инструменти и изберете „Цифров подпис“.
- След това в изскачащия диалогов прозорец „Цифров подпис“ натиснете бутона „Избор“,
- Впоследствие можете да изберете съществуващ сертификат.
- Накрая щракнете върху серия от „OK“, за да я присвоите успешно.
- По-късно трябва да промените настройките на макроса, за да позволите просто цифрово подписани макроси.
- В крайна сметка можете да опитате.
- Когато щракнете върху „Изпрати“, за да изпратите конкретната поща, която съдържа конкретните думи в темата или е изпратена до конкретен контакт, ще видите поле за съобщение, като изображението по-долу.
- След това можете да проверите изпратеното имейл. Със сигурност ще намерите предварително зададените файлове, прикачени в изпратената поща.
Никога не отлагайте поправянето на грешки в Outlook
Понякога, въпреки че сте срещнали съобщение за грешка в Outlook, след като затворите съобщението, все още можете да продължите да работите. Но всъщност това не е препоръчително действие. Това, което трябва да направите, е да ги премахнете възможно най-скоро, вместо да ги оставите настрана. Натрупването на проблеми ще доведе до сериозен срив. Ако вашият Outlook се срине, вашите Outlook PST данни ще бъдат изложени на риск. Трябва да знаеш това повредени Outlook PST данни е по-скоро на възли. По това време нямате друг избор, освен да използвате опитен и уважаван инструмент за ремонт, като например DataNumen Outlook Repair.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт повредени SQL Server файл и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com