| Sending email from PL/SQL [message #374137] |
Mon, 28 May 2001 00:08 |
Vidya
Messages: 12
Registered: May 2001
|
Junior Member |
|
|
Hi,
I have a procedure listed below to send email from PL/SQL.
CREATE OR REPLACE PROCEDURE SEND_MAIL (
msg_from varchar2 := 'oracle',
msg_to varchar2,
msg_subject varchar2 := 'E-Mail message from your database',
msg_text varchar2 := '' )
IS
c utl_tcp.connection;
rc integer;
BEGIN
c := utl_tcp.open_connection('10.200.1.88', 21); -- open the SMTP port
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'HELO localhost');
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'MAIL FROM: '||msg_from);
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'RCPT TO: '||msg_to);
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'DATA'); -- Start message body
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'Subject: '||msg_subject);
rc := utl_tcp.write_line(c, '');
rc := utl_tcp.write_line(c, msg_text);
rc := utl_tcp.write_line(c, '.'); -- End of message body
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'QUIT');
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
utl_tcp.close_connection(c); -- Close the connection
EXCEPTION
when others then
dbms_output.put_line(SQLERRM);
END;
But when executed, this gives a error message :
'ORA-29540: class oracle/plsql/net/TCPConnection does not exist'.
The Oracle and Jserver version we use are:
Oracle8i Release 8.1.6.0.0
JServer Release 8.1.6.0.0
Could any one help me out in solving this?
Thanks,
Vidya
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
