Enviar correo
De GrialWIKI
Revisión a fecha de 20:24 24 ago 2011; 201.255.56.50 (Discutir)
Enviar un correo interno a uno o más usuarios
Se debe utilizar el:
PACKAGE BODY SIGSA.PA_SYSFUNC_CORREO PROCEDURE SEND( P_TITULO_IN IN varchar2 , P_TOUSERS IN varchar2 , P_MSG IN varchar2 , P_ERROR OUT varchar2)
Ejemplo:
declare w_errmsg varchar2(600); begin PA_SYSFUNC_CORREO.SEND('test', 'LTATO,MGRUNEWALD,HVULCANO' , 'Texto del mensaje', w_errmsg) if w_errmsg is NOT NULL then...
si w_errmsg vuelve con NULL entoces anduvo ok. Si no es NULL, en w_errMsg está el mensaje de error.
desde visual:
Dim Grq as new GrialQuery Grq.Init "EXECUTE: PA_SYSFUNC_CORREO.SEND;'test';'LTATO,MGRUNEWALD,HVULCANO';'Texto del mensaje';o:TEXTOERR:String" GrialCont.LoadData Grq if DataIn(Grq!TEXTOERR) then ...