3 სწრაფი მეთოდი თქვენი Outlook შეხვედრის თვალთვალის სიის დასაბეჭდად

შეხვედრის მოწვევის გაგზავნის შემდეგ, თქვენ შეგიძლიათ შეამოწმოთ მიმღებთა შეხვედრის პასუხები შეხვედრის „თრექინგ“ გვერდზე. თუ გსურთ დაბეჭდოთ თვალთვალის სია, შეგიძლიათ გამოიყენოთ ამ სტატიაში წარმოდგენილი 3 მეთოდი.

Outlook მომხმარებლებს შესთავაზებს „თვალთვალის“ ფუნქციას შეხვედრებისთვის. ის ჩამოთვლის შეხვედრის ყველა დამსწრე ყველა პასუხს. ამრიგად, თუ იმედი გაქვთ, რომ შეამოწმებთ, ვინ იღებს თქვენს მიერ ორგანიზებულ შეხვედრას და ვინ უარყოფს, შეგიძლიათ უბრალოდ მიიღოთ წვდომა თვალთვალის სიაზე. თუმცა, სიის დაბეჭდვის პირდაპირი ფუნქცია არ არსებობს. ამრიგად, აქ გაგიზიარებთ 3 საშუალებას მისი სწრაფად დაბეჭდვისთვის.

მეთოდი 1: დაბეჭდეთ „თვალთვალის“ სკრინშოტი

1. დასაწყისისთვის, გახსენით შეხვედრის გვერდი „თვალთვალი“.
2. შემდეგი, შექმენით ახალი ელ.წერილი.
3. ამის შემდეგ გადადით "ჩასმა" ჩანართზე და დააჭირეთ ღილაკს "ეკრანის სურათი".
4. მოგვიანებით, აირჩიეთ „თვალთვალის“ სკრინშოტი „ხელმისაწვდომი Windows“ სიიდან.
5. დაბოლოს, გადადით "ფაილი" > "ბეჭდვა", რათა ამობეჭდოთ ეკრანის ანაბეჭდი "თვალთვალის".

მეთოდი 2: დაბეჭდვა Excel-ში კოპირების შემდეგ

1. დასაწყებად, გადადით „თვალთვალის“ გვერდზე.
2. შემდგომში აირჩიეთ ერთი ჩანაწერი „თრექინგ“ სიაში.
3. შემდეგი, დააჭირეთ "Ctrl + A" ყველა ჩანაწერის შესარჩევად.
4. ამის შემდეგ დააჭირეთ "Ctrl + C" მათი კოპირებისთვის.
5. შემდეგ გახსენით ახალი Excel ფაილი.
6. აირჩიეთ "A1" უჯრედი და დააჭირეთ "Ctrl + V" კოპირებული "Tracking" სიის ჩასასვლელად.
7. საბოლოოდ, Excel-ში გადადით "ფაილი" > "ბეჭდვა" მიმდინარე სამუშაო ფურცლის დასაბეჭდად.

მეთოდი 3: ამობეჭდვა Outlook VBA-ით

1. პირველ რიგში, გადადით Outlook VBA რედაქტორზე მითითებით "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
2. შემდეგ, ჩართეთ „MS Excel Object Library“ „როგორ დავამატოთ ობიექტის ბიბლიოთეკის მითითება VBA-ში".
3. ამის შემდეგ ჩადეთ ქვემოთ მოცემული კოდი მოდულში.

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. შემდეგი, დაამატეთ ეს მაკრო Quick Access Toolbar-ს (QAT).
5. საბოლოო ჯამში, გახსენით შეხვედრა და დააჭირეთ მაკრო ღილაკს QAT-ში.
6. ერთბაშად დაიბეჭდება შეხვედრის თვალთვალის სია, როგორც ეს ნაჩვენებია შემდეგ სურათზე.

დაიბრუნეთ Outlook-ის ღირებული მონაცემები

თუ Outlook ფაილის დაზიანებას წააწყდებით, პირველ რიგში, შეგიძლიათ შეამოწმოთ PST-ის უახლესი სარეზერვო ასლი. თუ სარეზერვო ასლი არ არის ხელმისაწვდომი, ასევე შეგიძლიათ გამოიყენოთ ჩაშენებული აღდგენის ინსტრუმენტი. სკანპსტი, სცადეთ PST შეკეთება. მიუხედავად ამისა, თუ ვივარაუდებთ, რომ ორივე ვერ ახდენს ეფექტს, თქვენი უკანასკნელი საშუალება არის უფრო ძლიერი და კარგად დადასტურებული გარე ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის SQL Server კორუფციის და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად