Kaip automatiškai eksportuoti gaunamų „Outlook“ el. laiškų priedų informaciją į „Excel“ darbaknygę

Kai kurie vartotojai norėtų automatiškai įrašyti kiekvieno gaunamo el. laiško priedų informaciją. Šiame straipsnyje bus trumpas laikas, kaip tai lengvai įgyvendinti.

Jei esate įpratę eksportuoti kiekvieno gaunamo "Outlook" el. laiško priedų informaciją į "Excel" failą, galbūt norėsite kai kurių metodų, kurie leistų "Outlook" automatiškai atlikti šį darbą. Taip galėsite atsikratyti sekimo priedų rankiniu būdu. Laimei, nors „Outlook“ nesuteikia tokios tiesioginės funkcijos, vis tiek galite ją pasiekti naudodami šiek tiek scenarijų. Dabar mes išmokysime jus žingsnis po žingsnio.

Automatiškai eksportuokite gaunamų el. laiškų priedų informaciją į „Excel“.

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada eikite į VBA redaktorių naudodami „Alt + F11“.
3. Tada nukopijuokite šį VBA kodą į 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. Po to išeikite iš VBA redaktoriaus.
5. Vėliau sukurkite taisyklę, kad ši makrokomanda būtų automatiškai paleista kiekviename gaunamame el. laiške.

• Pirmiausia eikite į meniu „Failas“.
• Tada spustelėkite mygtuką „Tvarkyti taisykles ir įspėjimus“.
• Dialogo lange „Taisyklės ir įspėjimai“ spustelėkite „Nauja taisyklė“.
• Dialogo lange „Taisyklių vedlys“ pasirinkite „Taikyti taisyklę gautiems pranešimams“ ir spustelėkite „Kitas“.
• Tada nustatykite taisyklių sąlygas pagal savo poreikius ir paspauskite „Kitas“.
• Žingsnyje „Pasirinkti veiksmus“ pasirinkite „Vykdyti scenarijų“ ir pasirinkite „AutoExportAttachmentInfo“ scenarijų.
• Galiausiai vadovaukitės ekrane rodomais vedliais, kad užbaigtumėte taisyklės sąranką.

6. Nuo šiol kiekvieną kartą, kai į jūsų pašto dėžutę atkeliauja naujas el. laiškas, jei jame yra priedų, „Outlook“ automatiškai eksportuos priedo informaciją į iš anksto nustatytą „Excel“ failą.

Niekada neatsisiųskite įtartinų priedų

Ar kada nors gavote el. laiškų iš nežinomų siuntėjų ir kuriuose yra priedų? Paprastai siūloma nepasitikėti tokiais priedais, nes jie gali būti su virusais. Kol juos atsisiunčiate, jūsų „Outlook“ duomenys gali būti užkrėsti. Tuo metu jums reikės pataisyti Outlook failą. Žinoma, jis yra niūrus, nebent naudojatės įgudusio remonto įrankiu, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atsigauti Sql Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com