MAIN

 CONNECT TO "decomarmol" AS "MSSQL" USER 'jsoto' USING 'lmmjvsd2014'
 
 CALL envia_correo('JSOTO@MARMOTECH.COM.DO','JSOTO@MARMOTECH.COM.DO','PRUEBA1','ESTA')
END MAIN

FUNCTION envia_correo(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