Information Technology Inspiration: Membuat Email pada Oracle

Pada paket UTL_SMTP mulai diperkenalkan pada versi Oracle 8i sehingga dapat digunakan untuk mengirim email dari PL/SQL. Paket UTL_SMTP membutuhkan JServer yang dapat diinstal dengan menjalankan skrip berikut sebagai SYS.

SQL> @$ORACLE_HOME/javavm/install/initjvm.sql

SQL> @$ORACLE_HOME/rdbms/admin/initplsj.sql

Contoh membuat email dengan menyertaikan subject dengan Oracle :

CREATE OR REPLACE PROCEDURE send_mail (p_to IN VARCHAR2,

p_from IN VARCHAR2,
p_subject IN VARCHAR2,
p_message IN VARCHAR2,
p_smtp_host IN VARCHAR2,
p_smtp_port IN NUMBER DEFAULT 25)

l_mail_conn UTL_SMTP.connection;

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_TCP.crlf);

UTL_SMTP.write_data(l_mail_conn, p_message || UTL_TCP.crlf || UTL_TCP.crlf);

UTL_SMTP.close_data(l_mail_conn);

UTL_SMTP.quit(l_mail_conn);

END;

cara memanggil :

BEGIN

send_mail(p_to => 'me@ptxzy.com',

p_from => 'admin@ptxzy.com',

p_subject => 'Judul Email',

p_message => 'Isi Email.',

p_smtp_host => 'smtp.ptxzy.com');

END;

Membuat Email pada Oracle - II [ Dengan Subject ]