Kako brzo izvesti ukupno vrijeme potrošeno na Outlook sastanke u svakoj kategoriji boja

Ako želite izraditi izvješće o ukupnom vremenu koje ste potrošili na sastanke u svakoj kategoriji boja, možete upotrijebiti metodu predstavljenu u ovom članku. Može vam pomoći da to postignete u kratkom vremenu bez potrebe za ručnim brojanjem.

Mnogi korisnici navikli su bilježiti većinu svojih aktivnosti u Outlook kalendaru. Također, kako bi ih lakše upravljali i razlikovali, svakoj od njih dodjeljuju kategorije. U tom slučaju, neki korisnici žele generirati izvješće koje prikazuje ukupno vrijeme provedeno na stavkama kalendara u svakoj kategoriji boja. Bez sumnje, ručno brojanje i unos je teško. Stoga ćemo ovdje podijeliti način na koji se taj zadatak može obaviti jednostavnim klikom.

Izvezite ukupno vrijeme potrošeno na sastanke u svakoj kategoriji boja

1. Prvo pokrenite svoju Outlook aplikaciju.
2. Zatim, nakon ulaska u prozor programa Outlook, možete dodirnuti tipke "Alt + F11".
3. Zatim ćete dobiti pristup prozoru “Microsoft Visual Basic za aplikacije”.
4. Zatim ćete morati omogućiti "Microsoft Excel Object Library". Možete kliknuti "Alati" > "Referenca" da biste to učinili.
5. Zatim trebate pronaći i otvoriti modul koji nije u upotrebi.
6. Nakon toga trebate kopirati sljedeći VBA kod u ovaj modul.

Sub ExportTimeSpentOnAppointmentsInEachColorCategory()
    Dim objDictionary As Object
    Dim objAppointments As Outlook.Items
    Dim objAppointment As Outlook.AppointmentItem
    Dim strCategory As String
    Dim arrCategory As Variant
    Dim varCategory As Variant
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim arrKey As Variant
    Dim arrItem As Variant
    Dim i As Long
    Dim nLastRow As Integer
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set objAppointments = Application.Session.PickFolder.Items
  
    For Each objAppointment In objAppointments
        arrCategory = Split(objAppointment.Categories, ",")
        For Each varCategory In arrCategory
            strCategory = Trim(varCategory)
            If objDictionary.Exists(strCategory) Then
               objDictionary.Item(strCategory) = objDictionary.Item(strCategory) + objAppointment.Duration
            Else
               objDictionary.Add strCategory, objAppointment.Duration
            End If
        Next
    Next
 
    'Create a new Excel workbook
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
    objExcelApp.Visible = True
    objExcelWorkbook.Activate
 
    With objExcelWorksheet
         .Cells(1, 1) = "Color Category"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 1).Font.Size = 14
         .Cells(1, 2) = "Total Time (min)"
         .Cells(1, 2).Font.Bold = True
         .Cells(1, 2).Font.Size = 14
    End With
 
    arrKey = objDictionary.Keys
    arrItem = objDictionary.Items
 
    For i = LBound(arrKey) To UBound(arrKey)
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.count).End(xlUp).Row + 1
 
        objExcelWorksheet.Cells(nLastRow, 1) = arrKey(i)
        objExcelWorksheet.Cells(nLastRow, 2) = arrItem(i)
    Next

    objExcelWorksheet.Columns("A:B").AutoFit
End Sub

7. Konačno možete pokrenuti ovu makronaredbu, bez obzira klikom na ikonu "Pokreni" na alatnoj traci ili pritiskom na tipku "F5".
8. Zatim će se od vas tražiti da odaberete određeni kalendar.
9. Nakon što odaberete i pritisnete “OK”, makro će se nastaviti izvoditi. Nakon što završi, pojavit će se nova Excel datoteka koja će se prikazati u pozadini.
10. Možete mu pristupiti. Izgledat će kao sljedeća snimka zaslona:

Pripazite na potencijalne prijetnje oko vašeg Outlooka

Korisnici programa Outlook trebali bi paziti na sve moguće rizike, uključujući nepoznate privitke e-pošte, ugrađene veze i ljudske pogreške. Inače se vaš Outlook može oštetiti u bilo kojem trenutku. Također, izrada redovitih sigurnosnih kopija Outlook podataka i održavanje specijaliziranog alata za popravak su stvari koje su nužne. DataNumen Outlook Repair je jedan od najpreporučljivijih alata za popravak. Može popraviti Outlook problemi u tren oka.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com