53 lines
1.9 KiB
Plaintext
53 lines
1.9 KiB
Plaintext
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='<!DOCTYPE html>
|
|
<html><img src="arte.png" alt="Girl in a jacket" width="500" height="600"></html>'
|
|
|
|
|
|
{ '<!DOCTYPE html><html>',
|
|
"<tr><th>","FUE ADICIONADA POR EL EMPLEADO </tr>",
|
|
"<tr><td>",'uson de la cosa' CLIPPED,"</td></tr>",
|
|
"<tr><td>",' observacion del doc' CLIPPED,"</td></tr></html>"
|
|
}
|
|
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 |