Enviar correo
De GrialWIKI
Revisión a fecha de 20:27 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 desde PL/SQL:
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 raise_application_error(-20101, w_errmsg || ' enviando correo'); end if;
si w_errmsg vuelve con NULL entoces anduvo ok. Si no es NULL, en w_errMsg está el mensaje de error.
Ejemplo desde Visual Basic:
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.Rst!TEXTOERR) then MsgBox Grq.Rst!TEXTOERR,VbCritical,"Enviando Correo" end if
