Automatisches Speichern aller Anhänge von Absendern in einer bestimmten Domäne über Outlook VBA

Wenn Sie möchten, dass Outlook automatisch alle Anhänge der Absender speichert, deren E-Mail-Adressen sich in einer bestimmten Domäne befinden, können Sie diesen Artikel lesen. Hier stellen wir Ihnen eine schnelle Methode vor.

Möglicherweise verwenden alle Mitarbeiter in Ihrem Unternehmen die E-Mail-Adressen, die sich in derselben Domain befinden. Da Sie häufig E-Mails mit verschiedenen Anhängen aneinander senden, möchten Sie möglicherweise, dass Outlook die Anhänge aus solchen E-Mails automatisch speichert. In diesem Fall wird Outlook aufgefordert, die Absenderdomäne der E-Mail automatisch zu überprüfen und Anhänge automatisch zu speichern. Im Folgenden werden wir nun einen Teil des VBA-Codes freigeben, der ihn mühelos realisieren kann.

Alle Anhänge von Absendern in einer bestimmten Domäne automatisch speichern

1. Führen Sie zunächst den Outlook VBA-Editor gemäß „So führen Sie VBA-Code in Outlook aus".
2. Fügen Sie dann den folgenden Code in ein nicht verwendetes Modul ein.

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

3. Starten Sie anschließend Outlook neu, um dieses Makro zu aktivieren.
4. Seitdem überprüft Outlook jedes Mal, wenn eine eingehende E-Mail in Ihren Posteingang gelangt, automatisch die Absenderdomäne. Wenn es mit der vordefinierten Domäne identisch ist und Anhänge enthält, speichert Outlook die Anhänge automatisch in einem bestimmten lokalen Ordner.

Öffnen Sie niemals Anhänge von Absendern in unbekannten Domänen

Es ist ratsam, den Anhängen in unbekannten Domänen nicht ohne weiteres zu vertrauen und sie herunterzuladen. Dies liegt daran, dass sie möglicherweise mit Malware oder Viren ausgestattet sind. Sobald Sie sie öffnen, wird die Outlook-Datei möglicherweise angegriffen. Mit anderen Worten, Sie sind möglicherweise einer Beschädigung der Outlook-Datei ausgesetzt. Zu dieser Zeit sogar scanpst ist nicht in der Lage, Ihnen zu helfen. Ihr einziges Resort ist entweder ein leistungsfähigeres Tool oder ein spezialisierter PST-Wiederherstellungsdienst.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korrupte mdf und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX