利用UTL_SMTP发送邮件

2024-04-01 13:08

文章标签 邮件发送 smtp utl

本文主要是介绍利用UTL_SMTP发送邮件，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

最近有空研究了一下用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); --邮件内容
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_Conn); --关闭连接
EXCEPTIONWHEN OTHERS THENDbms_Output.Put_Line(Dbms_Utility.Format_Error_Stack);Dbms_Output.Put_Line(Dbms_Utility.Format_Call_Stack);
END Send_Mail;