20 lines
854 B
Plaintext
20 lines
854 B
Plaintext
{
|
|
================================================================
|
|
FUNCION : ENVIACORREO
|
|
OBJETIVO : Reutilizacion de codigos para ejecuar Store
|
|
Procedures relacionado al envio de correo
|
|
PROGRAMADOR : ING. JUAN SOTO
|
|
FECHA : 28 DE ABRIL 2011
|
|
================================================================
|
|
}
|
|
|
|
FUNCTION envia_correo(emailTO,emailCC,emailBody,emailSubject,Procedimiento)
|
|
DEFINE emailTO,emailCC,emailSubject,Procedimiento CHAR(150),
|
|
emailBody VARCHAR(1000)
|
|
# DISPLAY "proc ",procedimiento," emailto ",emailto CLIPPED," EMAILCC ",emailcc CLIPPED,
|
|
# " emailsubject ",emailsubject CLIPPED," EMAILBODY ",emailbody CLIPPED
|
|
|
|
PREPARE smt FROM procedimiento #"{ call cc_avisadespacho(?,?,?) }"
|
|
EXECUTE smt USING emailTo IN,emailCC IN,emailSubject IN,emailBody IN
|
|
END FUNCTION
|