este es el codigo de usado
CREATE OR REPLACE PROCEDURE MAIL AS
mailhost VARCHAR2(30); mail_conn utl_smtp.connection;
sender VARCHAR2(60); recipient VARCHAR2(30); recipient2 VARCHAR2(30);
subject VARCHAR2(100); message VARCHAR2(130); xbody RAW(32767);
BEGIN
mailhost := 'mailserver.midominio.cl'; sender := '
[email protected]'; recipient := '
[email protected]';
message := 'Texto de prueba para Enviar E-Mail por ORACLE';
subject := 'Envio de E-Mail por ORACLE';
mail_conn := utl_smtp.open_connection(mailhost,25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, sender);
utl_smtp.rcpt(mail_conn, recipient);
utl_smtp.open_data(mail_conn);
utl_smtp.write_data(mail_conn, utl_tcp.CRLF||'From : ' ||sender|| '<'||sender||'>');
utl_smtp.write_data(mail_conn, utl_tcp.CRLF||'To : ' ||recipient|| '<'||recipient||'>');
utl_smtp.write_data(mail_conn, utl_tcp.CRLF||'Subject : Prueba --> '||subject);
utl_smtp.write_data(mail_conn, utl_tcp.CRLF);
xbody := utl_raw.cast_to_raw(message);
utl_smtp.write_raw_data(mail_conn,xbody);
utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);
Exception
When utl_smtp.transient_error OR utl_smtp.permanent_error Then
utl_smtp.quit(mail_conn);
raise_application_error(-20000,' Fallo en Envio de E-Mail,Error '||sqlerrm);
END;