導讀:1建站知識oracle 發送郵件 實現方法網站seo優化診斷工具網seo優化趨勢。

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 /* 作用：用oracle發送郵件 主要功能：1、支持多收件人。 2、支持中文 3、支持抄送人 4、支持大于32K的附件 5、支持多行正文 6、支持多附件 7、支持文本附件和二進制附件 8、支持HTML格式 seo網站優化軟件8、支持 作者：suk 參數說明： p_txt :郵件正文 p_sub: 郵件標題 p_SendorAddress : 發送人郵件地址 p_ReceiverAddress : 接收地址，可以同時發送到多個地址上，地址之間用","或者";"隔開 p_EmailServer : 郵件服務器地址，可以是域名或者IP p_Port ：郵件服務器端口 p_need_smtp：是否需要smtp認證，0表示不需要，1表示需要 p_user：smtp驗證需要的用戶名 p_pass：smtp驗證需要的密碼 p_filename：附件名稱，必須包含完整的路徑，如"d:tempa.txt"。 可以有多個附件，附件名稱只見用逗號或者分號分隔 p_encode：附件編碼轉換格式，其中 p_encode='bit 7' 表示文本類型附件 p_encode='base64' 表示二進制類型附件 注意： 1、對于文本類型的附件，不能用base64的方式發送，否則出錯 2、對于多個附件只能用同一種格式發送 */ 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 || '"'; /* 以下部分是發送大二進制附件時用到的變量 */ 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); 網站seo優化診斷工具 L_MESG VARCHAR2(32767); /* 以上部分是發送大二進制附件時用到的變量 */ 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; -------------------------------------返回附件源文件所在目錄或者名稱-------------------------------------- FUNCTION GET_FILE(P_FILE VARCHAR2, P_GET INT) RETURN VARCHAR2 IS --p_get=1 表示返回目錄 --p_get=2 表示返回文件名 L_FILE VARCHAR2(1000); BEGIN IF INSTR(P_FILE, '') > 0 THEN --windows IF P_GET = 1 THEN L_FILE := SUBSTR(P_FILE, 1, INSTR(P_FILE, '', -1) - 1); ELSIF P_GET = 2 THEN L_FILE := SUBSTR(P_FILE, - (LENGTH(P_FILE) - INSTR(P_FILE, '', -1))); END IF; ELSIF INSTR(P_FILE, '/') > 0 THEN --linux/unix IF P_GET = 1 THEN L_FILE := SUBSTR(P_FILE, 1, INSTR(P_FILE, '/', -1) - 1); ELSIF P_GET = 2 THEN L_FILE := SUBSTR(P_FILE, - (LENGTH(P_FILE) - INSTR(P_FILE, '/', -1))); END IF; END IF; RETURN L_FILE; END; ---------------------------------------------刪除directory------------------------------------ PROCEDURE DROP_DIRECTORY(P_DIRECTORY_NAME VARCHAR2) IS BEGIN EXECUTE IMMEDIATE 'drop directory ' || P_DIRECTORY_NAME; EXCEPTION WHEN OTHERS THEN NULL; END; --------------------------------------------------創建directory----------------------------------------- PROCEDURE CREATE_DIRECTORY(P_DIRECTORY_NAME VARCHAR2, P_DIR VARCHAR2) IS BEGIN EXECUTE IMMEDIATE 'create directory ' || P_DIRECTORY_NAME || ' as ''' || P_DIR || ''''; EXECUTE IMMEDIATE 'grant read,write on directory ' || P_DIRECTORY_NAME || ' to public'; EXCEPTION WHEN OTHERS THEN RAISE; END; --------------------------------------------分割郵件地址或者附件地址----------------------------------- PROCEDURE P_SPLITE_STR(P_STR VARCHAR2, P_SPLITE_FLAG INT DEFAULT 1) IS L_ADDR VARCHAR2(254) := ''; L_LEN INT; L_STR VARCHAR2(4000); J INT := 0; --表示郵件地址或者附件的個數 BEGIN /*處理接收郵件地址列表，包括去空格、將;轉換為,等*/ L_STR := TRIM(RTRIM(REPLACE(REPLACE(P_STR, ';', ','), ' ', ''), ',')); L_LEN := LENGTH(L_STR); FOR I IN 1 .. L_LEN LOOP IF SUBSTR(L_STR, I, 1) <> ',' THEN L_ADDR := L_ADDR || SUBSTR(L_STR, I, 1); ELSE J := J + 1; IF P_SPLITE_FLAG = 1 THEN --表示處理郵件地址 --前后需要加上'<>'，否則很多郵箱將不能發送郵件 L_ADDR := '<' || L_ADDR || '>'; --調用郵件發送過程 MY_ADDRESS_LIST(J) := L_ADDR; ELSIF P_SPLITE_FLAG = 2 THEN --表示處理附件名稱 MY_ACCT_LIST(J) := L_ADDR; END IF; L_ADDR := ''; END IF; IF I = L_LEN THEN J := J + 1; IF P_SPLITE_FLAG = 1 THEN --調用郵件發送過程 L_ADDR := '<' || L_ADDR || '>'; MY_ADDRESS_LIST(J) := L_ADDR; ELSIF P_SPLITE_FLAG = 2 THEN MY_ACCT_LIST(J) := L_ADDR; END IF; END IF; END LOOP; END; ------------------------------------------------寫郵件頭和郵件內容------------------------------------------ PROCEDURE WRITE_DATA(P_CONN IN OUT NOCOPY UTL_SMTP.CONNECTION, P_NAME IN VARCHAR2, P_VALUE IN VARCHAR2, P_SPLITE VARCHAR2 DEFAULT ':', P_CRLF VARCHAR2 DEFAULT L_CRLF) IS BEGIN /* utl_raw.cast_to_raw網站推廣優化seo 對解決中文亂碼問題很重要*/ UTL_SMTP.WRITE_RAW_DATA(P_CONN, UTL_RAW.CAST_TO_RAW(CONVERT(P_NAME || P_SPLITE || P_VALUE || P_CRLF, 'ZHS16GBK'))); END; ----------------------------------------寫MIME郵件尾部----------------------------------------------------- PROCEDURE相關網站seo優化診斷工具網seo優化趨勢。

關鍵詞標簽: 標簽 發送郵件