E-Mail的發送其實是發送一連串的字串,無論是圖片、程式、文字,連附件也是如此,
所以收到的Mail原始碼是一連串的字串,再依據特定關鍵字來區分是主旨、附件、本文
格式…等等。所以如果有任何的問題,可以參考Mail的原始碼
範例:
-----------------------------------------------------------------------
DECLARE
mail_conn utl_smtp.connection;
mailhost varchar(20);
mailport number(2);
mailsubject varchar(200);
mailbody varchar(500);
BEGIN
--Mail Server IP
mailhost := '192.168.56.1';
--Mail Server SMTP Port
mailport := 25;
--連接Mail Server
mail_conn := utl_smtp.open_connection(mailhost, mailport);
--送出helo指令,連接上Mail Server後必須先送上這一個指令
utl_smtp.helo(mail_conn,mailhost);
--送出指令 AUTH LOGIN ,告訴Mail Server 要使用認證
utl_smtp.command(mail_conn, 'AUTH LOGIN');
--送出指令,這裡是送出帳號,必須把字串轉成Base64編碼
utl_smtp.command(mail_conn,demo_base64.encode(utl_raw.cast_to_raw('cha')));
--送出指令,這裡是送出密碼,必須把字串轉成Base64編碼
utl_smtp.command(mail_conn,demo_base64.encode(utl_raw.cast_to_raw('11270810')));
--本文
mailbody :='tttttteeeeeesssssstttttt,我家門前有小河,後面有山坡。';
--於本文的前面加上時間、寄件人、收件人、主旨,此格式是依照Mail的原始碼來
--作變化,這樣才可以於Mail Client端顯示出寄件人、收件人、主旨、時間。
--CHR(13) || CHR (10) 為斷行字元
mailbody :='Date: ' || to_char(SYSDATE, 'dd Mon yy hh24:mi:ss') || chr(13) || chr(10) ||
'From: ' || 'cha@quintain.com.tw' || chr(13) || chr(10) ||
'subject: ' || 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaa' || chr(13) || chr(10) ||
'To: ' || 'cha@quintqain.com.tw' || chr(13) || chr(10) || mailbody;
--告訴Mail Server寄件者
utl_smtp.mail(mail_conn,'
--告訴Mail Server收件者
utl_smtp.rcpt(mail_conn,'
--告訴Mail Server準備傳送資料,開啟傳送的通道
utl_smtp.open_data(mail_conn);
--開始傳送編碼後的資料,如果資料太大,可以分開傳送,以免緩衝區不夠
utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw('Content-Type: text/plain;' || CHR(13) || CHR(10)) );
utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw('charset="big5" ' || CHR(13) || CHR(10)) );
utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw('Content-Transfer-Encoding: base64' || CHR(13) || CHR(10)));
utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw(mailbody));
--告訴Mail Server準備傳送資料,關閉傳送的通道
utl_smtp.close_data(mail_conn);
--與Mail Server離線
utl_smtp.quit(mail_conn);
END;