On Apr 20, 2006, at 8:58 AM, Hans-Georg wrote:
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
Or for even more simplicity
do
if obj.FolderItemAvailable then
f.Append obj.FolderItem
end if
loop until not obj.NextItem
HTH,
Jon
_______________________________________________
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>
