33 lines
1.4 KiB
Plaintext
33 lines
1.4 KiB
Plaintext
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 |