Hur man automatiskt sparar specifika e-postbilagor med Outlook VBA

Många användare hoppas att Outlook automatiskt kan leta efter specifika ord i bilagans namn och sedan spara de specifika bilagorna i en lokal mapp på sina datorer. Den här artikeln lär dig hur du gör det med Outlook VBA.

I mina dagliga arbeten, om bilagorna i mottagna e-postmeddelanden inte är så viktiga, föredrar jag inte att spara dem på min lokala disk, läs dem bara i Outlook direkt. Men om bilagorna är viktiga, till exempel personalbestämmelser, månadsarbetsrapport, kommer jag att spara dem i en specifik mapp på min dator. I ett sådant fall vill jag konfigurera Outlook för att automatiskt spara e-postbilagor, vars namn innehåller specifika ord, i en viss mapp. Så jag får reda på en snabb metod för att förverkliga det med Outlook VBA. Här är de detaljerade VBA-koder och steg:

Spara specifika e-postbilagor automatiskt

1. För det första bör du starta Outlook och gå till fliken "Utvecklare".
2. Klicka sedan på "Visual Basic" -knappen i gruppen "Kod".
3. Sedan i "Visual Basic" -fönstret ska du öppna "ThisOutlookSession" -projektet "och kopiera följande koder till det.

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. Därefter bör du skriva under den här koden.

• Använd först Digital Certificate för VBA-projekt för att skapa ett certifikat.
• Tilldela sedan certifikatet till den här koden, som visas som följande bild:

5. Därefter kan du stänga det nuvarande "Visual Basic" -fönstret och klicka på "Makroinställningar" -knappen i "Kod" -gruppen under fliken "Utvecklare".
6. Från och med nu sparar Outlook automatiskt bilagorna, vars namn har de specifika orden, i den angivna lokala mappen.

Återställ från allvarlig Outlook-korruption

Trots att det finns flera funktioner är Outlook fortfarande utsatt för korruption. Således bör du hålla koll på alla frågor som kan uppstå i din Outlook, t.ex. PST-e-postfel, Outlook svarar inte och så vidare. När du konfronteras med felen kan du använda det inbyggda Outlook-reparationsverktyget ScanPST.exe för att fixa dem. Om det misslyckas kan du använda ett kraftfullare verktyg.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparation SQL Server mdf-filproblem och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com