Как автоматически сохранять все вложения от отправителей в определенном домене через Outlook VBA

Перспективные решения 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. После этого резtart Outlook, чтобы активировать этот макрос.
  2. С тех пор каждый раз, когда входящее электронное письмо попадает в ваш почтовый ящик, Outlook автоматически проверяет домен отправителя. Если он совпадает с предопределенным доменом и содержит вложения, Outlook автоматически сохранит вложения в определенную локальную папку.Автоматически сохраненное вложение

Никогда не открывайте вложения от отправителей в неизвестных доменах

Желательно не доверять и не загружать вложения с неизвестных доменов. Это потому, что они могут быть заражены вредоносными программами или вирусами. Как только вы откроете их, файл Outlook может быть атакован. Другими словами, вы можете быть подвержены повреждению файла Outlook. В то время даже Скэнпст не в состоянии вам помочь. Единственный выход — либо более мощный инструмент, либо специализированная служба восстановления PST.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая коррумпированный мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

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