Cara Auto Mengeksport Maklumat Lampiran E-mel Outlook yang Masuk ke Buku Kerja Excel

Sebilangan pengguna ingin merakam maklumat lampiran secara automatik di setiap e-mel yang masuk. Artikel ini akan berkongsi masa yang cepat untuk menyedarinya dengan mudah.

Sekiranya anda terbiasa mengeksport maklumat lampiran setiap e-mel Outlook yang masuk ke fail Excel, mungkin anda memerlukan beberapa pendekatan yang membolehkan Outlook melakukan kerja ini secara automatik. Dengan itu, anda dapat menghilangkan pelacakan lampiran secara manual. Nasib baik, walaupun Outlook tidak menyediakan ciri langsung seperti itu, anda masih dapat mencapainya dengan sedikit skrip. Sekarang, kami akan mengajar anda langkah demi langkah.

Auto Eksport Maklumat Lampiran E-mel Masuk ke Excel

1. Pada mulanya, lancarkan aplikasi Outlook.
2. Kemudian, pergi ke editor VBA melalui "Alt + F11".
3. Seterusnya, salin kod VBA berikut ke dalam 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. Selepas itu, keluar dari editor VBA.
5. Selepas itu, buat peraturan untuk menjalankan makro ini secara automatik pada setiap e-mel yang masuk.

• Pertama, pergi ke menu "Fail".
• Kemudian, klik butang "Urus Peraturan & Makluman".
• Dalam kotak dialog "Peraturan dan Makluman", klik "Peraturan Baru".
• Dalam kotak dialog "Rule Wizard", pilih "Terapkan aturan pada pesan yang saya terima" dan klik "Next".
• Seterusnya, tetapkan syarat peraturan sesuai keperluan anda dan tekan "Next".
• Pada langkah "Pilih Tindakan", pilih "Jalankan skrip" dan pilih skrip "AutoExportAttachmentInfo".
• Akhirnya, ikuti penyihir di skrin untuk menyelesaikan penyediaan peraturan.

6. Mulai sekarang, setiap kali e-mel baru masuk di peti surat anda, jika ada lampiran, Outlook akan mengeksport maklumat lampiran secara automatik ke fail Excel yang telah ditetapkan.

Jangan sekali-kali memuat turun lampiran yang mencurigakan

Adakah anda pernah menerima e-mel dari pengirim yang tidak dikenali dan mengandungi lampiran? Biasanya, disarankan untuk tidak mempercayai keterikatan sedemikian kerana mereka mungkin mempunyai virus. Selama anda memuat turunnya, data Outlook anda boleh dijangkiti. Pada ketika itu, anda perlu betulkan Outlook fail. Memang diakui melainkan anda menggunakan alat pembaikan yang mahir, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulih Sql Server dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com