MAIN
 DEFINE subject,mailtext,usuario,clave char(50),
 i INT,comando STRING
 DEFINE recipients DYNAMIC ARRAY OF RECORD mode STRING, recipient STRING END RECORD
 DEFINE attachments DYNAMIC ARRAY OF RECORD fname, sname STRING END RECORD
 DEFINE mailbody DYNAMIC ARRAY OF STRING
 DEFINE rcpt DYNAMIC ARRAY OF STRING
 
CALL arg_val(1) RETURNING usuario

LET recipients[1].recipient = 'nominas.@marmotech.com.do'
LET recipients[1].MODE="To"
FOR i = 1 TO 2
  DISPLAY "ENVIO ",i
#  CALL genmail('nominas.marmotech@gmail.com',recipients,'TEST','ESTO ES UNA PRUEBA',attachments,mailbody,rcpt)
{  IF sendmail(rcpt, mailbody) THEN
                CALL clear_attachments(attachments)
                CALL rcpt.clear()
                CALL recipients.clear()
                CALL attachments.clear()
                CALL mailbody.clear()
                LET subject = ""
                LET mailtext = ""
            END IF
            CALL clear_attachments(attachments)}
            
            DISPLAY "envie"
            LET comando = "powershell $msolcred = Get-Credential"
            RUN comando
            LET comando = "powershell send-MailMessage -From nominas@marmotech.com.do -To jsoto@marmotech.com.do -Subject 'Test Mee 4js' -Body 'Esto es una prueba 4js' -SmtpServer smtp.office365.com -Credential $msolcred -UseSsl -Port 587"
            RUN comando
END FOR
END MAIN