Outlook Toplantınızın İzleme Listesini Yazdırmanın 3 Hızlı Yöntemi

Bir toplantı daveti gönderdikten sonra, alıcıların toplantı yanıtlarını toplantının “İzleme” sayfasından kontrol edebilirsiniz. İzleme listesini yazdırmak isterseniz, bu makalede açıklanan 3 yöntemi kullanabilirsiniz.

Outlook, kullanıcılara toplantılar için “İzleme” özelliği sağlar. Tüm toplantı katılımcılarının tüm yanıtlarını listeleyecektir. Böylece, düzenlediğiniz toplantıyı kimlerin kabul ettiğini ve kimlerin reddettiğini kontrol etmek isterseniz, sadece İzleme listesine erişebilirsiniz. Ancak, listeyi yazdırmak için doğrudan bir işlev yoktur. Böylece, burada size hızlı bir şekilde yazdırmanın 3 yolunu paylaşacağız.

Yöntem 1: “İzleme” Ekran Görüntüsünü Yazdır

1. Başlamak için toplantı "İzleme" sayfasını açın.
2. Ardından, yeni bir e-posta oluşturun.
3. Bundan sonra, “Ekle” sekmesine geçin ve “Ekran Görüntüsü” düğmesine tıklayın.
4. Daha sonra “Kullanılabilir Windows” listesinden “İzleme” ekran görüntüsünü seçin.
5. Son olarak, "İzleme"nin ekran görüntüsünü yazdırmak için "Dosya" > "Yazdır"a gidin.

Yöntem 2: Excel'e Kopyaladıktan Sonra Yazdır

1. Öncelikle “Takip” sayfasına erişin.
2. Ardından, "İzleme" listesinden bir giriş seçin.
3. Ardından, tüm girişleri seçmek için "Ctrl + A" tuşlarına basın.
4. Daha sonra, kopyalamak için “Ctrl + C” tuşlarına basın.
5. Ardından, yeni bir Excel dosyası açın.
6. Kopyalanan "İzleme" listesini yapıştırmak için "A1" hücresini seçin ve "Ctrl + V" tuşlarına basın.
7. Sonunda, geçerli çalışma sayfasını yazdırmak için Excel'de "Dosya" > "Yazdır" seçeneğine gidin.

Yöntem 3: Outlook VBA ile yazdırın

1. İlk önce, "" bölümüne başvurarak Outlook VBA düzenleyicisine gidin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
2. Ardından, “MS Excel Nesne Kitaplığı”nı aşağıdaki talimatlara uygun olarak etkinleştirin:VBA'da Nesne Kütüphanesi Referansı Nasıl Eklenir?".
3. Bundan sonra, aşağıdaki kodu bir modüle yerleştirin.

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. Ardından, bu makroyu Hızlı Erişim Araç Çubuğuna (QAT) ekleyin.
5. Son olarak, bir toplantı açın ve QAT'ta makro düğmesine basın.
6. Hemen, aşağıdaki şekilde gösterildiği gibi, toplantının izleme listesi yazdırılacaktır.

Değerli Outlook Verilerini geri alın

Outlook dosya bozulması yaşıyorsanız, öncelikle en son PST yedeğini kontrol edebilirsiniz. Kullanılabilir bir yedekleme yoksa, yerleşik onarım aracını kullanmak da bir seçenektir. Tarama, PST onarımını denemek için. Yine de, her ikisinin de etki yaratamayacağını varsayarsak, son çareniz daha güçlü ve kendini kanıtlamış harici bir araçtır. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. SQL Server rüşvet ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com