Cara Otomatis Masuk Setiap Email Outlook yang Dicetak di Buku Kerja Excel

Beberapa pengguna berharap untuk menyimpan log email tercetak secara otomatis di Outlook mereka. Namun, fitur langsung seperti itu tidak tersedia. Karenanya, dalam artikel ini, kami akan memperkenalkan cara untuk mencatat secara otomatis setiap email yang dicetak di buku kerja Excel tertentu.

Untuk beberapa alasan, Anda mungkin perlu mencatat informasi email saat Anda mencetaknya. Jelas, Outlook tidak menyediakan fitur asli yang mendukung ini. Jadi, secara umum, Anda harus menyelesaikan tugas ini secara manual. Namun demikian, dengan bantuan kode VBA, Anda masih dapat membiarkan Outlook Anda menjalankan misi ini dengan mudah. Sekarang, di sini kami akan mengungkap sepotong kode VBA dan langkah-langkah terperinci untuk Anda.

Log Otomatis Setiap Email yang Dicetak di Buku Kerja Excel

1. Untuk sebagaitart, luncurkan aplikasi Outlook.
2. Kemudian, akses editor VBA dengan mengklik tombol "Visual Basic" pada tab "Pengembang".
3. Selanjutnya, masukkan kode VBA berikut ke dalam modul yang tidak digunakan.

Sub RecordPrintedEmails()
    Dim objMail As Outlook.MailItem
    Dim objExcelApp As Excel.Application
    Dim strExcelFile As String
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
 
    'Get the mail
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    objMail.PrintOut
 
    On Error Resume Next
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
 
    'Change the path to the specific excel file
    strExcelFile = "E:\Emails\Printed Emails.xlsx"
    Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
    objExcelWorksheet.Activate
 
    nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
    'Change the details as per your own case
    With objExcelWorksheet
         .Cells(nNextEmptyRow, 1) = Date
         .Cells(nNextEmptyRow, 2) = objMail.Subject
         .Cells(nNextEmptyRow, 3) = objMail.Sender
         .Cells(nNextEmptyRow, 4) = objMail.SentOn
         .Cells(nNextEmptyRow, 5) = objMail.Size
         .Cells(nNextEmptyRow, 6) = objMail.Attachments.Count
         .Columns("A:E").AutoFit
    End With
 
    objExcelWorkbook.Close True
    objExcelApp.Quit
End Sub

4. Setelah itu, keluar dari editor VBA.
5. Selanjutnya, menurut "Langkah Opsional" di post "Cara Menjalankan Kode VBA di Outlook Anda“, Tambahkan makro ini ke pita atau Bilah Alat Akses Cepat.
6. Sejak itu, setiap kali Anda ingin mencetak email, ingatlah untuk menggunakan tombol makro yang baru ditambahkan daripada tombol "Cetak" standar.
7. Dengan cara ini, Outlook akan secara otomatis mencatat email yang dicetak di lembar kerja Excel yang telah ditentukan sebelumnya.

Biarkan File Outlook Dapat Diakses

Terkadang, setelah Outlook lumpuh, Anda mungkin menerima pesan kesalahan yang meminta bahwa file PST tidak dapat diakses. Pada saat itu, Anda harus tenang dan kemudian memanfaatkan alat perbaikan kotak masuk untuk perbaiki Outlook. Namun, utilitas bawaan tidak serbaguna. Itu bisa gagal juga. Karenanya, jika file PST Anda masih tidak tersedia setelah perbaikan Scanpst, pilihan terakhir Anda adalah alat eksternal yang lebih efektif dan andal, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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