For Each Syntax Like VBScript

[floebel]

Is there a way to emulate For Each syntax in FiveWin similar to VBScript when using CreateObject?

[Colin Haig]

Antonio helped me with this a while ago - hope it helps

Code: Select all  Expand view

for each oItem In oCMSFolder:Items
   nItem++
   dMail    := oItem:ReceivedTime
   cSender  := oItem:sendername
   cSubject := oItem:subject
   cBody    := oItem:body
   for each oAttach In oItem:Attachments
      cAttach := oAttach:filename
      aadd(aAttach,{str(nItem,2),cAttach})
   next
   aadd(aData,{str(nItem,2),dtoc(dMail),(left(alltrim(cSender)  + space(30),30)),(left(alltrim(cSubject)  + space(30),30)),cBody})
next
 

Colin