LotusScript Example

<ResourceAction name=’iterateAttributes’ createDate=’1083868010032’>
   <ResTypeAction restype=’Domino Gateway’ actionType=’lotusscript’>
      <act>
         Sub Initialize
            Main
         End Sub
         Sub Main
            Dim session As New NotesSession
            Dim doc As NotesDocument
            Set doc = session.DocumentContext
            Forall i In doc.Items
               Dim attrVal As Variant
               attrVal = doc.GetItemValue(i.Name)
            End Forall
         End Sub
      </act>
   </ResTypeAction>
</ResourceAction>