DEFINE
subject,attachment VARCHAR(100),
cuerpo_correo STRING,
toEmail string
DEFINE xusername,xsmtphost,xsmtpport,xpassword,mensaje STRING
MAIN
DEFINE reciben DYNAMIC ARRAY OF RECORD
TO,subject,body STRING
END RECORD
# CONNECT TO "smarmotech" AS "MSSQL" USER 'jsoto' USING 'lmmjvsd2014'
# CALL envia_correo_sp('JSOTO@MARMOTECH.COM.DO','JSOTO@MARMOTECH.COM.DO','PRUEBA1','ESTA')
LET reciben[1].to = 'jsoto@marmotech.com.do'
LET reciben[1].subject = 'ESTE ES EL SUBJECT DEL PRIMER EMAIL'
LET reciben[1].body = 'ESTE ES EL BODY DEL PRIMER EMAIL'
CALL enviaemail_ssl(reciben)
END MAIN
FUNCTION envia_correo_sp(emailTO,emailCC,emailBody,emailSubject)
DEFINE emailBody,emailTO,emailCC,emailSubject VARCHAR(1000)
PREPARE smt FROM "{ call cc_avisadespacho(?,?,?,?) }"
EXECUTE smt USING emailTo IN,emailCC IN,emailSubject IN,emailBody IN
END FUNCTION
FUNCTION enviaemail_ssl(recibido)
DEFINE recibido DYNAMIC ARRAY OF RECORD
TO,subject,body STRING
END RECORD
# LET vendedoremail = 'gespinal@marmotech.com.do;jsoto@marmotech.com.do'
LET subject = "ESTO ES UNA PRUEBA"
LET cuerpo_correo='
'
{ '',
"| ","FUE ADICIONADA POR EL EMPLEADO |
|---|
",
"| ",'uson de la cosa' CLIPPED," |
",
"| ",' observacion del doc' CLIPPED," |
"
}
LET toEmail = 'jsoto@marmotech.com.do'
LET xusername ='notificacion@marmotech.com.do'
LET xsmtphost ='smtp.office365.com'
LET xsmtpport = '587'
LET xpassword = 'Lmmjvsd2020'
LET cuerpo_correo = 'PRUEBA DE PRUEBA'
CALL enviaemail(toemail,subject,cuerpo_correo,attachment,xusername,xsmtphost,xsmtpport,xpassword)
END FUNCTION