So speichern Sie bestimmte E-Mail-Anhänge automatisch mit Outlook VBA

Viele Benutzer hoffen, dass Outlook automatisch nach bestimmten Wörtern in den Anhangsnamen suchen und die spezifischen Anhänge dann in einem lokalen Ordner auf ihren Computern speichern kann. In diesem Artikel erfahren Sie, wie Sie dies mit Outlook VBA erreichen.

Wenn bei meiner täglichen Arbeit die Anhänge in empfangenen E-Mails nicht sehr wichtig sind, speichere ich sie lieber nicht auf meiner lokalen Festplatte, sondern lese sie einfach direkt in Outlook. Aber wenn die Anhänge wichtig sind, wie zum Beispiel ein Personalreglement oder ein monatlicher Arbeitsbericht, speichere ich sie in einem bestimmten Ordner auf meinem Computer. In einem solchen Fall möchte ich Outlook so konfigurieren, dass E-Mail-Anhänge, deren Namen bestimmte Wörter enthalten, automatisch in einem bestimmten Ordner gespeichert werden. Also habe ich eine schnelle Möglichkeit gefunden, es mit Outlook VBA zu realisieren. Hier sind die ausführlichen VBA-Codes und -Schritte:

Bestimmte E-Mail-Anhänge automatisch speichern

1. Zunächst sollten Sie Outlook starten und zur Registerkarte „Entwickler“ wechseln.
2. Klicken Sie anschließend in der Gruppe „Code“ auf die Schaltfläche „Visual Basic“.
3. Dann sollten Sie im „Visual Basic“-Fenster das „ThisOutlookSession“-Projekt öffnen und die folgenden Codes hineinkopieren.

Public WithEvents olItems As Outlook.Items

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

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim NewMail As Outlook.MailItem
    Dim Atts As Attachments
    Dim Att As Attachment
    Dim strPath As String
    Dim strName As String
 
    If Item.Class = olMail Then
       Set NewMail = Item
    End If
 
    Set Atts = Item.Attachments
 
    If Atts.Count > 0 Then
       For Each Att In Atts
           'Replace "test" with what you want to look for in attachment name
           If InStr(LCase(Att.FileName), "test") > 0 Then
              'Use your wanted destination folder path to save the attachments
              strPath = "C:\Attachments\"
              strName = NewMail.Subject & " " & Chr(45) & " " & Att.FileName
              Att.SaveAsFile strPath & strName
           End If
       Next
    End If
End Sub

4. Danach sollten Sie diesen Code unterschreiben.

• Verwenden Sie zunächst das digitale Zertifikat für VBA-Projekte, um ein Zertifikat zu erstellen.
• Ordnen Sie dann das Zertifikat diesem Code zu, wie im folgenden Bild dargestellt:

5. Danach können Sie das aktuelle „Visual Basic“-Fenster verlassen und auf der Registerkarte „Entwickler“ in der Gruppe „Code“ auf die Schaltfläche „Makroeinstellungen“ klicken.
6. Von nun an speichert Outlook automatisch die Anhänge, deren Namen die spezifischen Wörter enthalten, in Ihrem angegebenen lokalen Ordner.

Wiederherstellung nach schwerer Outlook-Beschädigung

Obwohl Outlook über zahlreiche Funktionen verfügt, ist es immer noch anfällig für Korruption. Daher sollten Sie alle Probleme im Auge behalten, die in Ihrem Outlook auftreten können, wie z PST-Mail-Fehler, Outlook reagiert nicht usw. Wenn Sie mit den Fehlern konfrontiert werden, können Sie das in Outlook integrierte Reparaturtool ScanPST.exe verwenden, um diese zu beheben. Wenn dies fehlschlägt, greifen Sie auf ein leistungsfähigeres Tool zurück.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Reparatur- SQL Server Problem mit der MDF-Datei und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX