Posts tagged Oracle

Email merupakan service yang sering kita gunakan, terkadang kita membutuhkan notifikasi email jika ada sesuatu yang berkaitan dengan kita, Nah sekarang kita mencoba mengirim Email dari PL/SQL berikut langkah-langkah yang perlu dilakukan.
1. Prasyarat
Pertama didatabase oracle kita harus sudah terinstall paket UTL_SMTP.paket ini mulai dikenalkan pada oracle versi 8.1.7, jika belum ada anda dapet menginstall dari source nya yang berada pada direktori {ORACLE_HOME}/rdbms/admin/utlsmtp.sql.
Anda harus mempunyai pengetahuan tentang protokol SMTP.

2. Membuat program PL/SQL untuk Konek ke SMTP
Berikut adalah contoh script PL/SQL untuk membangun koneksi ke server SMTP

CREATE OR REPLACE FUNCTION SMTP_CONNECT (
   pIn_smtp_host IN VARCHAR2,
   pIn_smtp_port IN INTEGER,
   pIn_domain     IN VARCHAR2,
   pIn_username  IN VARCHAR2,
   pIn_password  IN VARCHAR2)
RETURN UTL_SMTP.CONNECTION
AS
v_conn UTL_SMTP.CONNECTION;
BEGIN
   v_conn := UTL_SMTP.OPEN_CONNECTION (pIn_smtp_host,pIn_smtp_port);
   UTL_SMTP.HELO(v_conn,pIn_domain);
   UTL_SMTP.command (v_conn, 'AUTH LOGIN');
   UTL_SMTP.command (v_conn, pIn_username);
   UTL_SMTP.command (v_conn, pIn_password);

RETURN v_conn

EXCEPTION WHEN OTHERS
RETURN NULL;

END SMTP_CONNECT;

pIn_username dan pIn_password merupakan account email dan password yang sudah di base64 encoding, untuk lebih mudahnya anda bisa melakukan encode di level oraclenya. Fungsi untuk membangun koneksi ke smtp sudah berhasil kita buat selanjutnya kita buat fungsi untuk memgirim pesan.

3. Membuat fungsi untuk send Message

Mengirim pesan di smtp cukup simple berikut sample PL/SQL untuk send message

CREATE OR REPLACE PROCEDURE SMTP_SEND (
   pIn_conn      IN  OUT NOCOPY  UTL_SMTP.CONNECTION,
   pIn_sender    IN VARCHAR2,
   pIn_recipient IN VARCHAR2,
   pIn_subject   IN VARCHAR2,
   pIn_message IN VARCHAR2)
AS
BEGIN
   UTL_SMTP.MAIL (pIn_conn,pIn_sender);
   UTL_SMTP.RCPT(pIn_conn,pIn_recipient);
   UTL_SMTP.OPEN_DATA (pIn_conn);
   UTL_SMTP.WRITE_DATA (pIn_conn, 'From: '||pIn_sender  || UTL_TCP.CRLF);
   UTL_SMTP.WRITE_DATA (pIn_conn, 'To: '||pIn_recipient  || UTL_TCP.CRLF);
   UTL_SMTP.WRITE_DATA (pIn_conn, 'Subject: '||pIn_subject  || UTL_TCP.CRLF);

      -- Set priority:
      --   High      Normal       Low
      --   1     2     3     4     5
   UTL_SMTP.WRITE_DATA (pIn_conn, 'X-Priority: 1'  || UTL_TCP.CRLF);
   UTL_SMTP.WRITE_DATA (pIn_conn, pIn_message);
END SMTP_SEND;

prosedur untuk mengirim data sudah kita lakukan, berikutnya adlah fungsi untuk close connection

4. CLosed Connection

sekarang kita buat fungsi untuk menutup koneksi SMTP

CREATE OR REPLACE PROCEDURE SMTP_CLOSED (
  pIn_conn    IN OUT NOCOPY UTL_SMTP.CONNECTION
)
AS
BEGIN
  UTL_SMTP.CLOSE_DATA(pIn_conn);
  UTL_SMTP.QUIT (pIn_conn);
END SMTP_CLOSED;

jika semua fungsi dan prosedur diatas sudah selesai dicompile saatnya kita coba buat script untuk menguji mengirim email

DECLARE
v_conn UTL_SMTP.CONNECTION;
BEGIN
  v_conn := SMTP_CONECT(
   pIn_smtp_host => 'smtp.nailuvar.com',
   pIn_smtp_port => 25,
   pIn_domain     => 'nailuvar.com',
   pIn_username  => 'xxxxxxx=',
   pIn_password  => 'GDAJAKDY='); 

-- silahkan diganti dengan data di server anda
  SMTP_SEND (
    pIn_conn       => v_conn,
    pIn_sender    => 'massri@nailuvar.com',
    pIn_recipient => 'massri@gmail.com',
    pIn_subject  => 'Test Send Mail',
    pIn_message => 'Ini pesannya silahkan di baca ... '
  );

   SMTP_CLOSED (pIn_conn ==> v_conn);

END;

selesai selamat mencoba ….