{
================================================================
 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