думаю это поможет:
procedure RETRMail(
host_ in varchar2 default '',
user_ in varchar2 default '',
pass_ in varchar2 default ''
) is
type MailRec is record(
from_ varchar2(500),
subj_ varchar2(500),
body_ varchar2(32767),
leng_ integer);
type MailTableType is table of MailRec index by binary_integer;

c utl_tcp.connection;
i smallint := 0;
nn smallint := 0;
z varchar2(32767) := 'none';
MailTable MailTableType;

begin
c := utl_tcp.open_connection(host_, 110);
if substr(utl_tcp.get_line(c, true),1,3) = '+OK' then
i := utl_tcp.write_line(c, 'noop');
if substr(utl_tcp.get_line(c, true),1,3) = '+OK' then
i := utl_tcp.write_line(c, 'user '||user_);
if substr(utl_tcp.get_line(c, true),1,3) = '+OK' then
i := utl_tcp.write_line(c, 'pass '||pass_);
if substr(utl_tcp.get_line(c, true),1,3) = '+OK' then
i := utl_tcp.write_line(c, 'list');
if substr(utl_tcp.get_line(c,true),1,3) = '+OK' then
loop
z := utl_tcp.get_line(c,true);
exit when substr(z,1,1) = '.';
nn := to_number(substr(z,1,instr(z,' ',1)));
MailTable(nn).leng_ := to_number(substr(z,instr(z,' ')+1));
end loop;
------------------------------------
for nn in 1..MailTable.count loop
i := utl_tcp.write_line(c, 'retr '||nn);
i:=0;
if substr(utl_tcp.get_line(c, true),1,3) = '+OK' then
loop
z := utl_tcp.get_line(c);
exit when nlssort(z) = '2E0D0A00';
if instrb(z,'From: ')>0 then
MailTable(nn).from_ := replace(replace(replace(z,'From: '),chr(13)),chr(10));
end if;
if instrb(z,'Subject: ')>0 then
MailTable(nn).subj_ := replace(replace(replace(z,'Subject: '),chr(13)),chr(10));
end if;
if i=1 then
MailTable(nn).body_ := MailTable(nn).body_ || z;
end if;
if (nlssort(z) = '0D0A00') then
i:=i+1;
end if;
end loop;
z := '';
end if;
end loop;
------------------------------------
end if;
end if;
end if;
end if;
end if;
------------------------------------
for i in 1..MailTable.count loop
dbms_output.put_line('From: '||MailTable(i).from_);
dbms_output.put_line('Subject: '||MailTable(i).subj_);
dbms_output.put_line('Body: '||MailTable(i).body_);
dbms_output.put_line('------------------------------------------------------');
end loop;
dbms_output.put_line('ALL: '||MailTable.count);
------------------------------------
i := utl_tcp.write_line(c, 'quit');
utl_tcp.close_connection(c);
exception
when utl_tcp.end_of_input then
utl_tcp.close_connection(c);
end;