Вам часто потрібно вкладати певні файли під час надсилання певних електронних листів у 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 файл та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com