ORACLE 發送郵件（全）

    因公司規定用繁體字 ，所以下麵的中文都是繁體的

 

CREATE OR REPLACE PROCEDURE send_mail (p_From IN VARCHAR2
,p_To IN VARCHAR2
,p_Subject IN VARCHAR2
,p_Body IN VARCHAR2
,p_Cc IN VARCHAR2 := NULL
,p_Bcc IN VARCHAR2 := NULL
,p_ContentType IN VARCHAR2 := 'text/plain;charset=big5'
,p_MailIp IN VARCHAR2 := '10.98.0.211'         --'10.98.0.28'

,p_Port IN NUMBER := 25) IS
v_Connection utl_smtp.connection;
v_Data RAW(32767);
v_email varchar2(100);
v_count number;
v_start number;
v_end   number;
v_date  varchar2(50);
BEGIN
v_date:=to_char(sysdate-1/3,'YYYY-mm-DD HH24:MI:SS','NLS_DATE_LANGUAGE=AMERICAN');
v_Connection := UTL_smtp.open_connection(p_MailIp,p_Port);
UTL_smtp.ehlo(v_Connection, p_MailIp);
UTL_smtp.mail(v_Connection, p_From);
IF (p_to IS NOT NULL) THEN
   v_count := 1;
   v_start := 0;
   v_end :=1;
   for c in 1..length(p_to) loop
    if c>v_start then
     v_end := instr(p_to,';',1,v_count);
       if v_end>0 then
            UTL_smtp.rcpt(v_Connection,substr(p_to,v_start+1,v_end-v_start-1));
       else
            UTL_smtp.rcpt(v_Connection,substr(p_to,v_start+1,length(p_to)-v_start));
          exit;
       end if;
       v_start := v_end;
       v_count := v_count +1;
     end if;
   end loop;
END IF;
IF (p_Cc IS NOT NULL) THEN
   v_count := 1;
   v_start := 0;
   v_end :=1;
   for c in 1..length(p_Cc) loop
    if c>v_start then
     v_end := instr(p_Cc,';',1,v_count);
       if v_end>0 then
            UTL_smtp.rcpt(v_Connection,substr(p_Cc,v_start+1,v_end-v_start-1));
       else
            UTL_smtp.rcpt(v_Connection,substr(p_Cc,v_start+1,length(p_Cc)-v_start));
          exit;
       end if;
       v_start := v_end;
       v_count := v_count +1;
     end if;
   end loop;
END IF;
IF (p_Bcc IS NOT NULL) THEN
 v_count := 1;
   v_start := 0;
   v_end :=1;
   for c in 1..length(p_Bcc) loop
    if c>v_start then
     v_end := instr(p_Bcc,';',1,v_count);
       if v_end>0 then
            UTL_smtp.rcpt(v_Connection,substr(p_Bcc,v_start+1,v_end-v_start-1));
       else
            UTL_smtp.rcpt(v_Connection,substr(p_Bcc,v_start+1,length(p_Bcc)-v_start));
          exit;
       end if;
       v_start := v_end;
       v_count := v_count +1;
     end if;
   end loop;
END IF;
UTL_smtp.open_data(v_Connection);
--select to_char(sysdate,'YYYY-MON-DD','NLS_DATE_LANGUAGE=AMERICAN') from dual
/* ** Sending the header information */
UTL_smtp.write_data(v_Connection,'Date: ' || to_char(sysdate-1/3,'YYYY-MON-DD hh24:mi:ss','NLS_DATE_LANGUAGE=AMERICAN') ||UTL_tcp.CRLF);
--UTL_smtp.write_data(v_Connection,'Date: ' || v_date ||UTL_tcp.CRLF);
--UTL_smtp.write_data(v_Connection,'Date: ' || 'NOW' || UTL_tcp.CRLF);
IF (p_From IS NOT NULL) THEN
   UTL_smtp.write_data(v_Connection, 'From: ' ||p_From|| UTL_tcp.CRLF);
END IF;
IF (p_to IS NOT NULL) THEN
   UTL_smtp.write_data(v_Connection, 'To: ' || p_to|| UTL_tcp.CRLF);
END IF;
IF (p_Cc IS NOT NULL) THEN
   UTL_smtp.write_data(v_Connection, 'Cc: ' || p_cc || UTL_tcp.CRLF);
END IF;
IF (p_Bcc IS NOT NULL) THEN
   UTL_smtp.write_data(v_Connection, 'Bcc: ' || p_bcc || UTL_tcp.CRLF);
END IF;
--UTL_smtp.write_data(v_Connection, 'Subject: ' || p_Subject || UTL_tcp.CRLF);  //以下可以顯示中文subject
UTL_smtp.write_raw_data(v_Connection,utl_raw.cast_to_raw(convert('Subject: ' ||p_Subject||utl_tcp.crlf,'zht16big5')));
UTL_smtp.write_data(v_Connection, 'MIME-Version: ' || '1.0' || UTL_tcp.CRLF);
UTL_smtp.write_data(v_Connection, 'Content-Type: ' ||p_ContentType|| UTL_tcp.CRLF);
UTL_smtp.write_data(v_Connection, 'Content-Transfer-Encoding: ' || '8bit' || UTL_tcp.CRLF);
/* ** End of header information */
UTL_smtp.write_data(v_Connection, UTL_tcp.CRLF);
/* ** Actual body is sent here */
v_Data := utl_raw.cast_to_raw(p_body);
UTL_smtp.write_raw_data(v_Connection, v_Data);
/* ** Connection is closed here */
UTL_smtp.close_data(v_Connection);
UTL_smtp.quit(v_Connection);
EXCEPTION
WHEN UTL_smtp.transient_error OR UTL_smtp.permanent_error THEN
UTL_smtp.quit(v_Connection);
dbms_output.put_line(sqlerrm);
WHEN OTHERS THEN
UTL_smtp.quit(v_Connection);
dbms_output.put_line(sqlerrm);
END send_mail;

-- End of DDL script for SEND_EMAIL

--執行存儲過程
begin
  send_mail('[email protected]','[email protected]','ceshi','這是我用oracle寫的發送郵件');  [email protected] 代表來自誰  [email protected] 代表發送給誰 ，test代表標題 ，這是我用oracle寫的發送郵件 代表郵件內容
end;