Hallo, habe ein Problem mit einem Outlook Makro.. Und zwar verstehe ich nicht warum er nach jedem Schleifendurchlauf die MsgBox bringt, wollte sie eigentlich nur einmal nach Beendigung der Schleife..
Hier mal der Code:
Sub CustomMailMessageRule(Item As Outlook.MailItem)
Dim angebrochen As Integer
Dim telefoniert As Integer
Set Items = Application.Session.Folders("MobileArchiver").Folders("Outbound Calls").Items
telefoniert = 0
For i = 1 To Items.Count()
If Mid(Items(i).Body, 71, 2) = "00" Then
angebrochen = 0
Else
angebrochen = 1
telefoniert = telefoniert + Mid(Items(i).Body, 65, 2) * 60 + Mid(Items(i).Body, 68, 2) + angebrochen
End If
Next
MsgBox "Freiminuten verbraucht: " & telefoniert
End Sub |