3 phương pháp nhanh chóng để in danh sách theo dõi cuộc họp Outlook của bạn

giải pháp triển vọng Tháng Chín 29, 2025

Sau khi gửi lời mời họp, bạn có thể kiểm tra phản hồi cuộc họp của người nhận trong trang "Theo dõi" của cuộc họp. Nếu bạn muốn in danh sách theo dõi, bạn có thể sử dụng 3 phương pháp được giới thiệu trong bài viết này.

Outlook cung cấp cho người dùng tính năng “Theo dõi” các cuộc họp. Nó sẽ liệt kê tất cả các câu trả lời từ tất cả những người tham dự cuộc họp. Do đó, nếu bạn muốn kiểm tra xem ai chấp nhận cuộc họp do bạn tổ chức và ai từ chối, bạn chỉ cần truy cập vào Danh sách theo dõi. Tuy nhiên, không có chức năng trực tiếp để in danh sách. Qua đó, sau đây chúng tôi sẽ chia sẻ cho bạn 3 phương tiện để in nhanh chóng.

Phương pháp 1: In Ảnh chụp màn hình “Theo dõi”

Để bắt đầu, hãy mở trang “Theo dõi” cuộc họp.
Tiếp theo, tạo một email mới.
Sau đó, chuyển sang tab “Chèn” và nhấp vào nút “Ảnh chụp màn hình”.
Sau đó, chọn ảnh chụp màn hình “Theo dõi” từ danh sách “Windows khả dụng”.
Cuối cùng, vào “File” > “Print” để in ảnh chụp màn hình của “Tracking”.

Cách 2: In sau khi Copy sang Excel

Trước tiên, hãy truy cập trang “Theo dõi”.
Sau đó, chọn một mục trong danh sách “Theo dõi”.
Tiếp theo, nhấn “Ctrl + A” để chọn tất cả các mục.
Sau đó, nhấn “Ctrl + C” để sao chép chúng.
Sau đó, mở một tệp Excel mới.
Chọn ô “A1” và nhấn “Ctrl + V” để dán danh sách “Theo dõi” đã sao chép.
Cuối cùng, trong Excel, hãy chuyển đến “Tệp” > “In” để in trang tính hiện tại.

Phương pháp 3: In bằng Outlook VBA

Trước hết, hãy chuyển đến trình soạn thảo Outlook VBA bằng cách tham khảo “Cách chạy mã VBA trong Outlook của bạn".
Tiếp theo, hãy kích hoạt “Thư viện đối tượng MS Excel” theo hướng dẫn trong “Cách thêm tham chiếu thư viện đối tượng trong VBA".
Sau đó, đặt mã bên dưới vào một mô-đun.

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

Tiếp theo, thêm macro này vào Thanh công cụ truy cập nhanh (QAT).
Cuối cùng, hãy mở một cuộc họp và nhấn nút macro trong QAT.
Ngay lập tức, danh sách theo dõi cuộc họp sẽ được in ra, như thể hiện trong hình dưới đây.

Lấy lại dữ liệu Outlook có giá trị

Nếu bạn gặp sự cố hỏng tập tin Outlook, trước tiên bạn có thể kiểm tra bản sao lưu PST gần nhất. Nếu không có bản sao lưu nào, bạn cũng có thể sử dụng công cụ sửa chữa tích hợp sẵn. scanpst, để thử sửa chữa PST. Tuy nhiên, giả sử rằng cả hai đều không thể tạo ra hiệu ứng, thì giải pháp cuối cùng của bạn là một công cụ bên ngoài mạnh hơn và đã được chứng minh rõ ràng, chẳng hạn như DataNumen Outlook Repair.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm SQL Server tham nhũng và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm