Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#5

AW: VB to Delphi bräuchte Unterstützung

  Alt 13. Mär 2011, 15:59
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
  Mit Zitat antworten Zitat