"Pavel Vetesnik" <Pavel.Vet_at_volny.cz> wrote in message
news:bbhk60$m7g$1_at_ns.felk.cvut.cz...
> Hello,
>
> I tried to send emails using utl_smtp package (on Oracle 8i), but I was
not
> succesfull.
Pavel,
I've had trouble getting this to work myself.
I didn't see anything wrong with your code, however I've taken values from
your code and put them into a test package that definitely works on my
server (Oracle 8.1.7.4). Try running my code with dbms_output switched on
and check the responses you get. It's possible your mailserver just doesn't
like the values your sending it and the replies it gives could point you in
the right direction.
Paul Dixon
CREATE OR REPLACE PACKAGE BODY pkg_email AS
PROCEDURE send (p_sender_name IN VARCHAR2,
p_sender_smtp IN VARCHAR2,
p_domain IN VARCHAR2,
p_recipient_name IN VARCHAR2,
p_recipient_smtp IN VARCHAR2,
p_message IN VARCHAR2,
p_subject IN VARCHAR2 )
IS
mail_conn utl_smtp.connection;
reply utl_smtp.reply;
BEGIN
reply := utl_smtp.open_connection ('jupiter.stk.cz', 25, mail_conn);
DBMS_OUTPUT.PUT_LINE('mail connection IS '||
mail_conn.host||
' port '||
TO_CHAR(mail_conn.port)||
' message IS : '||
reply.text);
reply := utl_smtp.helo (mail_conn, p_domain);
DBMS_OUTPUT.PUT_LINE('domain IS '||
p_domain||
' message IS : '||
reply.text);
reply := utl_smtp.mail (mail_conn, p_sender_smtp);
DBMS_OUTPUT.PUT_LINE('sender IS '||
p_sender_smtp||
' message IS : '||
reply.text);
reply := utl_smtp.rcpt (mail_conn, p_recipient_smtp);
DBMS_OUTPUT.PUT_LINE('recipient IS '||
p_recipient_smtp||
' message IS : '||
reply.text);
reply := utl_smtp.open_data(mail_conn);
DBMS_OUTPUT.PUT_LINE('open_data response message IS : '||
reply.text);
utl_smtp.write_data(mail_conn,'From: "'||p_sender_name||'"
<'||p_sender_smtp||'>'||utl_tcp.crlf);
utl_smtp.write_data(mail_conn,'To: "'||p_recipient_name||'"
<'||p_recipient_smtp||'>'||utl_tcp.crlf);
utl_smtp.write_data(mail_conn,'Subject: '||p_subject||utl_tcp.crlf);
utl_smtp.write_data(mail_conn,utl_tcp.crlf||p_message);
reply := utl_smtp.close_data (mail_conn);
DBMS_OUTPUT.PUT_LINE('response TO sent message IS : '||
reply.text);
utl_smtp.quit (mail_conn);
END send;
PROCEDURE mail_event IS
BEGIN
send('Pavel Vetesnik',
'pavel.vet_at_volny.cz',
'jupiter.stk.cz',
'Pavel Vetesnik',
'P.Vetesnik_at_stk.cz',
'This is just for test.....',
'Testing');
END mail_event;
END pkg_email;
Received on Tue Jun 03 2003 - 07:09:03 CDT
