Cara Mengekspor Informasi Lampiran Email Outlook yang Masuk ke Buku Kerja Excel secara Otomatis

Beberapa pengguna ingin merekam informasi lampiran secara otomatis di setiap email masuk. Artikel ini akan membagikan waktu cepat untuk mewujudkannya dengan mudah.

Jika Anda terbiasa mengekspor informasi lampiran dari setiap email Outlook yang masuk ke file Excel, mungkin Anda akan merindukan beberapa pendekatan yang memungkinkan Outlook melakukan pekerjaan ini secara otomatis. Dengan demikian, Anda dapat menyingkirkan lampiran pelacakan secara manual. Untungnya, meskipun Outlook tidak menyediakan fitur langsung seperti itu, Anda masih dapat mencapainya dengan sedikit skrip. Sekarang, kami akan mengajari Anda langkah demi langkah.

Ekspor Otomatis Informasi Lampiran Email Masuk ke Excel

1. Pertama, luncurkan aplikasi Outlook.
2. Lalu, buka editor VBA melalui "Alt + F11".
3. Selanjutnya, salin kode 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. Setelah itu, keluar dari editor VBA.
5. Selanjutnya, buat aturan untuk menjalankan makro ini secara otomatis di setiap email masuk.

• Pertama, masuk ke menu "File".
• Kemudian, klik tombol "Kelola Aturan & Pemberitahuan".
• Di kotak dialog “Rules and Alerts”, klik “New Rule”.
• Di kotak dialog "Rule Wizard", pilih "Terapkan aturan pada pesan yang saya terima" dan klik "Berikutnya".
• Selanjutnya, tetapkan ketentuan aturan sesuai kebutuhan Anda dan tekan "Berikutnya".
• Pada langkah “Select Actions”, pilih “Run a script” dan pilih skrip “AutoExportAttachmentInfo”.
• Terakhir, ikuti panduan di layar untuk menyelesaikan penyiapan aturan.

6. Mulai sekarang, setiap kali email baru masuk ke kotak surat Anda, jika memiliki lampiran, Outlook akan secara otomatis mengekspor informasi lampiran ke file Excel yang telah ditentukan sebelumnya.

Jangan Unduh Lampiran yang Mencurigakan

Pernahkah Anda menerima email yang berasal dari pengirim yang tidak dikenal dan berisi lampiran? Biasanya, disarankan untuk tidak langsung percaya pada lampiran tersebut karena mungkin mengandung virus. Selama Anda mengunduhnya, data Outlook Anda dapat terinfeksi. Pada titik itu, Anda harus melakukannya perbaiki Outlook mengajukan. Memang rumit kecuali Anda menggunakan alat perbaikan yang mahir, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan Sql Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com