Cara Auto Log Setiap E-mel Outlook yang Dicetak dalam Buku Kerja Excel

Beberapa pengguna berharap dapat menyimpan log e-mel yang dicetak secara automatik di Outlook mereka. Walau bagaimanapun, tidak ada ciri langsung yang tersedia. Oleh itu, dalam artikel ini, kami akan memperkenalkan cara untuk log automatik setiap e-mel yang dicetak dalam buku kerja Excel tertentu.

Atas sebab-sebab tertentu, anda mungkin perlu merakam maklumat e-mel semasa mencetaknya. Jelas, Outlook tidak menyediakan ciri asli yang menyokong ini. Oleh itu, secara amnya, anda harus menyelesaikan tugas ini secara manual. Walaupun begitu, dengan bantuan kod VBA, anda masih boleh membiarkan Outlook menjalankan misi ini dengan mudah. Sekarang, di sini kami akan mendedahkan sekeping kod VBA dan langkah terperinci kepada anda.

Log Auto Setiap E-mel yang dicetak dalam Buku Kerja Excel

1. Untuk sebagaitart, lancarkan aplikasi Outlook.
2. Kemudian, akses editor VBA dengan mengklik butang "Visual Basic" pada tab "Pembangun".
3. Seterusnya, masukkan kod 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. Selepas itu, keluar dari editor VBA.
5. Selanjutnya, sesuai dengan "Langkah Pilihan" di halamanost "Cara Menjalankan Kod VBA di Outlook Anda", Tambahkan makro ini ke pita atau Bar Alat Akses Pantas.
6. Sejak itu, setiap kali anda ingin mencetak e-mel, ingatlah untuk menggunakan butang makro yang baru ditambahkan dan bukan "Cetak" standard.
7. Dengan cara ini, Outlook akan mencatat mel yang dicetak secara automatik dalam lembaran kerja Excel yang telah ditetapkan.

Pastikan Fail Outlook Boleh Diakses

Kadang-kadang, setelah Outlook mogok, anda mungkin menerima kesalahan yang menyebabkan fail PST tidak dapat diakses. Pada masa itu, anda harus tenang dan kemudian gunakan alat pembaikan peti masuk untuk betulkan Outlook. Walau bagaimanapun, utiliti terbina dalam tidak serba boleh. Ia juga boleh gagal. Oleh itu, jika fail PST anda masih tidak dapat digunakan selepas pembaikan Scanpst, jalan terakhir anda adalah alat luaran yang lebih berkesan dan boleh dipercayai, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

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