For Each Syntax Like VBScript
Posted: Wed May 29, 2013 11:05 pm
Is there a way to emulate For Each syntax in FiveWin similar to VBScript when using CreateObject?
Code: Select all
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