A bejövő Outlook e-mailek mellékleti információinak automatikus exportálása Excel-munkafüzetbe

Egyes felhasználók szeretnék automatikusan rögzíteni a mellékletek információit minden bejövő e-mailben. Ez a cikk megoszt egy gyors időt, hogy könnyedén megvalósíthassa.

Ha megszokta, hogy minden bejövő Outlook e-mail mellékletét Excel-fájlba exportálja, akkor valószínűleg olyan megközelítésekre vágyik, amelyek segítségével az Outlook automatikusan elvégezheti ezt a munkát. Így manuálisan megszabadulhat a nyomkövető mellékletektől. Szerencsére, bár az Outlook nem biztosít ilyen közvetlen szolgáltatást, egy kis szkripteléssel mégis elérheti. Most lépésről lépésre megtanítjuk.

A bejövő e-mailek mellékleti információinak automatikus exportálása Excelbe

1. Először indítsa el az Outlook alkalmazást.
2. Ezután lépjen a VBA szerkesztőbe az „Alt + F11” gombbal.
3. Ezután másolja be a következő VBA-kódot egy modulba.

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. Ezt követően lépjen ki a VBA szerkesztőből.
5. Ezt követően hozzon létre egy szabályt, amely automatikusan futtatja ezt a makrót minden bejövő e-mailen.

• Először lépjen a „Fájl” menübe.
• Ezután kattintson a „Szabályok és figyelmeztetések kezelése” gombra.
• A „Szabályok és figyelmeztetések” párbeszédpanelen kattintson az „Új szabály” gombra.
• A „Szabályvarázsló” párbeszédpanelen válassza a „Szabály alkalmazása a kapott üzenetekre” lehetőséget, majd kattintson a „Tovább” gombra.
• Ezután állítsa be a szabályokat az igényeinek megfelelően, és nyomja meg a „Tovább” gombot.
• A „Műveletek kiválasztása” lépésben válassza a „Szkript futtatása” lehetőséget, majd válassza az „AutoExportAttachmentInfo” szkriptet.
• Végül kövesse a képernyőn megjelenő varázslókat a szabály beállításának befejezéséhez.

6. Ezentúl minden alkalommal, amikor új e-mail érkezik a postafiókjába, és ha van melléklete, az Outlook automatikusan exportálja a melléklet adatait az előre meghatározott Excel-fájlba.

Soha ne töltsön le gyanús mellékleteket

Kapott már olyan e-mailt, amely ismeretlen feladótól érkezett, és mellékleteket tartalmaz? Általában azt javasolják, hogy ne bízzon könnyen az ilyen csatolmányokban, mivel azok vírusokat tartalmazhatnak. Amíg letölti őket, az Outlook-adatok megfertőződhetnek. Ezen a ponton muszáj lesz javítsa ki az Outlookot fájlt. Bevallottan csomós, hacsak nem folyamodik hozzáértő javítószerszámhoz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve meggyógyul Sql Server és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com