如何計算 Outlook 中某個約會或會議所耗費的時數、天數或週數？

假設您的 Outlook 日曆中已安排了多場約會與會議，而您希望快速計算這些活動總共耗費了多少小時、天數或週數，該如何操作呢？本文將為您介紹一段實用的 VBA 程式碼，輕鬆達成此目標。

使用 VBA 計算約會或會議所花費的時數／天數／週數

---

使用 VBA 計算約會或會議所花費的時數／天數／週數

此方法將介紹一段 VBA 程式碼，用於計算 Outlook 中指定約會或會議所耗費的時數或分鐘數。請依照下列步驟操作：

1. 切換至「行事曆」資料夾，並點選您要計算耗費時數的約會或會議。

2. 同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

3. 點選插入＞ 模組，並將下方的 VBA 程式碼貼上至開啟的模組視窗中。

VBA：計算 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. 按下 F5 鍵，或點擊執行按鈕，立即執行此 VBA！

此時將彈出一個對話方塊，顯示所選約會／會議已耗費的時數與分鐘數。請參閱截圖：

注意：您可以同時選取多個約會或會議，並透過此 VBA 程式碼立即計算它們的總耗費時數／分鐘數！

---

相關文章

計算 Outlook 資料夾中的對話數量總數

計算 Outlook 中所選郵件的附件總數

計算 Outlook 中「收件者」、「副本」與「密件副本」欄位的收件人數量

依寄件者統計 Outlook 中的郵件數數量