3 Metoda të shpejta për të printuar listën përcjellëse të takimit tuaj të Outlook

Pas dërgimit të një ftese takimi, mund të kontrolloni përgjigjet e takimit të marrësve në faqen "Ndjekja" e takimit. Nëse dëshironi të printoni listën e gjurmimit, mund të përdorni 3 metodat e prezantuara në këtë artikull.

Outlook u ofron përdoruesve funksionin "Ndjekja" për takimet. Ai do të listojë të gjitha përgjigjet nga të gjithë pjesëmarrësit në takim. Kështu, nëse shpresoni të kontrolloni se kush e pranon takimin që organizuat dhe kush e refuzon, thjesht mund të keni akses në listën e gjurmimit. Megjithatë, nuk ka një funksion të drejtpërdrejtë për të printuar listën. Kështu, këtu do t'ju ndajmë 3 mënyra për ta printuar shpejt.

Metoda 1: Shtypni pamjen e ekranit "Ndjekja".

1. Për të filluar, hapni faqen "Ndjekja" e takimit.
2. Tjetra, krijoni një email të ri.
3. Pas kësaj, kaloni në skedën "Fut" dhe klikoni në butonin "Pamja e ekranit".
4. Më vonë, zgjidhni pamjen e ekranit "Ndjekja" nga lista "Available Windows".
5. Më në fund, shkoni te "File" > "Print" për të printuar pamjen e ekranit të "Ndjekjes".

Metoda 2: Printoni pas kopjimit në Excel

1. Për të filluar, hyni në faqen "Ndjekja".
2. Më pas, zgjidhni një hyrje në listën "Ndjekja".
3. Më pas, shtypni "Ctrl + A" për të zgjedhur të gjitha hyrjet.
4. Më pas, shtypni "Ctrl + C" për t'i kopjuar ato.
5. Pastaj hapni një skedar të ri Excel.
6. Zgjidhni qelizën "A1" dhe shtypni "Ctrl + V" për të ngjitur listën e kopjuar "Tracking".
7. Përfundimisht, në Excel, shkoni te "File" > "Print" për të printuar fletën aktuale të punës.

Metoda 3: Printoni me Outlook VBA

1. Së pari, shkoni te redaktori VBA i Outlook duke iu referuar "Si të ekzekutoni kodin VBA në Outlook tuaj".
2. Pastaj, aktivizoni "MS Excel Object Library" në përputhje me "Si të shtoni një referencë të bibliotekës së objekteve në VBA".
3. Pas kësaj, vendosni kodin më poshtë në një 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. Më pas, shtoni këtë makro në shiritin e veglave të aksesit të shpejtë (QAT).
5. Në fund të fundit, hapni një takim dhe shtypni butonin makro në QAT.
6. Menjëherë, lista e përcjelljes së takimit do të printohet, siç tregohet në figurën e mëposhtme.

Merrni të dhëna të vlefshme të Outlook

Nëse po përjetoni korruptim të skedarit të Outlook-ut, së pari, mund të kontrolloni kopjen rezervë më të fundit të PST-së. Nëse nuk ka ndonjë kopje rezervë të disponueshme, është gjithashtu një mundësi të përdorni mjetin e integruar të riparimit, scanpst, për të tentuar riparimin e PST. Megjithatë, duke supozuar se të dyja nuk mund të bëjnë efekte, mjeti juaj i fundit është një mjet i jashtëm më i fuqishëm dhe i provuar mirë, si p.sh. DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë SQL Server korrupsioni dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com