Slik eksporterer du automatisk vedleggsinformasjon for innkommende Outlook-e-poster til en Excel-arbeidsbok

Noen brukere vil automatisk registrere informasjonen om vedleggene i hver innkommende e-post. Denne artikkelen vil dele en rask tid til å realisere det med letthet.

Hvis du er vant til å eksportere vedleggsinformasjonen til hver innkommende Outlook-e-post til en Excel-fil, vil du kanskje lengte etter noen tilnærminger som kan la Outlook utføre dette arbeidet automatisk. Dermed kan du bli kvitt sporingsvedlegg manuelt. Heldigvis, selv om Outlook ikke tilbyr en slik direkte funksjon, kan du fortsatt oppnå det med litt skripting. Nå skal vi lære deg trinn for trinn.

Eksporter automatisk vedleggsinformasjon for innkommende e-poster til Excel

1. Start først Outlook-applikasjonen.
2. Gå deretter til VBA-redigering via "Alt + F11".
3. Deretter kopierer du følgende VBA-kode til en modul.

Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objAttachment As Outlook.Attachment
 
    If objMail.Attachments.Count > 0 Then
       'Change the path to the specific Excel file
       strExcelFile = "E:\Attachment Info.xlsx"
 
       Set objExcelApp = CreateObject("Excel.Application")
       objExcelApp.Visible = True
       Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
       Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
 
       'Export Attachment info to Excel
       For Each objAttachment In objMail.Attachments
           nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
           With objExcelWorksheet
                .Cells(nLastRow, 1) = objMail.Subject
                .Cells(nLastRow, 2) = objMail.SenderEmailAddress
                .Cells(nLastRow, 3) = objAttachment.FileName
                .Cells(nLastRow, 4) = objMail.ReceivedTime
           End With
       Next
 
       objExcelWorksheet.Columns("A:C").AutoFit
       objExcelWorkbook.Close True
       objExcelApp.Quit
    End If
End Sub

4. Avslutt deretter VBA-redigering.
5. Deretter oppretter du en regel for å kjøre denne makroen automatisk for hver innkommende e-post.

• Først går du til "Fil"-menyen.
• Klikk deretter på knappen "Administrer regler og varsler".
• I dialogboksen "Regler og varsler" klikker du på "Ny regel".
• I dialogboksen «Regelveiviser» velger du «Bruk regel på meldinger jeg mottar» og klikker på «Neste».
• Deretter setter du regelbetingelser i henhold til dine behov og trykker på "Neste".
• I trinnet "Velg handlinger", velg "Kjør et skript" og velg "AutoExportAttachmentInfo"-skriptet.
• Til slutt følger du veiviserne på skjermen for å fullføre regeloppsettet.

6. Fra nå av vil Outlook automatisk eksportere vedleggsinformasjonen til den forhåndsdefinerte Excel-filen hver gang en ny e-post kommer i postkassen din, hvis den har vedlegg.

Last aldri ned mistenkelige vedlegg

Har du noen gang mottatt e-poster som er fra ukjente avsendere og inneholder vedlegg? Vanligvis foreslås det å ikke lett stole på slike vedlegg fordi de kan være med virus. Så lenge du laster ned dem, kan Outlook-dataene dine bli infisert. På det tidspunktet må du fikse Outlook fil. Det er riktignok knotete med mindre du tyr til et dyktig reparasjonsverktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

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