欢迎进入oracle社区论坛，与200万技术人员互动交流 >>进入
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 := '';
--调用邮件发送过程
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 := '';
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;
[1] [2] [3]