Send email from the server

Question

I need to send email from the database.
Two ways that I am familiar with -
1. using VB/ODBC controls;
2. dbms_pipe
Anyone knows a more 'direct' solution?
Regards
Anatoliy Smirnov
null

Answer 1

by the way how can u send attchments with mails from database.
chetan
try this...(thanks for the subject line help)
the first message line will be read by non MIME compliant readers, the second message line with be in the body of the note, the nest 2 (third and fourth) will come in as attachments ( text ). Change the Content-type for things like word docs or other 8bit docs (Content-type: application/msword) and write_raw_data for the 8Bit parts
CREATE OR REPLACE PROCEDURE send_mail_test (sender IN VARCHAR2,
recipient IN VARCHAR2, subject IN VARCHAR2,
message IN VARCHAR2)
IS
mailhost VARCHAR2(30) := 'smtp.naxs.net';
mail_conn utl_smtp.connection;
cv_cCRLF VARCHAR2(10) := UTL_TCP.CRLF;
lv_message varchar2(4000);
BEGIN
mail_conn := utl_smtp.open_connection(mailhost, 25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, sender);
utl_smtp.rcpt(mail_conn, recipient);
utl_smtp.open_data(mail_conn);
utl_smtp.write_data(mail_conn,'From: ' | | sender | | cv_cCRLF);
utl_smtp.write_data(mail_conn,'To: ' | | recipient | | cv_cCRLF);
utl_smtp.write_data(mail_conn,'Subject:' | | subject | | cv_cCRLF);
utl_smtp.write_data(mail_conn,'MIME-Version: 1.0' | | cv_cCRLF);
utl_smtp.write_data(mail_conn,'Content-Type: multipart/mixed; ');
utl_smtp.write_data(mail_conn,'boundary="NextPart_000_01C002D3.EB460626"' | | cv_cCRLF);
utl_smtp.write_data(mail_conn, cv_cCRLF | | message| |' first mess part'| | cv_cCRLF);
utl_smtp.write_data(mail_conn,'--NextPart_000_01C002D3.EB460626' | | cv_cCRLF);
utl_smtp.write_data(mail_conn, cv_cCRLF | | message| | ' second mess part'| | cv_cCRLF);
utl_smtp.write_data(mail_conn,'--NextPart_000_01C002D3.EB460626' | | cv_cCRLF);
utl_smtp.write_data(mail_conn,'Content-Type: text/plain; charset=us-ascii'| | cv_cCRLF);
utl_smtp.write_data(mail_conn, cv_cCRLF | | message| | ' third mess part'| |cv_cCRLF);
utl_smtp.write_data(mail_conn,'--NextPart_000_01C002D3.EB460626' | | cv_cCRLF);
utl_smtp.write_data(mail_conn,'Content-Type: text/plain; charset=us-ascii'| | cv_cCRLF);
utl_smtp.write_data(mail_conn, cv_cCRLF | | message| | ' fourth mess part'| |cv_cCRLF);
utl_smtp.write_data(mail_conn,'--NextPart_000_01C002D3.EB460626--' | | cv_cCRLF);
utl_smtp.close_data(mail_conn);
-- utl_smtp.data(mail_conn, message);
utl_smtp.quit(mail_conn);
EXCEPTION
WHEN OTHERS
THEN
DECLARE
error_code NUMBER := SQLCODE;
error_msg VARCHAR2(2000) := SQLERRM;
error_info VARCHAR2(30);
BEGIN
DBMS_OUTPUT.PUT_LINE('We have an error: '| |error_code| |' '| |error_msg);
END;
END;
show errors;
null