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