<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>