Sådan eksporteres automatisk vedhæftede oplysninger om indgående Outlook-e-mails til en Excel-projektmappe

Nogle brugere vil automatisk registrere oplysningerne om vedhæftede filer i hver indgående e-mail. Denne artikel vil dele en hurtig tid til at indse det med lethed.

Hvis du er vant til at eksportere vedhæftede oplysninger for hver indgående Outlook-e-mail til en Excel-fil, vil du måske længes efter nogle tilgange, der kan lade Outlook automatisk udføre dette arbejde. Dermed er du i stand til at slippe af med at spore vedhæftede filer manuelt. Heldigvis, selvom Outlook ikke leverer en sådan direkte funktion, kan du stadig opnå det med lidt scripting. Nu vil vi lære dig trin for trin.

Automatisk eksport af vedhæftede oplysninger om indgående e-mails til Excel

1. Start først Outlook-applikationen.
2. Gå derefter til VBA-editor via “Alt + F11”.
3. Kopier derefter følgende VBA-kode til et 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. Afslut derefter VBA-editoren.
5. Opret derefter en regel for automatisk at køre denne makro på hver indgående e-mail.

• Først skal du gå til "File" -menuen.
• Klik derefter på knappen "Administrer regler og alarmer".
• Klik på "Ny regel" i dialogboksen "Regler og alarmer".
• I dialogboksen "Regelguide" skal du vælge "Anvend regel på meddelelser, jeg modtager" og klikke på "Næste".
• Dernæst skal du indstille regelbetingelser efter dine behov og trykke på "Næste".
• I "Vælg handlinger" trin, vælg "Kør et script" og vælg "AutoExportAttachmentInfo" script.
• Endelig skal du følge guiderne på skærmen for at afslutte regelopsætningen.

6. Fra nu af, hver gang en ny e-mail ankommer til din postkasse, og hvis den har nogen vedhæftede filer, eksporterer Outlook automatisk vedhæftede oplysninger til den foruddefinerede Excel-fil.

Download aldrig mistænkelige vedhæftede filer

Har du nogensinde modtaget e-mails fra ukendte afsendere og indeholder vedhæftede filer? Normalt foreslås det, at man ikke let stoler på sådanne vedhæftede filer, for at de kan være med vira. Så længe du downloader dem, kan dine Outlook-data inficeres. På det tidspunkt bliver du nødt til det rette Outlook fil. Det er ganske vist knudret, medmindre du griber til et dygtigt reparationsværktøj, som f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder genvinde Sql Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com