用utl_smtp发送邮件时的汉字解决方法

纵横四海

用utl_smtp发送邮件，汉字的显示应该用write_raw_data();
根据Oracle网站的相关说明，示例如下：

1. CREATE OR REPLACE PROCEDURE sende AS
   
2.   --mailhost  varchar2(30) := 'smtp-server.some-company.com';
   
3.   mailhost varchar2(30) := '10.155.*.*';
   
4.   --最好用邮件服务器的IP地址
   
5.   sender    varchar2(30) := 'me@some-company.com';
   
6.   recipient varchar2(30) := 'someone@some-company.com';
   
7.   conn      utl_smtp.connection;
   
8.   mesghead  varchar2(500);
   
9.   mesgbody  varchar2(2000);
   
10. BEGIN
    
11.   conn := utl_smtp.open_connection(mailhost, 25);
    
12.   utl_smtp.helo(conn, mailhost);
    
13.   utl_smtp.mail(conn, sender);
    
14.   utl_smtp.rcpt(conn, recipient);
    
15.   utl_smtp.open_data(conn);
    
16.   mesghead := 'Date:' || TO_CHAR(SYSDATE, 'dd Mon yy hh24:mi:ss') ||
    
17.               utl_tcp.CRLF || 'From:' || sender || utl_tcp.CRLF ||
    
18.               'Subject: Sending Mail From Budget Forewarn System' ||
    
19.               utl_tcp.CRLF || 'To: ' || recipient || utl_tcp.CRLF ||
    
20.               utl_tcp.CRLF || '' || utl_tcp.CRLF;
    
21.   utl_smtp.write_data(conn, mesghead);
    
22.   mesgbody := '电脑部预算预警指标（一月份）：' || utl_tcp.CRLF ||
    
23.               '   1、预算执行率：,' || utl_tcp.CRLF ||
    
24.               '   2、分科目预算执行情况：' || utl_tcp.CRLF || '' ||
    
25.               utl_tcp.CRLF ||
    
26.               '                 此邮件为系统自动发送，勿需回复！' ||
    
27.               utl_tcp.CRLF;
    
28.   utl_smtp.write_raw_data(conn, utl_raw.cast_to_raw(mesgbody));
    
29.   utl_smtp.close_data(conn);
    
30.   utl_smtp.quit(conn);
    
31.   --EXCEPTION
    
32.   --WHEN OTHERS THEN
    
33.   -- Handle the error
    
34. END;
    
35. /

复制代码

        上例中用相应的服务器地址和邮件地址替换后就可以运行，不需要考虑NLS_LANG的设置，
如果有问题，请保持Oracle服务器NLS_LANG设置与客户端一致。

         Good luck!

gaoyiming

海哥 关于预警 我前几天 刚刚做过， 要在服务器上修改一些配置，我明天把服务器要修改的配置文件找出来给大家看看，我们晚上下班之后，文件服务器就关机了，所以。。然后在系统 预警模块直接定义预警 直接发信就ok了，oracle ERP 系统本身就有发信的功能，也用不着单独再开发了
我们公司内部有一个 oa -mail 就是 内部邮件系统，我就测试成功过

llmark

高工发上来看看