Вам часто нужно прикреплять определенные файлы при отправке определенных электронных писем в 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
- После этого вам потребуется назначить цифровой сертификат новому проекту.
- Сначала нажмите кнопку «Инструмент» на панели инструментов и выберите «Цифровая подпись».
- Затем во всплывающем диалоговом окне «Цифровая подпись» нажмите кнопку «Выбрать»,
- Впоследствии вы можете выбрать существующий сертификат.
- Наконец, нажмите серию «ОК», чтобы назначить его успешно.
- Позже вам придется изменить настройки макроса, чтобы просто разрешить макросы с цифровой подписью.
- В конце концов, вы можете попробовать.
- Когда вы нажимаете «Отправить», чтобы отправить конкретное письмо, содержащее определенные слова в теме, или отправленное определенному контакту, вы увидите окно сообщения, подобное изображению ниже.
- После этого вы можете проверить отправленное письмо. Вы обязательно найдете файлы пресетов, прикрепленные к отправленному письму.
Никогда не откладывайте исправление ошибок Outlook
Иногда, даже если вы столкнулись с сообщением об ошибке в Outlook, после того, как вы закроете сообщение, вы все равно сможете продолжить работу. Но на самом деле это не целесообразное действие. Что вы должны сделать, так это устранить их как можно скорее, а не оставлять их в стороне. Накопление проблем приведет к серьезному сбою. Если ваш Outlook выйдет из строя, ваши данные Outlook PST будут подвергнуты риску. Ты должен знать что поврежденные данные Outlook PST довольно узловатый. В то время у вас нет другого выбора, кроме как использовать опытный и надежный инструмент для ремонта, такой как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт поврежден SQL Server файл и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com