导读: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优化趋势。

关键词标签: 标签 发送邮件