Як автоматично зберегти всі вкладення від відправників у певному домені за допомогою Outlook VBA

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Якщо ви хочете, щоб Outlook автоматично зберігав усі вкладення від відправників, адреси електронної пошти яких перебувають у певному домені, ви можете прочитати цю статтю. Тут ми представимо вам швидкий метод.

Можливо, усі співробітники вашої компанії використовують електронні адреси, що знаходяться в одному домені. Оскільки ви часто надсилаєте електронні листи з різними вкладеннями один одному, можливо, ви хочете, щоб Outlook автоматично зберігав вкладення з таких електронних листів. У цьому випадку Outlook вимагатиме автоматичної перевірки домену відправника електронної пошти та автоматичного збереження вкладень. Тепер, далі, ми поділимося фрагментом коду VBA, який може реалізувати його з легкістю.

Автоматичне збереження всіх вкладень від відправників у певному домені

  1. Спочатку запустіть редактор Outlook VBA відповідно до “Як запустити код VBA у своєму Outlook».
  2. Потім помістіть наступний код у невикористаний модуль.
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
   Set objInboxItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
   Dim objMail As Outlook.MailItem
   Dim strSenderAddress As String
   Dim strSenderDomain As String
   Dim objAttachment As Attachment
   Dim strFolderPath As String
   Dim strFileName As String

   If Item.Class = olMail Then
      Set objMail = Item

      'Get sender domain
      strSenderAddress = objMail.SenderEmailAddress
      strSenderDomain = Right(strSenderAddress, Len(strSenderAddress) - InStr(strSenderAddress, "@"))

      'Change to the specific domain as per your needs
      If strSenderDomain = "datanumen.net" Then
         If objMail.Attachments.Count > 0 Then
            For Each objAttachment In objMail.Attachments
                'Change the folder path where you want to save attachments
                strFolderPath = "E:\Attachments\"
                strFileName = objMail.Subject & " " & Chr(45) & " " & objAttachment.FileName
                objAttachment.SaveAsFile strFolderPath & strFileName
            Next
         End If
      End If
   End If
End Sub

Код VBA - Автоматичне збереження всіх вкладень від відправників у певному домені

  1. Після цього перезапустіть Outlook, щоб активувати цей макрос.
  2. Відтоді щоразу, коли вхідні повідомлення електронної пошти потрапляють у вашу поштову скриньку, Outlook автоматично перевірятиме домен відправника. Якщо він такий самий, як і попередньо визначений домен, і він містить вкладення, Outlook автоматично збереже вкладення до певної локальної папки.Автоматично збережений вкладення

Ніколи не відкривайте вкладення від відправників у невідомих доменах

Бажано не довіряти та не завантажувати вкладення з тих, що знаходяться в невідомих доменах. Це тому, що вони можуть наділитися шкідливим програмним забезпеченням або вірусами. Після їх відкриття файл Outlook може бути атакований. Іншими словами, ви можете зазнати пошкодження файлів Outlook. У той час навіть scanpst не в змозі вам допомогти. Ваш єдиний курорт - це більш потужний інструмент або спеціалізована служба відновлення PST.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі корумпований mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.