Note: The other languages of the website are Google-translated. Back to English

Kako šteti ure / dni / tedne, porabljene za sestanek ali sestanek v Outlooku?

Recimo, da je v koledarju v Outlooku veliko sestankov in sestankov. In zdaj želite prešteti ure / dneve / tedne, porabljene za te sestanke in sestanke, kakšna ideja? Ta članek bo predstavil VBA, ki vam bo v pomoč.

Štejte ure / dneve / tedne, porabljene za sestanek ali sestanek z VBA


Štejte ure / dneve / tedne, porabljene za sestanek ali sestanek z VBA

Ta metoda bo uvedla VBA za štetje ur ali minut, porabljenih za določen sestanek ali sestanek v programu Outlook. Naredite naslednje:

1. Premaknite se v mapo Koledar in kliknite, da izberete sestanek ali sestanek, ki ga boste šteli porabljene ure.

2. Pritisnite druga + F11 tipke hkrati, da odprete okno Microsoft Visual Basic for Applications.

3. klik Vstavi > Moduliin nato prilepite pod kodo VBA v odpiralno okno modula.

VBA: šteje ure / minute, porabljene za sestanek ali sestanek v programu Outlook

Sub CountTimeSpent()
Dim oOLApp As Outlook.Application
Dim oSelection As Outlook.Selection
Dim oItem As Object
Dim iDuration As Long
Dim iTotalWork As Long
Dim iMileage As Long
Dim iResult As Integer
Dim bShowiMileage As Boolean

bShowiMileage = False

iDuration = 0
iTotalWork = 0
iMileage = 0

On Error Resume Next

    Set oOLApp = CreateObject("Outlook.Application")
Set oSelection = oOLApp.ActiveExplorer.Selection

    For Each oItem In oSelection
If oItem.Class = olAppointment Then
iDuration = iDuration + oItem.Duration
iMileage = iMileage + oItem.Mileage
ElseIf oItem.Class = olTask Then
iDuration = iDuration + oItem.ActualWork
iTotalWork = iTotalWork + oItem.TotalWork
iMileage = iMileage + oItem.Mileage
ElseIf oItem.Class = Outlook.olJournal Then
iDuration = iDuration + oItem.Duration
iMileage = iMileage + oItem.Mileage
Else
iResult = MsgBox("Please select some Calendar, Task or Journal items at first!", vbCritical, "Items Time Spent")
Exit Sub
End If
Next

Dim MsgBoxText As String
MsgBoxText = "Total time spent: " & vbNewLine & iDuration & " minutes"

If iDuration > 60 Then
MsgBoxText = MsgBoxText & HoursMsg(iDuration)
End If

If iTotalWork > 0 Then
MsgBoxText = MsgBoxText & vbNewLine & vbNewLine & "Total work recorded; " & vbNewLine & iTotalWork & " minutes"

If iTotalWork > 60 Then
MsgBoxText = MsgBoxText & HoursMsg(iTotalWork)
End If
End If

If bShowiMileage = True Then
MsgBoxText = MsgBoxText & vbNewLine & vbNewLine & "Total iMileage; " & iMileage
End If

    iResult = MsgBox(MsgBoxText, vbInformation, "Items Time spent")

ExitSub:
Set oItem = Nothing
Set oSelection = Nothing
Set oOLApp = Nothing
End Sub

Function HoursMsg(TotalMinutes As Long) As String
Dim iHours As Long
Dim iMinutes As Long
iHours = TotalMinutes \ 60
iMinutes = TotalMinutes Mod 60
HoursMsg = " (" & iHours & " Hours and " & iMinutes & " Minutes)"
End Function

4. Pritisnite F5 ali kliknite Run za zagon tega VBA.

Zdaj se odpre pogovorno okno in pokaže, koliko ur / minut je porabil izbrani sestanek / sestanek. Oglejte si posnetek zaslona:

Opombe: Hkrati lahko izberete več sestankov ali sestankov, da s to kodo VBA preštete skupno število ur / minut, porabljenih za njih.


Povezani članki


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (8)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za zelo uporaben makro! Pravkar sem našel eno napako: oItem.Mileage is a String not a Long. Zaradi te napake je bil makro blokiran.
Ta komentar je moderator na spletnem mestu minimiziral
kako štejete skupni čas za vse sestanke na koledarju v določenem obdobju. Poskušamo ugotoviti, koliko skupno porabijo naši različni člani osebja na sestankih.
Ta komentar je moderator na spletnem mestu minimiziral
Ste dobili odgovor na to ali ste ugotovili? Poskušam narediti enako.
Ta komentar je moderator na spletnem mestu minimiziral
Preklopil sem na mesečni način in izbral vsa povabila z povleci in spusti, da sem lahko videl vsoto vseh sestankov. upam, da pomaga.
Ta komentar je moderator na spletnem mestu minimiziral
Pogled koledarja morate spremeniti v pogled seznama, ki prikazuje vse sestanke skupaj, nato pa lahko označite vse tiste, ki vas zanimajo, in zaženete ta makro VBA.
Ta komentar je moderator na spletnem mestu minimiziral
Kako zelo koristen makro! Hvala vam!
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko storite enako v OWA?
Ta komentar je moderator na spletnem mestu minimiziral
C'est parfait même et surtout pour une analphabète de l'informatique. Merci.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije