Using PL/SQL to send alert email error

Question

Hi All ,
This is from one of my earlier posting :
DECLARE
l_mailhost VARCHAR2(64) := 'mail.mycompany.com';
l_from VARCHAR2(64) := '[email protected]';
l_to VARCHAR2(64) := '[email protected]';
l_mail_conn UTL_SMTP.connection;
BEGIN
l_mail_conn := UTL_SMTP.open_connection(l_mailhost, 25);
UTL_SMTP.helo(l_mail_conn, l_mailhost);
UTL_SMTP.mail(l_mail_conn, l_from);
UTL_SMTP.rcpt(l_mail_conn, l_to);
UTL_SMTP.data(l_mail_conn, 'Single string message.' || Chr(13));
UTL_SMTP.quit(l_mail_conn);
END;
and i got this error
ORA-29278: SMTP transient error: 421 Service not available
ORA-06512: at "SYS.UTL_SMTP", line 17
ORA-06512: at "SYS.UTL_SMTP", line 96
ORA-06512: at "SYS.UTL_SMTP", line 138
ORA-06512: at line 7
how can i find out exactly what the error means
i think it requires port# 25 to be opened which currently is being blocked by my Mcafee s/w but besides that ??
and also is it possible for me to change the SMTP port to another besides port# 25 ?
apprecaite ur advise
tks & rdgs
View program sources of error stack?

Answer 1

try this , you need to open port 25 and make sure that the machine from where you want to send emails has been allowed to send emails from ur mail server
Procedure PROC_SEND_EMAIL (
i_sender IN VARCHAR2,
i_recipient IN VARCHAR2,
i_message IN VARCHAR2
IS
v_mailhost VARCHAR2(50) :='hostname';
v_mail_conn UTL_SMTP.CONNECTION;
v_message VARCHAR2(10000);
BEGIN
v_mail_conn := UTL_SMTP.OPEN_CONNECTION( v_mailhost, 25 );
UTL_SMTP.HELO( v_mail_conn, '[email protected]' );
UTL_SMTP.MAIL( v_mail_conn, '<'||i_sender||'>' );
UTL_SMTP.RCPT( v_mail_conn, '<'||i_recipient||'>');
v_message := i_message ;
UTL_SMTP.OPEN_DATA( v_mail_conn );
UTL_SMTP.WRITE_DATA(v_mail_conn, 'To: "' || i_recipient || '" <' || i_recipient || '>' || utl_tcp.crlf);
UTL_SMTP.WRITE_DATA(v_mail_conn, 'CC: "' || '[email protected]' || '" <' || i_recipient || '>' || utl_tcp.crlf);
UTL_SMTP.WRITE_DATA(v_mail_conn, 'Subject: ' || '***** Mail From host*****' || utl_tcp.crlf);
UTL_SMTP.WRITE_DATA(v_mail_conn, utl_tcp.crlf);
UTL_SMTP.WRITE_DATA( v_mail_conn,utl_tcp.CRLF ||Chr(13)||v_message||Chr(13)|| utl_tcp.CRLF || '****This e-mail was generated By the application do not reply****' );
UTL_SMTP.CLOSE_DATA( v_mail_conn );
UTL_SMTP.QUIT( v_mail_conn );
EXCEPTION
WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
utl_smtp.quit(v_mail_conn);
raise_application_error(-20005,
'Failed to send mail due to the following error: ' || sqlerrm);
WHEN OTHERS THEN
raise_application_error(-20001, 'The following error has occured: ' || sqlerrm);
END PROC_SEND_EMAIL ;