Hola buenas tardes a todos, tengo un propblema estoy tratando de enviar correos por medio de oracle aca les dejo mi funcion

Code: Seleccionar todo

PROCEDURE ENVIAR_CORREO(mail_dest VARCHAR2) IS
origen varchar2(50);
destino varchar2(50);
asunto varchar2(50);
mensaje varchar2(1000);
crlf varchar2(2):= chr(13)||chr(10);
mailhost VARCHAR2(30) := 'itesm.mx';
mail_conn utl_smtp.connection;
resp utl_smtp.reply;
BEGIN
origen:='urielfme@itesm.mx';
destino:=mail_dest;
--NOTA EL ORIGEN DEBE SER UNA DIRECCION EXISTENTE DESDE LA @ A LA DERECHA
asunto:='-SIIP-Notificacion Publicaciones-';
mensaje:='Con fecha '||sysdate||crlf;
mail_conn := utl_smtp.open_connection(mailhost, 25);
resp := utl_smtp.helo( mail_conn, mailhost);
resp := utl_smtp.mail( mail_conn, origen);
resp := utl_smtp.rcpt( mail_conn, destino);
resp := utl_smtp.data( mail_conn, mensaje );
resp := utl_smtp.quit( mail_conn );
EXCEPTION
WHEN OTHERS THEN
RAISE;
END ENVIAR_CORREO;

pero me marca un error

Code: Seleccionar todo

Error starting at line 1 in command:
EXEC ADMINISTRACION.ENVIAR_CORREO('urielfme@itesm.mx');
Error report:
ORA-29279: SMTP permanent error: 503 DATA command outside of MAIL transaction
ORA-06512: at "SIIP.ADMINISTRACION", line 1566
ORA-06512: at line 1
29279. 00000 -  "SMTP permanent error: %s"
*Cause:    A SMTP permanent error occurred.
*Action:   Correct the error and retry the SMTP operation.


Ayudenme..

De ante mano Gracias.

::Uriel::