oracle发邮件功能代码编写.doc

Oracle提供了UTL_SMTP包，可以发送EMAIL。写了一个很简单的小例子：DECLAREMAIL_CONN UTL_SMTP.CONNECTION;BEGINMAIL_CONN := UTL_SMTP.OPEN_CONNECTION(, 25);UTL_SMTP.HELO(MAIL_CONN, );UTL_SMTP.COMMAND(MAIL_CONN, AUTH LOGIN);UTL_SMTP.COMMAND(MAIL_CONN, UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW();UTL_SMTP.COMMAND(MAIL_CONN, UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW(password);UTL_SMTP.MAIL(MAIL_CONN, );UTL_SMTP.RCPT(MAIL_CONN, );UTL_SMTP.DATA(MAIL_CONN, TEST);UTL_SMTP.QUIT(MAIL_CONN);END;PL/SQL 过程已成功完成。就这么一个简单的不能在简单的过程，居然花了N个小时才搞定。首先打开一个SMTP连接，输入一个邮件服务器的地址，注意如果邮件服务器地址不正确会出现类似这样的错误：第 1 行出现错误:ORA-29278: SMTP 临时性错误: 421 Service not availableORA-06512: 在 SYS.UTL_SMTP, line 21ORA-06512: 在 SYS.UTL_SMTP, line 97ORA-06512: 在 SYS.UTL_SMTP, line 139ORA-06512: 在 line 4随后输入的分别是用户名和密码。其实本来打算用UTL_MAIL包实现发邮件的功能，使用UTL_MAIL包基本上一行代码就可以了，但是现在几乎所有的邮件服务器都要求授权验证，因此只能使用UTL_SMTP包来实现，注意如果用户名、密码出现错误，则会报错：第 1 行出现错误:ORA-29279: SMTP 永久性错误: 535 authorization failed (#5.7.0)ORA-06512: 在 SYS.UTL_SMTP, line 21ORA-06512: 在 SYS.UTL_SMTP, line 99ORA-06512: 在 SYS.UTL_SMTP, line 159ORA-06512: 在 line 8如果没有将用户名密码进行编码就直接发送，会碰到下面的错误：第 1 行出现错误:ORA-29279: SMTP 永久性错误: 501 malformed auth input (#5.5.4)ORA-06512: 在 SYS.UTL_SMTP, line 21ORA-06512: 在 SYS.UTL_SMTP, line 99ORA-06512: 在 SYS.UTL_SMTP, line 159ORA-06512: 在 line 7如果没有设置用户名、密码，或者使用UTL_MAIL包连接到需要授权验证的邮件服务器，则会报错如下：第 1 行出现错误:ORA-29279: SMTP 永久性错误: 554 auth login firstORA-06512: 在 SYS.UTL_SMTP, line 21ORA-06512: 在 SYS.UTL_SMTP, line 99ORA-06512: 在 SYS.UTL_SMTP, line 241ORA-06512: 在 SYS.UTL_MAIL, line 424ORA-06512: 在 SYS.UTL_MAIL, line 594ORA-06512: 在 line 2CREATE OR REPLACE PROCEDURE send_mail(p_recipient VARCHAR2, - 邮件接收人p_subject VARCHAR2, - 邮件标题p_message VARCHAR2 - 邮件正文)IS-下面四个变量请根据实际邮件服务器进行赋值v_mailhost VARCHAR2(30) := ; -SMTP服务器地址v_user VARCHAR2(30) := username; -登录SMTP服务器的用户名v_pass VARCHAR2(20) := password; -登录SMTP服务器的密码v_sender VARCHAR2(50) := email; -发送者邮箱，一般与 ps_user 对应v_conn UTL_SMTP.connection; -到邮件服务器的连接v_msg varchar2(4000); -邮件内容BEGINv_conn := UTL_SMTP.open_connection(v_mailhost, 25);UTL_SMTP.ehlo(v_conn, v_mailhost); -是用 ehlo() 而不是 helo() 函数-否则会报：ORA-29279: SMTP 永久性错误: 503 5.5.2 Send hello first.UTL_SMTP.command(v_conn, AUTH LOGIN); - smtp服务器登录校验UTL_SMTP.command(v_conn,UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(UTL_RAW.cast_to_raw(v_user);UTL_SMTP.command(v_conn,UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(UTL_RAW.cast_to_raw(v_pass);UTL_SMTP.mail(v_conn, v_sender); -设置发件人UTL_SMTP.rcpt(v_conn, p_recipient); -设置收件人- 创建要发送的邮件内容 注意报头信息和邮件正文之间要空一行v_msg :=Date:| TO_CHAR(SYSDATE, yyyy mm dd hh24:mi:ss)| UTL_TCP.CRLF | From: | v_sender | | UTL_TCP.CRLF | To: | p_recipient | | UTL_TCP.CRLF | Subject: | p_subject| UTL_TCP.CRLF | UTL_TCP.CRLF - 这前面是报头信息| p_message; - 这个是邮件正文UTL_SMTP.open_data(v_conn); -打开流UTL_SMTP.write_raw_data(v_conn, UTL_RAW.cast_to_raw(v_msg); -这样写标题和内容都能用中文UTL_SMTP.close_data(v_conn); -关闭流UTL_SMTP.quit(v