20 lines
688 B
Plaintext
20 lines
688 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 Procedimiento VARCHAR(500),
|
|
emailTO,emailCC,emailSubject,emailBody VARCHAR(2000)
|
|
|
|
# WHENEVER ERROR CONTINUE
|
|
PREPARE smt FROM procedimiento
|
|
EXECUTE smt USING emailTo IN,emailCC IN,emailSubject IN,emailBody IN
|
|
|
|
END FUNCTION
|