Si të eksportoni automatikisht informacionin e bashkëngjitjes së emaileve hyrëse të Outlook në një libër pune në Excel

Disa përdorues dëshirojnë të regjistrojnë automatikisht informacionin e bashkëngjitjeve në çdo email në hyrje. Ky artikull do të ndajë një kohë të shpejtë për ta realizuar atë me lehtësi.

Nëse jeni mësuar të eksportoni informacionin e bashkëngjitjes së çdo emaili hyrës të Outlook në një skedar Excel, ndoshta do të dëshironi disa qasje që mund ta lejojnë Outlook-in ta kryejë automatikisht këtë punë. Kështu, ju jeni në gjendje të heqni qafe bashkëngjitjet e gjurmimit manualisht. Për fat të mirë, megjithëse Outlook nuk ofron një veçori kaq të drejtpërdrejtë, ju ende mund ta arrini atë me pak skriptim. Tani do t'ju mësojmë hap pas hapi.

Eksportoni automatikisht informacionin e bashkëngjitjes së emaileve hyrëse në Excel

1. Fillimisht, hapni aplikacionin Outlook.
2. Pastaj, shkoni te redaktori VBA përmes "Alt + F11".
3. Më pas, kopjoni kodin e mëposhtëm VBA në një 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. Pas kësaj, dilni nga redaktori VBA.
5. Më pas, krijoni një rregull për të ekzekutuar automatikisht këtë makro në çdo email në hyrje.

• Së pari, shkoni te menyja "File".
• Pastaj, klikoni në butonin "Menaxho rregullat dhe sinjalizimet".
• Në kutinë e dialogut "Rregullat dhe sinjalizimet", klikoni "Rregull i ri".
• Në kutinë e dialogut "Rule Wizard", zgjidhni "Zbato rregullin për mesazhet që marr" dhe kliko "Next".
• Më pas, vendosni kushtet e rregullave sipas nevojave tuaja dhe shtypni "Next".
• Në hapin "Zgjidhni veprimet", zgjidhni "Run a script" dhe zgjidhni skriptin "AutoExportAttachmentInfo".
• Më në fund, ndiqni magjistarët në ekran për të përfunduar konfigurimin e rregullave.

6. Që tani e tutje, çdo herë kur një email i ri arrin në kutinë tuaj postare, nëse ka ndonjë bashkëngjitje, Outlook do të eksportojë automatikisht informacionin e bashkëngjitjes në skedarin e paracaktuar Excel.

Asnjëherë mos shkarkoni bashkëngjitjet e dyshimta

A keni marrë ndonjëherë ndonjë email që është nga dërgues të panjohur dhe përmban bashkëngjitje? Zakonisht, sugjerohet që të mos u besoni lehtësisht bashkëngjitjeve të tilla pasi ato mund të jenë me viruse. Për sa kohë që i shkarkoni, të dhënat tuaja të Outlook mund të infektohen. Në atë pikë, do t'ju duhet rregulloni Outlook dosje. Është padyshim nyje, nëse nuk përdorni një mjet të aftë riparimi, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë shërohem Sql Server dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com