Runtime error ora-12703 when running utl_mail

Question

hello,
I call a procedure through push button to use UTL_MAIL.send(..) and I got error ora-12703.
There is no error during compilation.
For your info, I manage to execute the same code on stored procedure using TOAD and I received the email sent using TOAD and telnet from my local.
For info:
Forms developer version:
Forms [32 Bit] Version 10.1.2.0.2 (Production)
Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - 64bit Production
With the Partitioning, OLAP and Data Mining options
procedure:
PROCEDURE test_email IS
BEGIN
UTL_MAIL.send (
sender => '[email protected]',
recipients => '[email protected]',
cc => '[email protected]',
bcc => '[email protected]',
subject => 'Test',
MESSAGE => 'Hello World',
mime_type => 'text; charset=us-ascii',
priority => 3
END;
Could anyone please help me on this.
Regards,
Dayang

Answer 1

Hi All,
I tried another function that use utl_smtp to send email.
Again I could recieve email when I execute the function in TOAD but got error ora-12703 when I ran using forms.
When I ran the form, only "debug 1st" apear, then after that it returned error ora-12703.
Function:
FUNCTION SEND_MAIL
(pIssuer IN VARCHAR2,
pReceiver IN VARCHAR2,
pSender IN VARCHAR2,
pSubject IN VARCHAR2,
pMessage IN VARCHAR2) RETURN VARCHAR2 IS
c utl_smtp.connection;
respuesta utl_smtp.reply;
pServer VARCHAR2(50) := '10.0.3.79';
CRLF CHAR(2) := CHR(13) || CHR(10);
BEGIN
message('debug 1st');
-- Abre la conexión al Server de correo
c := utl_smtp.open_connection(pServer);
message('debug2nd');
respuesta := utl_smtp.helo(c, pServer);
-- Inicia el Issuer del correo.
respuesta := utl_smtp.mail(c, pSender);
-- Inicia el Receiver
respuesta := utl_smtp.rcpt(c, pReceiver);
respuesta := utl_smtp.open_data(c);
-- Escribe la cabecera del e-mail
utl_smtp.write_data(c, 'From: ' || pIssuer || CRLF);
utl_smtp.write_data(c, 'To: ' || pReceiver || CRLF);
-- Escribe el Subject
utl_smtp.write_data(c, 'Subject: ' || pSubject || CRLF);
-- Escribe el texto del Message.
utl_smtp.write_data(c, CRLF || pMessage);
utl_smtp.write_data(c, CRLF || '.');
respuesta := utl_smtp.close_data(c);
-- Cierra la conexión
respuesta := utl_smtp.quit(c);
RETURN '0';
EXCEPTION
WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
utl_smtp.quit(c);
RETURN sqlerrm;
--raise_application_error(-20000,
-- 'El envío del email ha fallado devolviendo el siguiente error: ' || sqlerrm);
END;
Regards,
Dayang