Am 20.04.2006 um 15:54 schrieb Hans-Georg:
If obj.FolderItemAvailable Then
f.Append obj.FolderItem
If Obj.NextItem And obj.FolderItemAvailable Then
f.Append obj.FolderItem
End If
End If
Change the second if condition to a while loop:
If obj.FolderItemAvailable Then
f.Append obj.FolderItem
while Obj.NextItem
If obj.FolderItemAvailable Then
f.Append obj.FolderItem
End If
Wend
End If
Hans-Georg
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
