Mensaje a Correo desde el Servidor

Charly
06 de Mayo del 2006
HOLA GENTE:
Un favor algun ejemplo de como poder enviar un mensaje de correo desde oracle10g... gracias

Rodolfo Reyes
06 de Mayo del 2006
En la siguiente dirección hay ejemplos de como crear un paquete con el cual puedes enviar correo electronico.

http://www.oracle.com/technology/sample_code/tech/pl_sql/htdocs/Utl_Smtp_Sample.html

Manuel Antonio Lopez Romero
06 de Mayo del 2006
PROCEDURE sendmail (
envia IN VARCHAR2,
recibe IN VARCHAR2,
asunto IN VARCHAR2,
mensaje IN VARCHAR2,
HOST IN VARCHAR2
)
IS
mailhost VARCHAR2 (30) := LTRIM (RTRIM (HOST));
mail_conn UTL_SMTP.connection;
crlf VARCHAR2 (2) := CHR (13) || CHR (10);
-- Se puede usar tambien: utl_tcp.CRLF.
mesg VARCHAR2 (1000);
BEGIN
mail_conn := UTL_SMTP.open_connection (mailhost, 25);
mesg :=
\'Date: \'
|| TO_CHAR (SYSDATE, \'dd Mon yy hh24:mi:ss\')
|| crlf
|| \'From: <\'
|| envia
|| \'>\'
|| crlf
|| \'Subject: \'
|| asunto
|| crlf
|| \'To: \'
|| recibe
|| crlf
|| \'\'
|| crlf
|| mensaje;
UTL_SMTP.helo (mail_conn, mailhost);
UTL_SMTP.mail (mail_conn, envia);
UTL_SMTP.rcpt (mail_conn, recibe);
UTL_SMTP.DATA (mail_conn, mesg);
UTL_SMTP.quit (mail_conn);
END;

Un ejemplo de la llamada es
sendmail ( \'[email protected]\',
,[email protected]\'
\'Ocurrencia de la politica de auditoria de datos FGA: \'
|| p_policy_name,
v_cuerpo,
<Servidor SMTP>
);