如何通过邮件发送PL/SQL存储过程的执行状态？

整体逻辑非常简单：在存储过程中新增异常捕获结构收集运行状态，再将状态变量拼入邮件内容后调用UTL_MAIL发送即可，具体实现步骤如下：

前置准备 #

• 确认当前数据库用户已被授予UTL_MAIL执行权限，数据库SMTP配置已验证可用（你已经可以发送模板邮件，此步可跳过）

核心实现步骤 #

1. 新增状态存储变量
   在存储过程开头定义变量存储执行结果、错误信息、邮件正文：

v_exec_status VARCHAR2(20); -- 存储运行状态：成功/失败
v_error_msg VARCHAR2(4000); -- 存储报错详情
v_mail_content CLOB; -- 存储拼接后的邮件正文

2. 新增异常捕获逻辑
   将原有业务逻辑包裹在BEGIN...EXCEPTION块中，分别赋值成功/失败状态：

CREATE OR REPLACE PROCEDURE YOUR_BUSINESS_PROC AS
  v_exec_status VARCHAR2(20);
  v_error_msg VARCHAR2(4000);
  v_mail_content CLOB;
BEGIN
  -- 此处替换为你的原有业务逻辑
  NULL;

  -- 业务逻辑无异常执行完成，赋值成功状态
  v_exec_status := '运行成功';
  v_error_msg := '无异常报错';

EXCEPTION
  WHEN OTHERS THEN
    -- 捕获异常，赋值失败状态和错误信息
    v_exec_status := '运行失败';
    v_error_msg := '错误码：' || SQLCODE || '，错误详情：' || SQLERRM;
    -- 若异常时需要回滚业务操作，可在此处添加ROLLBACK;
END YOUR_BUSINESS_PROC;

3. 拼接邮件内容并发送
   在异常捕获块之后、存储过程结束前，添加邮件拼接和发送逻辑：

-- 拼接文本格式邮件正文，CHR(10)为换行符
v_mail_content := '存储过程执行结果通知：' || CHR(10) || CHR(10) ||
                  '执行状态：' || v_exec_status || CHR(10) ||
                  '执行时间：' || TO_CHAR(SYSDATE, 'yyyy-mm-dd hh24:mi:ss') || CHR(10) ||
                  '报错信息：' || v_error_msg;

-- 调用UTL_MAIL发送邮件
UTL_MAIL.SEND(
  sender => '发件人邮箱地址',
  recipients => '收件人邮箱地址',
  subject => '存储过程执行通知：' || v_exec_status,
  message => v_mail_content
);

可选优化方案 #

• 仅需要发送失败通知时，可在调用UTL_MAIL.SEND前加判断：IF v_exec_status = '运行失败' THEN 再执行发送逻辑，避免冗余邮件
• 不需要修改原有业务存储过程时，可单独封装一个调度用的外层过程，在外层过程中调用原业务过程、加捕获和发邮件逻辑，调度任务直接调用外层过程即可
• 需要发送HTML格式邮件时，拼接正文时加入HTML标签，同时给UTL_MAIL.SEND新增参数mime_type => 'text/html; charset=utf-8'即可

内容的提问来源于stack exchange，提问作者Rmd90