每天一个小技巧

在Oracle中实现自动发邮件，可通过PL/SQL调用数据库内置的UTL_MAIL包来完成。以下是具体实现步骤及代码示例，适合在Oracle 10g及以上版本使用：

一、准备工作

1. 确认数据库权限
- 需拥有 UTL_MAIL 包的使用权限（通常默认授予 EXECUTE 权限，若没有需DBA授权）。
- 执行语句：
GRANT EXECUTE ON UTL_MAIL TO YOUR_USER;
 
2. 配置邮件服务器信息
- 需知道SMTP服务器地址（如腾讯邮箱 smtp.qq.com 、网易邮箱 smtp.163.com ）、端口（默认25，SSL加密端口465或587）、发件人邮箱账号及密码。

二、核心代码示例（PL/SQL存储过程）

以下是一个完整的自动发邮件存储过程，支持文本邮件、附件及HTML格式内容：

CREATE OR REPLACE PROCEDURE send_email(
p_to VARCHAR2, -- 收件人邮箱
p_subject VARCHAR2, -- 邮件主题
p_body VARCHAR2, -- 邮件正文
p_from VARCHAR2 := 'your_email@example.com', -- 发件人邮箱（默认）
p_smtp_server VARCHAR2 := 'smtp.example.com', -- SMTP服务器（默认）
p_smtp_port NUMBER := 25, -- SMTP端口（默认）
p_username VARCHAR2 := 'your_email', -- 发件人账号（默认）
p_password VARCHAR2 := 'your_password', -- 发件人密码（默认）
p_attachment_path VARCHAR2 := NULL, -- 附件路径（可选）
p_attachment_name VARCHAR2 := NULL, -- 附件名称（可选）
p_is_html BOOLEAN := FALSE -- 是否HTML格式（默认文本）
) AS
l_mail_conn UTL_MAIL.MAIL_CONN;
l_attachment BLOB;
l_file UTL_FILE.FILE_TYPE;
BEGIN
-- 1. 连接SMTP服务器
l_mail_conn := UTL_MAIL.OPEN_CONN(
host => p_smtp_server,
port => p_smtp_port,
username => p_username,
password => p_password
);

-- 2. 设置邮件头
UTL_MAIL.SET_WHO(
conn => l_mail_conn,
sender => p_from,
recipients => p_to,
cc => NULL, -- 抄送邮箱（可选）
bcc => NULL -- 密送邮箱（可选）
);

UTL_MAIL.SET_SUBJ(conn => l_mail_conn, subj => p_subject);

-- 3. 设置邮件内容（文本或HTML）
IF p_is_html THEN
UTL_MAIL.SET_BODY_HTML(conn => l_mail_conn, body => p_body);
ELSE
UTL_MAIL.SET_BODY_TEXT(conn => l_mail_conn, body => p_body);
END IF;

-- 4. 添加附件（可选）
IF p_attachment_path IS NOT NULL AND p_attachment_name IS NOT NULL THEN
l_file := UTL_FILE.FOPEN(
directory => 'ATTACH_DIR', -- 需提前创建Oracle目录对象
filename => p_attachment_path,
mode => 'rb'
);

UTL_FILE.READ_RAW(l_file, l_attachment, UTL_FILE.FILE_SIZE(l_file));
UTL_FILE.FCLOSE(l_file);

UTL_MAIL.ADD_ATTACHMENT(
conn => l_mail_conn,
blob_content => l_attachment,
filename => p_attachment_name,
mimetype => 'application/octet-stream'
);
END IF;

-- 5. 发送邮件
UTL_MAIL.SEND(l_mail_conn);

-- 6. 关闭连接
UTL_MAIL.CLOSE_CONN(l_mail_conn);

DBMS_OUTPUT.PUT_LINE('邮件发送成功！');
EXCEPTION
WHEN OTHERS THEN
UTL_MAIL.CLOSE_CONN(l_mail_conn);
DBMS_OUTPUT.PUT_LINE('邮件发送失败：' || SQLERRM);
RAISE;
END send_email;
/
 

三、使用前的额外配置

1. 创建目录对象（用于附件）
CREATE OR REPLACE DIRECTORY ATTACH_DIR AS '/path/to/attachments/';
GRANT READ, WRITE ON DIRECTORY ATTACH_DIR TO YOUR_USER;
 

（注： /path/to/attachments/ 需为服务器实际存在的路径）
2. 处理SSL加密连接（若SMTP服务器需要）
- 若使用SSL端口（如465），需在数据库中配置网络安全参数，或联系DBA修改 sqlnet.ora 文件添加安全配置。

四、调用示例

1. 发送纯文本邮件
BEGIN
send_email(
p_to => 'recipient@example.com',
p_subject => 'Oracle自动邮件测试',
p_body => '这是一封从Oracle数据库发送的测试邮件。',
p_from => 'your_email@example.com',
p_smtp_server => 'smtp.example.com',
p_username => 'your_email',
p_password => 'your_password'
);
END;
/
 
2. 发送HTML格式邮件
BEGIN
send_email(
p_to => 'recipient@example.com',
p_subject => 'HTML邮件测试',
p_body => '<h3>HTML标题</h3><p>这是一段HTML格式的内容。</p>',
p_is_html => TRUE,
-- 其他参数同上
);
END;
/
 
3. 发送带附件的邮件
BEGIN
send_email(
p_to => 'recipient@example.com',
p_subject => '带附件的邮件',
p_body => '附件包含详细报告，请查收。',
p_attachment_path => 'report.pdf',
p_attachment_name => '月度报告.pdf',
-- 其他参数同上
);
END;
/
 

五、注意事项

1. 密码安全
- 代码中直接存储密码存在安全风险，建议通过数据库钱包（Oracle Wallet）或环境变量加密存储。
2. 邮件服务器限制
- 部分邮箱（如QQ、163）需要开启“IMAP/SMTP服务”并生成授权码（非登录密码），具体需参考邮箱服务商的说明。
3. 频率与反垃圾机制
- 避免高频发送邮件，可能触发SMTP服务器反垃圾策略，建议配合定时任务（如DBMS_SCHEDULER）控制发送频率。
4. 错误处理
- 上述代码已包含基础异常处理，但实际使用中可根据需求扩展日志记录（如写入数据库表），便于排查发送失败原因。

通过以上步骤，即可在Oracle中实现自动发邮件功能，适用于数据报表推送、告警通知等场景。如需结合定时任务自动执行，可进一步使用 DBMS_SCHEDULER 创建计划任务调用存储过程。