3 nopeaa menetelmää Outlook-kokouksen seurantaluettelon tulostamiseen

Kokouskutsun lähettämisen jälkeen voit tarkistaa vastaanottajien kokousvastaukset kokouksen Seuranta-sivulta. Jos haluat tulostaa seurantaluettelon, voit käyttää kolmea tässä artikkelissa esiteltyä menetelmää.

Outlook tarjoaa käyttäjille "seuranta"-ominaisuuden kokouksia varten. Siinä luetellaan kaikkien kokouksen osallistujien vastaukset. Jos siis haluat tarkistaa, ketkä hyväksyvät järjestämäsi kokouksen ja ketkä hylkäävät, pääset vain seurantaluetteloon. Listan tulostamiseen ei kuitenkaan ole suoraa toimintoa. Tästä syystä jaamme sinulle 3 tapaa tulostaa se nopeasti.

Tapa 1: Tulosta "Seuranta"-kuvakaappaus

1. Aloita avaamalla kokouksen Seuranta-sivu.
2. Luo seuraavaksi uusi sähköposti.
3. Siirry sen jälkeen "Lisää" -välilehteen ja napsauta "Kuvakaappaus" -painiketta.
4. Valitse myöhemmin "Seuranta" -kuvakaappaus "Käytettävissä olevat Windowst" -luettelosta.
5. Siirry lopuksi kohtaan "Tiedosto" > "Tulosta" tulostaaksesi kuvakaappauksen "Seurannasta".

Tapa 2: Tulosta Exceliin kopioinnin jälkeen

1. Aloita siirtymällä ”Seuranta”-sivulle.
2. Valitse sen jälkeen yksi merkintä "Seuranta"-luettelosta.
3. Paina seuraavaksi "Ctrl + A" valitaksesi kaikki merkinnät.
4. Paina sen jälkeen "Ctrl + C" kopioidaksesi ne.
5. Avaa sitten uusi Excel-tiedosto.
6. Valitse "A1"-solu ja paina "Ctrl + V" liittääksesi kopioitu "Seuranta"-luettelo.
7. Lopulta Excelissä valitse "Tiedosto" > "Tulosta" tulostaaksesi nykyinen laskentataulukko.

Tapa 3: Tulosta Outlook VBA:lla

1. Siirry ensin Outlook VBA -editoriin viittaamalla "Kuinka suorittaa VBA-koodi Outlookissa".
2. Ota sitten käyttöön ”MS Excel Object Library” kohdan ”Objektikirjastoviittauksen lisääminen VBA:ssa".
3. Laita sen jälkeen alla oleva koodi moduuliin.

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. Lisää seuraavaksi tämä makro Quick Access Toolbariin (QAT).
5. Avaa lopuksi kokous ja paina makropainiketta QAT:ssa.
6. Heti kokouksen seurantalista tulostetaan seuraavan kuvan mukaisesti.

Palauta arvokkaat Outlook-tiedot

Jos Outlook-tiedostosi vioittuvat, voit ensin tarkistaa uusimman PST-varmuuskopion. Jos varmuuskopiota ei ole saatavilla, voit myös käyttää sisäänrakennettua korjaustyökalua. scanpst, yrittääksesi PST-korjauksen. Olettaen kuitenkin, että kumpikaan ei voi saada aikaan vaikutuksia, viimeinen keinosi on tehokkaampi ja paremmin todistettu ulkoinen työkalu, kuten esim. DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com