Hallo,
ich habe von Outlook 2003 (?) nun auf Outlook 2007 gewechselt. Bisher habe ich das folgende Makro verwendet, um von markierten Kalendereinträgen die Gesamtdauer in Stunden:Minuten ausgeben zu lassen.
Wenn ich das Makro nun unter Outlook 2007 starte, so funktiuoniert es auch zunächst. Nach einiger Zeit bekomme ich aber eine Fehlermeldung von Windows "Outlook funktioniert nicht mehr richtig" oder so. Dies kommt m. E. aus dem Makro. Gibt es hier vielleicht ein Problem mit der Nutzung unter Outlook 2007?
Public Sub Zeige_Gesamtdauer()
Const MSG_TITLE = "Gesamtdauer der markierten Einträge"
Dim objSelection As Selection
Dim lngIndex As Long
Dim lngMinutes As Long
On Error Resume Next
Set objSelection = Application.ActiveExplorer.Selection
For lngIndex = 1 To objSelection.Count
lngMinutes = lngMinutes + objSelection(lngIndex).Duration
Next lngIndex
Set objSelection = Nothing
MsgBox Format(Round(lngMinutes / 60, 2), "#0.00") & " Stunden", vbInformation, MSG_TITLE
' MsgBox Format(Int(lngMinutes / 60), "#0") & ":" & _
Format(lngMinutes Mod 60, "00") & " Stunden", vbInformation, MSG_TITLE
End Sub
|