Getting the error "Anonymous Receive Connector" while calling stored proc

Question

I am getting the error "220 012-BR1MMR1-005 Anonymous Receive Connector" while calling a store procedure from anonymous block.
I am using SMTP host which is working for other cases.
Please suggest!!
create or replace
PROCEDURE SOA_TIMESTAMP(errbuf OUT VARCHAR2, retcode OUT VARCHAR2) IS
rc integer;
crlf VARCHAR2(2) := CHR(13) || CHR(10);
mesg VARCHAR2(1000);
c utl_tcp.connection;
L_FROM_DATE DATE;
L_TO_DATE DATE;
msg_from VARCHAR2(100) := '[email protected]';
to_addresses VARCHAR2(1000);
cc_addresses VARCHAR2(1000);
email_addresses VARCHAR2(2000);
msg_subject VARCHAR2(200) := 'E-mail Alert: ';
msg_text1 VARCHAR2(15) := 'Dear Sir,';
msg_text2 VARCHAR2(500) := 'Please find the attached file,';
msg_text3 VARCHAR2(25) := 'Division';
msg_text4 VARCHAR2(25) := 'For the period : ';
v_mail_to VARCHAR2(1000);
lv_gcn varchar2(1000);
next_column number;
recipient_email_length number;
single_recipient_addr varchar2(100);
v_is_there_any_attachment CHAR(1):='N'; --New var.
cursor cur_select is
SELECT (DELIVERY_NUMBER || ',' ||
RECD_IN_SOA || ',' ||
SENT_TO_OTM || ',' ||
OTM_RESP_RECD || ',' ||
SENT_TO_MENLO) gcn
from irsoa.otm_menlo_report;
cursor cur_to_email is
SELECT email_address
FROM alert_users_ID
WHERE MAIL_TYPE = 'To';
cursor cur_cc_email is
SELECT email_address
FROM alert_users_ID
WHERE MAIL_TYPE = 'Cc';
BEGIN
retcode := 'one';
for c_to in cur_to_email loop
to_addresses := to_addresses || ',' || c_to.email_address;
end loop;
to_addresses := ltrim(to_addresses, ',');
for c_cc in cur_cc_email loop
cc_addresses := cc_addresses || ',' || c_cc.email_address;
end loop;
retcode:= retcode||'two';
cc_addresses := ltrim(cc_addresses, ',');
email_addresses := to_addresses || ',' || cc_addresses;
recipient_email_length := length(email_addresses);
email_addresses := email_addresses || ','; -- Add comma for the last asddress
next_column := 1;
if instr(email_addresses, ',') = 0 then
-- Single E-mail address
single_recipient_addr := email_addresses;
recipient_email_length := 1;
end if;
retcode := retcode||'three';
c := utl_tcp.open_connection(remote_host => '127.0.0.1'',
remote_port => 25,
tx_timeout => null);
retcode := retcode||'four';
rc := utl_tcp.write_line(c, 'HELO '127.0.0.1');
rc := utl_tcp.write_line(c, 'HELO '127.0.0.1');
rc := utl_tcp.write_line(c, 'MAIL FROM: ' || msg_from);
retcode := retcode||'five';
while next_column <= recipient_email_length loop
-- Process Multiple E-mail addresses in the loop OR single E-mail address once.
single_recipient_addr := substr(email_addresses,
next_column,
instr(email_addresses, ',', next_column) -
next_column);
next_column := instr(email_addresses, ',', next_column) + 1;
--rc := utl_tcp.write_line(c, 'MAIL FROM: '||msg_from);
rc := utl_tcp.write_line(c, 'RCPT TO: ' || single_recipient_addr);
end loop;
retcode := retcode||'six';
rc := utl_tcp.write_line(c, 'DATA');
rc := utl_tcp.write_line(c,
'Date: ' ||
TO_CHAR(SYSDATE, 'dd Mon yy hh24:mi:ss'));
rc := utl_tcp.write_line(c,
'From: ' || msg_from || ' <' || msg_from || '>');
rc := utl_tcp.write_line(c, 'MIME-Version: 1.0');
rc := utl_tcp.write_line(c, 'To: ' || to_addresses);
rc := utl_tcp.write_line(c, 'Cc: ' || cc_addresses);
rc := utl_tcp.write_line(c, 'Subject: ' || msg_subject);
rc := utl_tcp.write_line(c, 'Content-Type: multipart/mixed;');
rc := utl_tcp.write_line(c, ' boundary="-----SECBOUND"');
rc := utl_tcp.write_line(c, '');
rc := utl_tcp.write_line(c, '-------SECBOUND');
rc := utl_tcp.write_line(c, 'Content-Type: text/plain');
rc := utl_tcp.write_line(c, 'Content-Transfer-Encoding: 7bit');
rc := utl_tcp.write_line(c, '');
rc := utl_tcp.write_line(c, msg_text1);
rc := utl_tcp.write_line(c, ' ');
rc := utl_tcp.write_line(c, msg_text2);
rc := utl_tcp.write_line(c, ' ');
rc := utl_tcp.write_line(c, msg_text3);
rc := utl_tcp.write_line(c,
msg_text4 || to_char(l_from_date, 'MON-YY') ||
' to ' || to_char(l_to_date, 'MON-YY'));
rc := utl_tcp.write_line(c, '');
rc := utl_tcp.write_line(c, '-------SECBOUND');
rc := utl_tcp.write_line(c, 'Content-Type: text/plain;');
rc := utl_tcp.write_line(c, ' name="GCN_Details.csv"');
rc := utl_tcp.write_line(c, 'Content-Transfer_Encoding: 8bit');
rc := utl_tcp.write_line(c, 'Content-Disposition: attachment;'); --Indicates that this is an attachment.
rc := utl_tcp.write_line(c, ' filename="GCN_Details.csv"');
rc := utl_tcp.write_line(c, '-------SECBOUND');
rc := utl_tcp.write_line(c, '');
retcode := retcode||'seven';
begin
-- WRITE COLUMN HEADERS
rc := utl_tcp.write_text(c, 'BRANCH' || ',' || 'ORDER NUMBER');
rc := utl_tcp.write_line(c, ' ');
for c1 in cur_select loop --You are starting to write the data
lv_gcn := c1.gcn;
rc := utl_tcp.write_text(c, lv_gcn);
rc := utl_tcp.write_line(c, ' ');
v_is_there_any_attachment:='Y';--Is there any data ?
end loop;
retcode :=retcode||'eight';
exception
when others then
dbms_output.put_line('error : ' || sqlerrm);
rc := utl_tcp.write_text(c, 'Data Error');
end;
If v_is_there_any_attachment ='Y' THEN
rc := utl_tcp.write_line(c, '');
rc := utl_tcp.write_line(c, '.');
rc := utl_tcp.write_line(c, '-------SECBOUND');
--end loop;
retcode := retcode||'nine';
END If;
rc := utl_tcp.write_line(c, 'QUIT');
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
utl_tcp.close_connection(c);
retcode := retcode||'ten';
EXCEPTION
when others then
utl_tcp.close_connection(c);
raise_application_error(-20000, SQLERRM);
retcode := 'Unable to send mail'||' with error '||sqlerrm;
END SOA_TIMESTAMP
Edited by: 991162 on Mar 1, 2013 2:03 AM
Edited by: 991162 on Mar 1, 2013 2:07 AM

Answer 1

The error is coming from your SMTP server, so asking in their forums would be the better idea