Oracle邮件---调查中。。。。

最新推荐文章于 2024-12-25 21:15:14 发布

原创最新推荐文章于 2024-12-25 21:15:14 发布 · 866 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#oracle #服务器 #exception #report #user #login

ORACle开发专栏收录该内容

40 篇文章

订阅专栏

本文介绍了一个Oracle存储过程，用于通过SMTP服务器发送电子邮件，并包含了完整的代码实现。该过程允许指定收件人、消息内容、主题和发件人等参数。

CREATE OR REPLACE PROCEDURE send_mail (
p_recipient IN   VARCHAR2,
p_message   IN   VARCHAR2,
p_subject   IN   VARCHAR2 default 'Oracle Perf Report '||to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'),
p_sender    IN   VARCHAR2 default 'ximalayashan-1@163.com')

IS
v_mailhost varchar2(30) := '202.108.44.205'; -- SMTP服务器地址
mail_conn utl_smtp.connection;
msg varchar2(4000);

p_user varchar2(30) := 'ximalayashan-1';       -- 登录SMTP服务器的用户名
p_pass varchar2(30) := 'jidema';       -- 登录SMTP服务器的密码

BEGIN
/* 创建要发送的邮件内容注意报头信息和邮件正文之间要空一行 */
msg := 'Date:' ||to_char(sysdate,'dd mon yy hh24:mi:ss') || utl_tcp.CRLF ||
         'From: ' || p_sender || '<'||p_sender||'>' ||utl_tcp.CRLF ||
         'To: '|| p_recipient || '<' || p_recipient || '>' ||utl_tcp.CRLF||
         'Subject: '||p_subject || utl_tcp.CRLF ||utl_tcp.CRLF||
         p_message;
-- dbms_output.put_line(msg);

mail_conn := utl_smtp.open_connection(v_mailhost,25);
utl_smtp.helo(mail_conn,v_mailhost);

/* smtp服务器登录校验 */
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(p_user))));
utl_smtp.command(mail_conn, utl_raw.cast_to_varchar2(utl_encode.base64_encode(utl_raw.cast_to_raw(p_pass))));
utl_smtp.mail(mail_conn,p_sender);
utl_smtp.rcpt(mail_conn,p_recipient);

/* 发送数据 */
utl_smtp.data(mail_conn, msg);
utl_smtp.quit(mail_conn);
EXCEPTION
WHEN OTHERS THEN
    dbms_output.put_line(dbms_utility.format_error_stack);
    dbms_output.put_line(dbms_utility.format_call_stack);

END send_mail;