Slik lagrer du spesifikke e-postvedlegg automatisk med Outlook VBA

Mange brukere håper at Outlook automatisk kan se etter spesifikke ord i vedleggsnavnene og deretter lagre de spesifikke vedleggene i en lokal mappe på datamaskinene deres. Denne artikkelen vil lære deg hvordan du oppnår det med Outlook VBA.

I mitt daglige arbeid, hvis vedleggene i mottatte e-poster ikke er veldig viktige, foretrekker jeg å ikke lagre dem på min lokale disk, bare les dem direkte i Outlook. Men hvis vedleggene er viktige, som for eksempel personalreglement, månedlig arbeidsrapport, vil jeg lagre dem i en bestemt mappe på datamaskinen min. I et slikt tilfelle ønsker jeg å konfigurere Outlook til automatisk å lagre e-postvedleggene, hvis navn inneholder spesifikke ord, i en bestemt mappe. Så jeg finner ut en rask metode for å realisere det med Outlook VBA. Her er de forseggjorte VBA-kodene og trinnene:

Lagre spesifikke e-postvedlegg automatisk

1. Først bør du starte Outlook og gå til "Utvikler" -fanen.
2. Deretter klikker du på "Visual Basic"-knappen i "Code"-gruppen.
3. Så i "Visual Basic"-vinduet, bør du åpne "ThisOutlookSession"-prosjektet" og kopiere følgende koder inn i 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. Etter det bør du signere denne koden.

• For det første, bruk Digital Certificate for VBA Projects for å lage et sertifikat.
• Tilordne deretter sertifikatet til denne koden, vist som følgende bilde:

5. Etter det kan du gå ut av det gjeldende "Visual Basic"-vinduet og klikke på "Makroinnstillinger" -knappen i "Kode"-gruppen under "Utvikler"-fanen.
6. Fra nå av vil Outlook automatisk lagre vedleggene, hvis navn har de spesifikke ordene, til din spesifiserte lokale mappe.

Gjenopprette fra alvorlig Outlook-korrupsjon

Til tross for å skryte av flere funksjoner, er Outlook fortsatt utsatt for korrupsjon. Derfor bør du følge med på alle problemer som kan oppstå med Outlook, for eksempel PST-e-postfeil, Outlook svarer ikke og så videre. Når du blir konfrontert med feilene, kan du bruke Outlooks innebygde reparasjonsverktøy, ScanPST.exe for å fikse dem. Hvis det mislykkes, bruk et kraftigere verktøy.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparasjon SQL Server mdf-filproblem og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med