導(dǎo)讀:1建站知識(shí)接下來將介紹下如何使用存儲(chǔ)過程發(fā)送郵件這一案例實(shí)現(xiàn)，感興趣的你可以參考下本文或許對(duì)你有所幫助建設(shè)網(wǎng)站公司公司網(wǎng)站建設(shè)。

復(fù)制代碼 代碼如下:

CREATE OR REPLACE PROCEDURE PROCSENDEMAIL(P_TXT VARCHAR2, P_SUB VARCHAR2, P_SENDOR VARCHAR2, P_RECEIVER VARCHAR2, P_SERVER VARCHAR2, P_PORT NUMBER DEFAULT 25, P_NEED_SMTP INT DEFAULT 0, P_USER VARCHAR2 DEFAULT NULL, P_PASS VARCHAR2 DEFAULT NULL, P_FILENAME VARCHAR2 DEFAULT NULL, P_ENCODE VARCHAR2 DEFAULT 'bit 7') AUTHID CURRENT_USER IS

復(fù)制代碼 代碼如下:

/* 作用：用oracle發(fā)送郵件 主要功能：1、支持多收件人。 2、支持中文 3、支持抄送人 4、支持大于32K的附件 5、支持多行正文 6、支持多附件 7、支持文本附件和二進(jìn)制附件 8、支持HTML格式 8、支持 作者：suk 參數(shù)說明： p_txt :郵件正文 p_sub: 郵件標(biāo)題 p_SendorAddress : 發(fā)送人郵件地址 p_ReceiverAddress : 接收地址，可以同時(shí)發(fā)送到多個(gè)地址上，地址之間用","或者";"隔開 p_EmailServer : 郵件服務(wù)器地址，可以是域名或者IP p_Port ：郵件服務(wù)器端口 p_need_smtp：是否需要smtp認(rèn)證，0表示不需要，1表示需要 p_user：smtp驗(yàn)證需要的用戶名 p_pass：smtp驗(yàn)證需要的密碼 p_filename：附件名稱，必須包含完整的路徑，如"d:tempa.txt"。 可以有多個(gè)附件，附件名稱只見用逗號(hào)或者分號(hào)分隔 p_encode：附件編碼轉(zhuǎn)換格式，其中 p_encode='bit 7' 表示文本類型附件 p_encode='base64' 表示二進(jìn)制類型附件 注意： 1、對(duì)于文本類型的附件，不能用base64的方式發(fā)送，否則出錯(cuò) 2、對(duì)于多個(gè)附件只能用同一種格式發(fā)送 */ L_CRLF VARCHAR2(2) := UTL_TCP.CRLF; L_SENDORADDRESS VARCHAR2(4000); L_SPLITE VARCHAR2(10) := '++'; BOUNDARY CONSTANT VARCHAR2(256) := '-----BYSUK'; FIRST_BOUNDARY CONSTANT VARCHAR2(256) := '--' || BOUNDARY || L_CRLF; LAST_BOUNDARY CONSTANT VARCHAR2(256) := '--' || BOUNDARY || '--' || L_CRLF; MULTIPART_MIME_TYPE CONSTANT VARCHAR2(256) := 'multipart/mixed; boundary="' || BOUNDARY || '"'; /* 以下部分是發(fā)送大二進(jìn)制附件時(shí)用到的變量 */ L_FIL BFILE; L_FILE_LEN NUMBER; L_MODULO NUMBER; L_PIECES NUMBER; L_FILE_HANDLE UTL_FILE.FILE_TYPE; L_AMT BINARY_INTEGER := 672 * 3; /* ensures proper format; 2016 */ L_FILEPOS PLS_INTEGER := 1; /* pointer for the file */ L_CHUNKS NUMBER; L_BUF RAW(2100); L_DATA RAW(2100); L_MAX_LINE_WIDTH NUMBER := 54; L_DIRECTORY_BASE_NAME VARCHAR2(100) := 'DIR_FOR_SEND_MAIL'; L_LINE VARCHAR2(1000); L_MESG VARCHAR2(32767); /* 以上部分是發(fā)送大二進(jìn)制附件時(shí)用到的變量 */ TYPE ADDRESS_LIST IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER; MY_ADDRESS_LIST ADDRESS_LIST; TYPE ACCT_LIST IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER; MY_ACCT_LIST ACCT_LIST;

-------------------------------------返回附件源文件所在目錄或者名稱--------------------------------------

關(guān)鍵詞標(biāo)簽: 發(fā)送郵件 存儲(chǔ)過程