Email Configuration using PL/SQL

Question

Dear All,
I am trying to send a mail using pl/sql package, but mail is not going, its throwing the below error.
The configured ip is 192.168.5.44 . The same i am calling in the procedure
ORA-29278: SMTP transient error: 421 Service not available
ORA-06512: at "SYS.UTL_SMTP", line 20
ORA-06512: at "SYS.UTL_SMTP", line 96
ORA-06512: at "SYS.UTL_SMTP", line 138
ORA-06512: at "APPS.XX_SEND_MAIL", line 21
ORA-06512: at line 2
If anyone provide a solution it will be much helpful.
Coding used:
CREATE OR REPLACE PROCEDURE APPS.xx_send_mail (
p_to IN VARCHAR2,
p_from IN VARCHAR2,
p_subject IN VARCHAR2,
p_text_msg IN VARCHAR2 DEFAULT NULL,
p_html_msg IN VARCHAR2 DEFAULT NULL,
p_smtp_host IN VARCHAR2,
p_smtp_port IN NUMBER DEFAULT 25
AS
l_mail_conn UTL_SMTP.connection;
l_boundary VARCHAR2 (50) := '----=*#abc1234321cba#*=';
BEGIN
utl_tcp.close_all_connections;
dbms_output.put_line('first begin ');
l_mail_conn := UTL_SMTP.open_connection (p_smtp_host, p_smtp_port);
dbms_output.put_line('before smtp host ');
UTL_SMTP.helo (l_mail_conn, p_smtp_host);
dbms_output.put_line('before from ');
UTL_SMTP.mail (l_mail_conn, p_from);
dbms_output.put_line('before second begin ');
begin
dbms_output.put_line('before to mail address ');
UTL_SMTP.rcpt (l_mail_conn, p_to);
dbms_output.put_line('after to mail address ');
exception
when others then
dbms_output.put_line('sqlcode '||sqlcode||' '||' sqlerrm '||sqlerrm);
end;
dbms_output.put_line('after exception');
UTL_SMTP.open_data (l_mail_conn);
UTL_SMTP.write_data (l_mail_conn,
'Date: '
|| TO_CHAR (SYSDATE, 'DD-MON-YYYY HH24:MI:SS')
|| UTL_TCP.crlf
UTL_SMTP.write_data (l_mail_conn, 'To: ' || p_to || UTL_TCP.crlf);
--UTL_SMTP.write_data (l_mail_conn, 'Cc: ' || p_cc || UTL_TCP.crlf);
UTL_SMTP.write_data (l_mail_conn, 'From: ' || p_from || UTL_TCP.crlf);
UTL_SMTP.write_data (l_mail_conn, 'Subject: ' || p_subject || UTL_TCP.crlf);
UTL_SMTP.write_data (l_mail_conn, 'Reply-To: ' || p_from || UTL_TCP.crlf);
UTL_SMTP.write_data (l_mail_conn, 'MIME-Version: 1.0' || UTL_TCP.crlf);
UTL_SMTP.write_data (l_mail_conn,
'Content-Type: multipart/alternative; boundary="'
|| l_boundary
|| '"'
|| UTL_TCP.crlf
|| UTL_TCP.crlf
IF p_text_msg IS NOT NULL
THEN
UTL_SMTP.write_data (l_mail_conn, '--' || l_boundary || UTL_TCP.crlf);
UTL_SMTP.write_data
(l_mail_conn,
'Content-Type: text/plain; charset="iso-8859-1"'
|| UTL_TCP.crlf
|| UTL_TCP.crlf
UTL_SMTP.write_data (l_mail_conn, p_text_msg);
UTL_SMTP.write_data (l_mail_conn, UTL_TCP.crlf || UTL_TCP.crlf);
END IF;
IF p_html_msg IS NOT NULL
THEN
UTL_SMTP.write_data (l_mail_conn, '--' || l_boundary || UTL_TCP.crlf);
UTL_SMTP.write_data (l_mail_conn,
'Content-Type: text/html; charset="iso-8859-1"'
|| UTL_TCP.crlf
|| UTL_TCP.crlf
UTL_SMTP.write_data (l_mail_conn, p_html_msg);
UTL_SMTP.write_data (l_mail_conn, UTL_TCP.crlf || UTL_TCP.crlf);
END IF;
UTL_SMTP.write_data (l_mail_conn,
'--' || l_boundary || '--' || UTL_TCP.crlf
UTL_SMTP.close_data (l_mail_conn);
UTL_SMTP.quit (l_mail_conn);
END;

Answer 1

hi
am also facing the same problem.
procedure is
CREATE OR REPLACE PROCEDURE send_mail (p_to        IN VARCHAR2,
                                       p_from      IN VARCHAR2,
                                       p_message   IN VARCHAR2)
AS
  l_mail_conn   UTL_SMTP.connection;
  l_reply utl_smtp.reply;
  l_smtp_host VARCHAR2(50) := 'smtp.gmail.com:25';
  l_smtp_port NUMBER := 25; 
BEGIN
  l_mail_conn := UTL_SMTP.open_connection(l_smtp_host, l_smtp_port);
  utl_smtp.EHLO(l_mail_conn, l_smtp_host);
  utl_smtp.command(l_mail_conn, 'AUTH LOGIN');
  utl_smtp.command(l_mail_conn, utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw('[email protected]'))));
  utl_smtp.command(l_mail_conn, utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw('mypwd'))));
  l_reply :=UTL_SMTP.mail(l_mail_conn, p_from);
  dbms_output.put_line( l_reply.code || ' ' || l_reply.text );
  UTL_SMTP.rcpt(l_mail_conn, p_to);
  UTL_SMTP.write_data(l_mail_conn, p_message || UTL_TCP.crlf || UTL_TCP.crlf);
  UTL_SMTP.quit(l_mail_conn);
END;
/am calling as follows
declare
conn        utl_smtp.connection;
smtp_domain VARCHAR2(256) := null;
BEGIN
utl_smtp.command(conn,'STARTTLS');
utl_smtp.helo(conn, smtp_domain);
   send_mail(p_to        => '[email protected]',
             p_from      => '[email protected]',
             p_message   => 'can i get message.');
END;
/and getting the error
ORA-29278: SMTP transient error: 421 Service not available
ORA-06512: at "SYS.UTL_SMTP", line 21
ORA-06512: at "SYS.UTL_SMTP", line 97
ORA-06512: at "SYS.UTL_SMTP", line 159
ORA-06512: at line 5i have checked in control panel that IIS is installed and SMTP is also setup.
i am able to ping SMTP HOST thro' TELNET
and i have changed the SMTP_OUT_SERVER parameter like
ALTER SYSTEM SET SMTP_OUT_SERVER= 'smtp.gmail.com:25' scope = botham not getting any clue. is it because of using GMAIL server?
oracle version 10g and Windows is XP - SP3
thank you for any help
Regards
Karthik