Moving from Microsoft Office VBA to AppleScript:
MacTech's Guide to Making the Transition

Page Prev and Page Next buttons at bottom of the page.

April, 2007
Page 121

     set exitRpt to false -- for outer loop

     repeat with i from 1 to count recipsList

          repeat 1 times

               set theRecip to item i of my recipsList

              set eAddress to address of the address of theRecip

              if eAddress ≠ "" then

                   try

                        set foundItem to item 1 of (find eAddress)

                   on error -- not a contact

                        exit repeat -- 1 times

                   end try

              else -- group

                   try

                        set dName to display name of address of theRecip

                        set foundItem to group dName

                   on error

                        -- text typed in without being group or email address

                        exit repeat -- 1 times

                   end try

              end if

              set theCats to category of foundItem

              if theCats = {} then exit repeat

              repeat with j from 1 to (count theCats)

                   set catname to name of (item j of theCats)