oracle 存储过程发邮件
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格式
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);
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 对解决中文乱码问题很重要*/
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
END_BOUNDARY(CONN
IN
OUT
NOCOPY UTL_SMTP.
CONNECTION
,
LAST
IN
BOOLEAN
DEFAULT
FALSE
)
IS
BEGIN
UTL_SMTP.WRITE_DATA(CONN, UTL_TCP.CRLF);
IF (
LAST
)
THEN
UTL_SMTP.WRITE_DATA(CONN, LAST_BOUNDARY);
END
IF;
END
;
----------------------------------------------发送附件----------------------------------------------------
PROCEDURE
ATTACHMENT(CONN
IN
OUT
NOCOPY UTL_SMTP.
CONNECTION
,
MIME_TYPE
IN
VARCHAR2
DEFAULT
'text/plain'
,
INLINE
IN
BOOLEAN
DEFAULT
TRUE
,
FILENAME
IN
VARCHAR2
DEFAULT
't.txt'
,
TRANSFER_ENC
IN
VARCHAR2
DEFAULT
'7 bit'
,
DT_NAME
IN
VARCHAR2
DEFAULT
'0'
)
IS
L_FILENAME VARCHAR2(1000);
BEGIN
--写附件头
UTL_SMTP.WRITE_DATA(CONN, FIRST_BOUNDARY);
--设置附件格式
WRITE_DATA(CONN,
'Content-Type'
, MIME_TYPE);
--如果文件名称非空,表示有附件
DROP_DIRECTORY(DT_NAME);
--创建directory
CREATE_DIRECTORY(DT_NAME, GET_FILE(FILENAME, 1));
--得到附件文件名称
L_FILENAME := GET_FILE(FILENAME, 2);
IF (INLINE)
THEN
WRITE_DATA(CONN,
'Content-Disposition'
,
'inline; filename="'
|| L_FILENAME ||
'"'
);
ELSE
WRITE_DATA(CONN,
'Content-Disposition'
,
'attachment; filename="'
|| L_FILENAME ||
'"'
);
END
IF;
--设置附件的转换格式
IF (TRANSFER_ENC
IS
NOT
NULL
)
THEN
WRITE_DATA(CONN,
'Content-Transfer-Encoding'
, TRANSFER_ENC);
END
IF;
UTL_SMTP.WRITE_DATA(CONN, UTL_TCP.CRLF);
--begin 贴附件内容
IF TRANSFER_ENC =
'bit 7'
THEN
--如果是文本类型的附件
BEGIN
L_FILE_HANDLE := UTL_FILE.FOPEN(DT_NAME, L_FILENAME,
'r'
);
--打开文件
--把附件分成多份,这样可以发送超过32K的附件
LOOP
UTL_FILE.GET_LINE(L_FILE_HANDLE, L_LINE);
L_MESG := L_LINE || L_CRLF;
WRITE_DATA(CONN,
''
, L_MESG,
''
,
''
);
END
LOOP;
UTL_FILE.FCLOSE(L_FILE_HANDLE);
END_BOUNDARY(CONN);
EXCEPTION
WHEN
OTHERS
THEN
UTL_FILE.FCLOSE(L_FILE_HANDLE);
END_BOUNDARY(CONN);
NULL
;
END
;
--结束文本类型附件的处理
ELSIF TRANSFER_ENC =
'base64'
THEN
--如果是二进制类型的附件
BEGIN
--把附件分成多份,这样可以发送超过32K的附件
L_FILEPOS := 1;
--重置offset,在发送多个附件时,必须重置
L_FIL := BFILENAME(DT_NAME, L_FILENAME);
L_FILE_LEN := DBMS_LOB.GETLENGTH(L_FIL);
L_MODULO := MOD(L_FILE_LEN, L_AMT);
L_PIECES := TRUNC(L_FILE_LEN / L_AMT);
IF (L_MODULO <> 0)
THEN
L_PIECES := L_PIECES + 1;
END
IF;
DBMS_LOB.FILEOPEN(L_FIL, DBMS_LOB.FILE_READONLY);
DBMS_LOB.
READ
(L_FIL, L_AMT, L_FILEPOS, L_BUF);
L_DATA :=
NULL
;
FOR
I
IN
1 .. L_PIECES LOOP
L_FILEPOS := I * L_AMT + 1;
L_FILE_LEN := L_FILE_LEN - L_AMT;
L_DATA := UTL_RAW.CONCAT(L_DATA, L_BUF);
L_CHUNKS := TRUNC(UTL_RAW.LENGTH(L_DATA) / L_MAX_LINE_WIDTH);
IF (I <> L_PIECES)
THEN
L_CHUNKS := L_CHUNKS - 1;
END
IF;
UTL_SMTP.WRITE_RAW_DATA(CONN, UTL_ENCODE.BASE64_ENCODE(L_DATA));
L_DATA :=
NULL
;
IF (L_FILE_LEN < L_AMT
AND
L_FILE_LEN > 0)
THEN
L_AMT := L_FILE_LEN;
END
IF;
DBMS_LOB.
READ
(L_FIL, L_AMT, L_FILEPOS, L_BUF);
END
LOOP;
DBMS_LOB.FILECLOSE(L_FIL);
END_BOUNDARY(CONN);
EXCEPTION
WHEN
OTHERS
THEN
DBMS_LOB.FILECLOSE(L_FIL);
END_BOUNDARY(CONN);
RAISE;
END
;
--结束处理二进制附件
END
IF;
--结束处理附件内容
DROP_DIRECTORY(DT_NAME);
END
;
--结束过程ATTACHMENT
---------------------------------------------真正发送邮件的过程--------------------------------------------
PROCEDURE
P_EMAIL(P_SENDORADDRESS2 VARCHAR2,
--发送地址
P_RECEIVERADDRESS2 VARCHAR2)
--接受地址
IS
L_CONN UTL_SMTP.
CONNECTION
;
--定义连接
BEGIN
/*初始化邮件服务器信息,连接邮件服务器*/
L_CONN := UTL_SMTP.OPEN_CONNECTION(P_SERVER, P_PORT);
UTL_SMTP.HELO(L_CONN, P_SERVER);
/* smtp服务器登录校验 */
IF P_NEED_SMTP = 1
THEN
UTL_SMTP.COMMAND(L_CONN,
'AUTH LOGIN'
,
''
);
UTL_SMTP.COMMAND(L_CONN,
UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(P_USER))));
UTL_SMTP.COMMAND(L_CONN,
UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(P_PASS))));
END
IF;
/*设置发送地址和接收地址*/
UTL_SMTP.MAIL(L_CONN, P_SENDORADDRESS2);
UTL_SMTP.RCPT(L_CONN, P_RECEIVERADDRESS2);
/*设置邮件头*/
UTL_SMTP.OPEN_DATA(L_CONN);
WRITE_DATA(L_CONN,
'Date'
, TO_CHAR(SYSDATE,
'yyyy-mm-dd hh24:mi:ss'
));
/*设置发送人*/
WRITE_DATA(L_CONN,
'From'
, P_SENDOR);
/*设置接收人*/
WRITE_DATA(L_CONN,
'To'
, P_RECEIVER);
/*设置邮件主题*/
WRITE_DATA(L_CONN,
'Subject'
, P_SUB);
WRITE_DATA(L_CONN,
'Content-Type'
, MULTIPART_MIME_TYPE);
UTL_SMTP.WRITE_DATA(L_CONN, UTL_TCP.CRLF);
UTL_SMTP.WRITE_DATA(L_CONN, FIRST_BOUNDARY);
WRITE_DATA(L_CONN,
'Content-Type'
,
'text/plain;charset=gb2312'
);
--单独空一行,否则,正文内容不显示
UTL_SMTP.WRITE_DATA(L_CONN, UTL_TCP.CRLF);
/* 设置邮件正文
把分隔符还原成chr(10)。这主要是为了shell中调用该过程,如果有多行,则先把多行的内容合并成一行,并用 l_splite分隔
然后用 l_crlf替换chr(10)。这一步是必须的,否则将不能发送邮件正文有多行的邮件
*/
WRITE_DATA(L_CONN,
''
,
REPLACE
(
REPLACE
(P_TXT, L_SPLITE, CHR(10)), CHR(10), L_CRLF),
''
,
''
);
END_BOUNDARY(L_CONN);
--如果文件名称不为空,则发送附件
IF (P_FILENAME
IS
NOT
NULL
)
THEN
--根据逗号或者分号拆分附件地址
P_SPLITE_STR(P_FILENAME, 2);
--循环发送附件(在同一个邮件中)
FOR
K
IN
1 .. MY_ACCT_LIST.
COUNT
LOOP
ATTACHMENT(CONN => L_CONN,
FILENAME => MY_ACCT_LIST(K),
TRANSFER_ENC => P_ENCODE,
DT_NAME => L_DIRECTORY_BASE_NAME || TO_CHAR(K));
END
LOOP;
END
IF;
/*关闭数据写入*/
UTL_SMTP.CLOSE_DATA(L_CONN);
/*关闭连接*/
UTL_SMTP.QUIT(L_CONN);
/*异常处理*/
EXCEPTION
WHEN
OTHERS
THEN
NULL
;
RAISE;
END
;
---------------------------------------------------主过程-----------------------------------------------------
BEGIN
L_SENDORADDRESS :=
'<'
|| P_SENDOR ||
'>'
;
P_SPLITE_STR(P_RECEIVER);
--处理邮件地址
FOR
K
IN
1 .. MY_ADDRESS_LIST.
COUNT
LOOP
P_EMAIL(L_SENDORADDRESS, MY_ADDRESS_LIST(K));
END
LOOP;
/*处理邮件地址,根据逗号分割邮件*/
EXCEPTION
WHEN
OTHERS
THEN
RAISE;
END
;
PROCSENDEMAIL( '邮件内容' , '邮件主题' , '发件人' , '收件人' , '邮件服务器ip地址' ,25,1, '用户名' , '密码' , '' , 'base64' ); |
注意邮件服务器一定要用ip,用域名不行。
http://www.cnblogs.com/IcefishBingqing/archive/2013/03/05/2944455.html
oracle 存储过程发邮件的更多相关文章
- Exec msdb.dbo.sp_send_dbmail 参数详解(SQL Server 存储过程发邮件)
转载oriency755 发布于2012-12-04 11:34:45 阅读数 6870 收藏 sp_send_dbmail [ [ @profile_name = ] 'profile_name ...
- SQLServer 存储过程+定时任务发邮件
SQLServer 代理发邮件需要开启SQL Server 代理服务器,然后,在[管理]-[数据库邮件]中,右键点击配置数据库邮件. 我用的是腾讯的企业邮箱,个人的163邮箱略微不同.下图是相关邮件的 ...
- SQL Server定时自动抓取耗时SQL并归档数据发邮件脚本分享
SQL Server定时自动抓取耗时SQL并归档数据发邮件脚本分享 第一步建库和建表 USE [master] GO CREATE DATABASE [MonitorElapsedHighSQL] G ...
- SQL SERVER 2008配置Database Mail –用SQL 数据库发邮件
SQL SERVER 2008配置Database Mail –用SQL 数据库发邮件 https://blogs.msdn.microsoft.com/apgcdsd/2011/06/28/sql ...
- .NET Core中使用Dapper操作Oracle存储过程最佳实践
为什么说是最佳实践呢?因为在实际开发中踩坑了,而且发现网上大多数文章给出的解决方法都不能很好地解决问题.尤其是在获取类型为OracleDbType.RefCursor,输出为:ParameterDir ...
- sql server如何把查询结果发邮件出去
原本:https://zhidao.baidu.com/question/1819725575342685788.html --1.启用Database Mail扩展存储过程 sp_configure ...
- NET Core中使用Dapper操作Oracle存储过程
.NET Core中使用Dapper操作Oracle存储过程最佳实践 为什么说是最佳实践呢?因为在实际开发中踩坑了,而且发现网上大多数文章给出的解决方法都不能很好地解决问题.尤其是在获取类型为Or ...
- python连接数据库自动发邮件
python连接数据库实现自动发邮件 1.运行环境 redhat6 + python3.6 + crontab + Oracle客户端 2.用到的模块 3.操作步骤 (1)安装python3.6参考 ...
- # PHP - 使用PHPMailer发邮件
PHPMailer支持多种邮件发送方式,使用起来非常简单 1.下载PHPMailer https://github.com/PHPMailer/PHPMailer,下载完成加压后, 把下边的两个文件复 ...
随机推荐
- winston日志管理3
Further Reading 延伸阅读 Events and Callbacks in Winston winston的事件和回调 Each instance of winston.Logger i ...
- [BS] 小知识点总结-03
1.Autolayout中“constrain to margins” Autolayout中的页面边距的问题ios8以后的UIView增加了layoutMargins属性,在Storyboard/I ...
- [BS] 小知识点总结-01
1. UIImageView *imgView = [[UIImageView alloc]initWithImage:[UIImage imageNamed:@"MainTitle&quo ...
- 详解Java中的clone方法:原型模式
转:http://developer.51cto.com/art/201506/478985.htm clone顾名思义就是复制, 在Java语言中, clone方法被对象调用,所以会复制对象.所谓的 ...
- 面向对象编程思想(OOP)
本文我将从面向对象编程思想是如何解决软件开发中各种疑难问题的角度,来讲述我们面向对象编程思想的理解,梳理面向对象四大基本特性.七大设计原则和23种设计模式之间的关系. 软件开发中疑难问题: 软件复杂庞 ...
- 在相同的主机上创建一个duplicate数据库
在相同的主机上创建一个duplicate数据库 source db:dbtest auxiliary db:dupdb duplicate database会自动分配一个新的DBID要确保auxili ...
- Rman备份的保留策略(retention policy)
什么是备份的保留策略(retention policy) 保留策略就是指某份备份是否要保留以及保留多久.可以使用configure retention policy命令来创建一个一致的.自动的备份保留 ...
- C++ note
主要是为了学习c++的类和对象 内容摘自 c++概述 http://see.xidian.edu.cn/cpp/biancheng/cpp/rumen_1/ 1,变量 ,C++中,我们可以在 ...
- 学习jsp(2)
@Webservlet 具体见:http://www.cnblogs.com/luxh/archive/2012/06/06/2537458.html. 我折腾半天才发现,在web.xml里注册了,删 ...
- 在Swift中整数以及浮点的格式化
1 整数的格式化 有的时候我们需要将整数输出为类似01,02,001,002这样的格式. 那么在swift中我们可以这样写 let i= let str = String(format:"% ...