欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

利用UTL_SMTP发送邮件

程序员文章站 2022-05-11 07:57:49
最近有空研究了一下用Oracle自带UTL_SMTP发送邮件的方法,标准步骤如下:1.建立到SMTP Server的连接: UTL_SMTP.OPEN_CONNECTION2.执行初始握手信号: UTL_SMTP.EHLO/HELO2.5 设置SMTP服务器登录校验(看需要)3.设置发件人: UTL_SMTP.MAIL4.设置收件人: UTL_SMTP.RCPT5.打开数据流: UTL_SMTP.OPEN_DATA6.写邮件内容: UTL_SMTP.WRITE_RAW_DATA包括邮件的...

最近有空研究了一下用Oracle自带UTL_SMTP发送邮件的方法,标准步骤如下:

1.建立到SMTP Server的连接: UTL_SMTP.OPEN_CONNECTION
2.执行初始握手信号: UTL_SMTP.EHLO/HELO
2.5 设置SMTP服务器登录校验(看需要)
3.设置发件人: UTL_SMTP.MAIL
4.设置收件人: UTL_SMTP.RCPT
5.打开数据流: UTL_SMTP.OPEN_DATA
6.写邮件内容: UTL_SMTP.WRITE_RAW_DATA
包括
邮件的头部
Date: 2012 12 19 17:25:00||UTL_TCP.CRLF
From: 发件人||UTL_TCP.CRLF
To:收件人||UTL_TCP.CRLF
Subject:邮件主题|| UTL_TCP.CRLF || UTL_TCP.CRLF
邮件正文
7.关闭数据流: UTL_SMTP.CLOSE_DATA
8.退出连接: UTL_SMTP.QUIT

参考样例:

CREATE OR REPLACE PROCEDURE Send_Mail(p_Recipient VARCHAR2
                                     , -- 邮件接收人
                                      p_Subject   VARCHAR2
                                     , -- 邮件标题
                                      p_Message   VARCHAR2 -- 邮件正文
                                      ) IS
  --下面四个变量请根据实际邮件服务器进行赋值
  v_Mailhost VARCHAR2(30) := 'mail.gxlu.com.cn'; --SMTP服务器地址
  v_User     VARCHAR2(30) := 'abc'; --登录SMTP服务器的用户名
  v_Pass     VARCHAR2(20) := '123456'; --登录SMTP服务器的密码
  v_Sender   VARCHAR2(50) := 'abc@gxlu.com.cn'; --发送者邮箱,一般与 ps_user 对应
  v_Conn     Utl_Smtp.Connection; --到邮件服务器的连接
  v_Msg      VARCHAR2(4000); --邮件内容
BEGIN
  v_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_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;

原文出自 http://blog.itpub.net/14854071/viewspace-752889/

本文地址:https://blog.csdn.net/weixin_50666314/article/details/108992576

相关标签: Oracle开发