Delphi-Quellcode:
For Each oPersonalStatus In oPersonalStatusFolder.Items
If oPersonalStatus.Name = "*In A Meeting" Then
’ Use the ApplyStatus method with our "*In A Meeting" Personal status object
oUser.ApplyStatus oPersonalStatus
End If
Next
Die Schleife wird solange durchlaufen bis kein item in oPersonalStatusFolder mehr gefunden wird.
Wird der Eintrag "In A Meeting" gefunden wird der ApplyStatus aktualisiert.
Normalerweise gehört hier in dem Fall noch ein "Exit For" dazu damit er rausspringen kann wenn das ergebnis true ist.
gruss