3 Metode Cepat untuk Mencetak Daftar Pelacakan Rapat Outlook Anda

Setelah mengirim undangan rapat, Anda dapat memeriksa respons rapat penerima di halaman "Tracking" rapat. Jika Anda ingin mencetak daftar Pelacakan, Anda dapat menggunakan 3 metode yang diperkenalkan dalam artikel ini.

Outlook memberi pengguna fitur "Pelacakan" untuk rapat. Ini akan mencantumkan semua tanggapan dari semua peserta rapat. Jadi, jika Anda berharap untuk mengetahui siapa yang menerima pertemuan yang Anda selenggarakan dan siapa yang menolak, Anda bisa mendapatkan akses ke Daftar pelacakan. Namun, tidak ada fungsi langsung untuk mencetak daftar tersebut. Oleh karena itu, di sini kami akan membagikan kepada Anda 3 cara cepat mencetaknya.

Metode 1: Cetak Tangkapan Layar "Pelacakan"

1. Untuk memulainya, buka halaman "Pelacakan" rapat.
2. Selanjutnya, buat email baru.
3. Setelah itu, geser ke tab "Sisipkan" dan klik tombol "Tangkapan Layar".
4. Kemudian, pilih tangkapan layar "Pelacakan" dari daftar "Windows yang Tersedia".
5. Terakhir, buka "File"> "Cetak" untuk mencetak tangkapan layar "Pelacakan".

Metode 2: Cetak setelah Menyalin ke Excel

1. Sebagai langkah awal, akses halaman “Pelacakan”.
2. Selanjutnya, pilih satu entri dalam daftar "Pelacakan".
3. Selanjutnya, tekan "Ctrl + A" untuk memilih semua entri.
4. Setelah itu, tekan "Ctrl + C" untuk menyalinnya.
5. Kemudian, buka file Excel baru.
6. Pilih sel "A1" dan tekan "Ctrl + V" untuk menempelkan daftar "Pelacakan" yang disalin.
7. Akhirnya, di Excel, buka "File"> "Cetak" untuk mencetak lembar kerja saat ini.

Metode 3: Cetak dengan Outlook VBA

1. Pertama, buka editor Outlook VBA dengan merujuk ke "Cara Menjalankan Kode VBA di Outlook Anda".
2. Kemudian, aktifkan “MS Excel Object Library” sesuai dengan “Cara Menambahkan Referensi Pustaka Objek di VBA".
3. Setelah itu masukkan kode di bawah ini ke dalam sebuah modul.

Sub PrintTracking_Meeting()
    Dim objMeeting As Outlook.AppointmentItem
    Dim objAttendees As Outlook.Recipients
    Dim objAttendee As Outlook.Recipient
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
 
    Set objMeeting = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttendees = objMeeting.Recipients
 
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
    objExcelApp.Visible = True
 
    With objExcelWorksheet
         .Cells(1, 1) = "Name"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Attendance"
         .Cells(1, 2).Font.Bold = True
         .Cells(1, 3) = "Response"
         .Cells(1, 3).Font.Bold = True
    End With
 
    For Each objAttendee In objAttendees
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
       Select Case objAttendee.MeetingResponseStatus
              Case olResponseAccepted
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Accepted"
                   End With
              Case olResponseDeclined
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Declined"
                   End With
              Case olResponseNone
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "None"
                   End With
              Case olResponseTentative
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Tentative"
                   End With
              Case olResponseOrganized
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Organized"
                   End With
       End Select
    Next
 
    objExcelWorksheet.Columns("A:C").AutoFit
    objExcelWorksheet.PrintOut
End Sub

Function GetAttendance(lType As Long) As String
    Select Case lType
           Case 0
                GetAttendance = "Meeting Organizer"
           Case 1
                GetAttendance = "Required Attendee"
           Case 2
                GetAttendance = "Optional Attendee"
    End Select
End Function

4. Berikutnya, tambahkan makro ini ke Quick Access Toolbar (QAT).
5. Terakhir, buka rapat dan tekan tombol makro di QAT.
6. Segera, daftar pelacakan rapat akan dicetak, seperti yang ditunjukkan pada gambar berikut.

Dapatkan kembali Data Outlook yang Berharga

Jika Anda mengalami kerusakan file Outlook, langkah pertama yang dapat Anda lakukan adalah memeriksa cadangan PST terbaru. Jika tidak ada cadangan yang tersedia, Anda juga dapat menggunakan alat perbaikan bawaan. scanpst, untuk mencoba memperbaiki PST. Namun, dengan asumsi bahwa keduanya tidak dapat membuat efek, pilihan terakhir Anda adalah alat eksternal yang lebih kuat dan terbukti dengan baik, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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