...parse mails.....xml file
 
for each mail in emails
              if abort <> true then  
                      IMessage.receiver = mail.emailaddress
                      IMessage.receiver.send
              else
                       exit for           
              end if
next