This is a HTML version of the test message.
'; send_mail(p_to p_from p_subject p_text_msg p_html_msg p_smtp_host END; /
=> => => => => =>
'[email protected]', '[email protected]', 'Test Message', 'This is a test message.', l_html, 'smtp.mycompany.com');
Emails with Attachments Sending an email with an attachment is similar to the previous example as the me ssage and the attachment must be separated by a boundary and identified by a nam e and mime type. BLOB Attachment Attaching a BLOB requires the binary data to be encoded and converted to text so it can be sent using SMTP. CREATE OR REPLACE PROCEDURE send_mail (p_to p_from p_subject p_text_msg
IN IN IN IN
VARCHAR2, VARCHAR2, VARCHAR2, VARCHAR2 DEFAULT NUL
L, p_attach_name IN VARCHAR2 DEFAULT NUL L, p_attach_mime IN VARCHAR2 DEFAULT NUL L, p_attach_blob IN BLOB DEFAULT NULL, p_smtp_host IN VARCHAR2, p_smtp_port IN NUMBER DEFAULT 25) AS l_mail_conn UTL_SMTP.connection; l_boundary VARCHAR2(50) := '----=*#abc1234321cba#*='; l_step PLS_INTEGER := 12000; -- make sure you set a multiple of 3 not higher than 24573 BEGIN l_mail_conn := UTL_SMTP.open_connection(p_smtp_host, p_smtp_port);
UTL_SMTP.helo(l_mail_conn, p_smtp_host); UTL_SMTP.mail(l_mail_conn, p_from); UTL_SMTP.rcpt(l_mail_conn, p_to); UTL_SMTP.open_data(l_mail_conn); UTL_SMTP.write_data(l_mail_conn, 'Date: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS') || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'To: ' || p_to || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'From: ' || p_from || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Subject: ' || p_subject || UTL_TCP.crlf) ; UTL_SMTP.write_data(l_mail_conn, 'Reply-To: ' || p_from || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'MIME-Version: 1.0' || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Content-Type: multipart/mixed; boundary= "' || l_boundary || '"' || UTL_TCP.crlf || UTL_TCP.crlf); IF p_text_msg IS NOT NULL THEN UTL_SMTP.write_data(l_mail_conn, '--' || l_boundary || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Content-Type: text/plain; charset="iso -8859-1"' || UTL_TCP.crlf || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, p_text_msg); UTL_SMTP.write_data(l_mail_conn, UTL_TCP.crlf || UTL_TCP.crlf); END IF; IF p_attach_name IS NOT NULL THEN UTL_SMTP.write_data(l_mail_conn, '--' || l_boundary || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Content-Type: ' || p_attach_mime || '; name="' || p_attach_name || '"' || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Content-Transfer-Encoding: base64' || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Content-Disposition: attachment; filen ame="' || p_attach_name || '"' || UTL_TCP.crlf || UTL_TCP.crlf); FOR i IN 0 .. TRUNC((DBMS_LOB.getlength(p_attach_blob) - 1 )/l_step) LOO P UTL_SMTP.write_data(l_mail_conn, UTL_RAW.cast_to_varchar2(UTL_ENCODE.b ase64_encode(DBMS_LOB.substr(p_attach_blob, l_step, i * l_step + 1)))); END LOOP; UTL_SMTP.write_data(l_mail_conn, UTL_TCP.crlf || UTL_TCP.crlf); END IF; UTL_SMTP.write_data(l_mail_conn, '--' || l_boundary || '--' || UTL_TCP.crl f); UTL_SMTP.close_data(l_mail_conn); UTL_SMTP.quit(l_mail_conn); END; / The code below shows how the procedure is called. DECLARE l_name l_blob BEGIN SELECT INTO
images.name%TYPE := 'site_logo.gif'; images.image%TYPE; image l_blob
FROM WHERE
images name = l_name;
send_mail(p_to p_from p_subject p_text_msg p_attach_name p_attach_mime p_attach_blob p_smtp_host END; /
=> => => => => => => =>
'[email protected]', '[email protected]', 'Test Message', 'This is a test message.', 'site_logo.gif', 'image/gif', l_blob, 'smtp.mycompany.com');
CLOB Attachment Attaching a CLOB is similar to attaching a BLOB, but we don't have to worry abou t encoding the data because it is already plain text. CREATE OR REPLACE PROCEDURE send_mail (p_to p_from p_subject p_text_msg
IN IN IN IN
VARCHAR2, VARCHAR2, VARCHAR2, VARCHAR2 DEFAULT NUL
L, p_attach_name IN VARCHAR2 DEFAULT NUL L, p_attach_mime IN VARCHAR2 DEFAULT NUL L, p_attach_clob IN CLOB DEFAULT NULL, p_smtp_host IN VARCHAR2, p_smtp_port IN NUMBER DEFAULT 25) AS l_mail_conn UTL_SMTP.connection; l_boundary VARCHAR2(50) := '----=*#abc1234321cba#*='; l_step PLS_INTEGER := 12000; -- make sure you set a multiple of 3 not higher than 24573 BEGIN l_mail_conn := UTL_SMTP.open_connection(p_smtp_host, p_smtp_port); UTL_SMTP.helo(l_mail_conn, p_smtp_host); UTL_SMTP.mail(l_mail_conn, p_from); UTL_SMTP.rcpt(l_mail_conn, p_to); UTL_SMTP.open_data(l_mail_conn); UTL_SMTP.write_data(l_mail_conn, 'Date: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS') || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'To: ' || p_to || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'From: ' || p_from || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Subject: ' || p_subject || UTL_TCP.crlf) ; UTL_SMTP.write_data(l_mail_conn, 'Reply-To: ' || p_from || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'MIME-Version: 1.0' || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Content-Type: multipart/mixed; boundary= "' || l_boundary || '"' || UTL_TCP.crlf || UTL_TCP.crlf); IF p_text_msg IS NOT NULL THEN UTL_SMTP.write_data(l_mail_conn, '--' || l_boundary || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Content-Type: text/plain; charset="iso -8859-1"' || UTL_TCP.crlf || UTL_TCP.crlf);
UTL_SMTP.write_data(l_mail_conn, p_text_msg); UTL_SMTP.write_data(l_mail_conn, UTL_TCP.crlf || UTL_TCP.crlf); END IF; IF p_attach_name IS NOT NULL THEN UTL_SMTP.write_data(l_mail_conn, '--' || l_boundary || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Content-Type: ' || p_attach_mime || '; name="' || p_attach_name || '"' || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Content-Disposition: attachment; filen ame="' || p_attach_name || '"' || UTL_TCP.crlf || UTL_TCP.crlf); FOR i IN 0 .. TRUNC((DBMS_LOB.getlength(p_attach_clob) - 1 )/l_step) LOO P UTL_SMTP.write_data(l_mail_conn, DBMS_LOB.substr(p_attach_clob, l_step , i * l_step + 1)); END LOOP; UTL_SMTP.write_data(l_mail_conn, UTL_TCP.crlf || UTL_TCP.crlf); END IF; UTL_SMTP.write_data(l_mail_conn, '--' || l_boundary || '--' || UTL_TCP.crl f); UTL_SMTP.close_data(l_mail_conn); UTL_SMTP.quit(l_mail_conn); END; / The code below shows how the procedure is called. DECLARE l_clob CLOB := 'This is BEGIN send_mail(p_to p_from p_subject p_text_msg p_attach_name p_attach_mime p_attach_clob p_smtp_host END; /
a very small CLOB!'; => => => => => => => =>
'[email protected]', '[email protected]', 'Test Message', 'This is a test message.', 'test.txt', 'text/plain', l_clob, 'smtp.mycompany.com');
Miscellaneous For emails with multiple recipients, simply call the RCPT procedure once for eac h separate email address. The UTL_SMTP package requires Jserver which can be installed by running the foll owing scripts as SYS. SQL> @$ORACLE_HOME/javavm/install/initjvm.sql SQL> @$ORACLE_HOME/rdbms/admin/initplsj.sql If you are attempting to use this method from Oracle 11g, you must remember to c onfigure fine grained access to network services for the mail server. For more information see:
UTL_MAIL in Oracle 10g Fine-Grained Access to Network Services in Oracle Database 11g Release 1 HTML Threading: Conventions for use of HTML in email UTL_SMTP Hope this helps. Regards Tim... Back to the Top. 8 comments, read/add them... 10 Home | Articles | Scripts | Forums | Blog | Certification | Misc | Search | Abou t Copyright & Disclaimer HTML CSS