Kako automatski izvesti informacije o privitku dolazne Outlook e-pošte u radnu knjigu programa Excel

Neki korisnici željeli bi automatski zabilježiti informacije o privicima u svakoj dolaznoj e-pošti. Ovaj članak će podijeliti brzo vrijeme da to shvatite s lakoćom.

Ako ste navikli izvoziti informacije o privitku svake dolazne Outlookove e-pošte u datoteku programa Excel, možda ćete čeznuti za nekim pristupima koji mogu dopustiti Outlooku da automatski preuzme ovaj posao. Time se možete ručno riješiti privitaka za praćenje. Srećom, iako Outlook ne nudi takvu izravnu značajku, ipak je možete postići s malo skriptiranja. Sada ćemo vas naučiti korak po korak.

Automatski izvezite podatke o privitku dolazne e-pošte u Excel

1. Najprije pokrenite Outlook aplikaciju.
2. Zatim idite na VBA editor putem “Alt + F11”.
3. Zatim kopirajte sljedeći VBA kod u 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. Nakon toga izađite iz VBA uređivača.
5. Zatim stvorite pravilo za automatsko pokretanje ove makronaredbe na svakoj dolaznoj e-pošti.

• Prvo idite na izbornik "Datoteka".
• Zatim kliknite gumb "Upravljanje pravilima i upozorenjima".
• U dijaloškom okviru "Pravila i upozorenja" kliknite "Novo pravilo".
• U dijaloškom okviru "Čarobnjak za pravila" odaberite "Primijeni pravilo na poruke koje primam" i kliknite "Dalje".
• Zatim postavite uvjete pravila prema svojim potrebama i pritisnite "Dalje".
• U koraku “Odabir radnji” odaberite “Pokreni skriptu” i odaberite skriptu “AutoExportAttachmentInfo”.
• Na kraju, slijedite čarobnjake na zaslonu da biste dovršili postavljanje pravila.

6. Od sada, svaki put kada nova e-pošta stigne u vaš poštanski sandučić, ako ima privitaka, Outlook će automatski izvesti informacije o privitku u unaprijed definiranu Excel datoteku.

Nikad ne preuzimajte sumnjive privitke

Jeste li ikada primili e-poštu koja je od nepoznatih pošiljatelja i sadrži privitke? Obično se predlaže da se ne pouzdaju u takve privitke jer bi mogli biti s virusima. Sve dok ih preuzimate, vaši Outlook podaci mogu biti zaraženi. U tom trenutku ćete morati popraviti Outlook datoteka. To je doduše zamršeno osim ako ne pribjegnete vještom alatu za popravak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti se Sql Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com