Hoe telt u het aantal uren, dagen of weken dat aan een afspraak of vergadering in Outlook is besteed?

Stel dat er veel Vergadering in een agenda in Outlook staan. En nu wilt u de uren/dagen/weken tellen die aan deze Vergadering zijn besteed. Heeft u daar een idee over? Dit artikel introduceert een VBA-script dat u hierbij helpt.

Tellen van uren/dagen/weken die aan een afspraak of vergadering zijn besteed met VBA

---

Tellen van uren/dagen/weken die aan een afspraak of vergadering zijn besteed met VBA

Deze methode gebruikt een VBA-script om het aantal uren of minuten te tellen dat is besteed aan de opgegeven afspraak of vergadering in Outlook. Volg deze stappen:

1. Ga naar de Agenda-map en selecteer de afspraak of vergadering waarvan u de bestede uren wilt registreren.

2. Druk tegelijkertijd op de toetsen Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

3. Klik op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het geopende modulevenster.

VBA: Tellen van uren/minuten die aan een afspraak of vergadering in Outlook zijn besteed

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. Druk op de F5-toets of klik op de knop Uitvoeren om dit VBA-script uit te voeren.

Er verschijnt nu een dialoogvenster dat toont hoeveel uur en minuten de geselecteerde afspraak of vergadering heeft gekost. Zie de schermafbeelding:

Opmerking: U kunt meerdere afspraken of vergaderingen tegelijk selecteren om met deze VBA-code het totale aantal bestede uren of minuten te tellen.

---

Gerelateerde artikelen

Tellen van het totaal aantal Aantal Gesprekken in een map in Outlook

Tellen van het totale aantal bijlagen in geselecteerde e-mails in Outlook

Aantal ontvangers tellen in de velden Aan, CC en BCC in Outlook

Het aantal Aantal E-mails per afzender tellen in Outlook