Kā automātiski eksportēt ienākošo Outlook e-pastu pielikumu informāciju uz Excel darbgrāmatu

Daži lietotāji vēlas automātiski reģistrēt pielikumu informāciju katrā ienākošajā e-pastā. Šajā rakstā tiks dalīts ātrs laiks, lai to viegli realizētu.

Ja esat pieradis eksportēt katra ienākošā Outlook e-pasta pielikuma informāciju uz Excel failu, iespējams, jūs ilgojaties pēc dažām pieejām, kas varētu ļaut programmai Outlook automātiski veikt šo darbu. Tādējādi jūs varat manuāli atbrīvoties no pielikumu izsekošanas. Par laimi, lai gan programma Outlook nenodrošina tik tiešu funkciju, jūs joprojām to varat sasniegt, mazliet skriptu veidojot. Tagad mēs iemācīsim jums soli pa solim.

Automātiski eksportēt ienākošo e-pastu pielikumu informāciju uz programmu Excel

1. Sākumā palaidiet programmu Outlook.
2. Pēc tam dodieties uz VBA redaktoru, izmantojot “Alt + F11”.
3. Pēc tam modulī kopējiet šo VBA kodu.

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. Pēc tam izejiet no VBA redaktora.
5. Pēc tam izveidojiet kārtulu, lai automātiski palaistu šo makro uz katru ienākošo e-pastu.

• Pirmkārt, dodieties uz izvēlni “Fails”.
• Pēc tam noklikšķiniet uz pogas Pārvaldīt kārtulas un brīdinājumus.
• Dialoglodziņā “Noteikumi un brīdinājumi” noklikšķiniet uz “Jauns noteikums”.
• Dialoglodziņā “Noteikumu vednis” atlasiet “Lietot kārtulu saņemtajiem ziņojumiem” un noklikšķiniet uz “Tālāk”.
• Pēc tam iestatiet noteikumu nosacījumus atbilstoši savām vajadzībām un nospiediet “Nākamais”.
• Veicot darbību “Atlasīt darbības”, atlasiet “Palaist skriptu” un izvēlieties skriptu “AutoExportAttachmentInfo”.
• Visbeidzot, izpildiet ekrāna vedņus, lai pabeigtu kārtulas iestatīšanu.

6. Turpmāk katru reizi, kad jūsu pastkastē ienāk jauns e-pasts, ja tam ir kādi pielikumi, Outlook automātiski eksportēs pielikumu informāciju uz iepriekš noteiktu Excel failu.

Nekad lejupielādējiet aizdomīgus pielikumus

Vai esat kādreiz saņēmis e-pastus no nezināmiem sūtītājiem un satur pielikumus? Parasti tiek ieteikts neuzticēties šādiem pielikumiem, jo ​​tie var būt vīrusi. Kamēr tos lejupielādējat, jūsu Outlook dati var būt inficēti. Tajā brīdī jums tas būs nepieciešams labot Outlook failu. Tas, protams, ir mezglains, ja vien jūs neizmantojat prasmīgu remonta rīku, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt Sql Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar