Oracle11g 从存储过程（oracle DB）发送电子邮件_Oracle11g_Procedure

Oracle11g 从存储过程（oracle DB）发送电子邮件

oracle11g

Oracle11g 从存储过程（oracle DB）发送电子邮件,oracle11g,procedure,Oracle11g,Procedure,我想在ORACLE数据库中获取记录并向用户发送电子邮件。我写的程序做的功能，但我收到的电子邮件显示的电子邮件标题只。（无法显示内容）以下是从oracle db get record发送的电子邮件过程： create or replace PROCEDURE check_reject_list IS CURSOR c1 IS SELECT distinct b.NAME AP_ORG, a.ORG_ID ORG_ID, a.source source, a.

我想在ORACLE数据库中获取记录并向用户发送电子邮件。我写的程序做的功能，但我收到的电子邮件显示的电子邮件标题只。（无法显示内容）

以下是从oracle db get record发送的电子邮件过程：

create or replace PROCEDURE check_reject_list  IS
 CURSOR c1 IS
SELECT distinct b.NAME AP_ORG, a.ORG_ID ORG_ID, a.source source, 
                a.INVOICE_ID INVOICE_ID,reject_lookup_code Reject_Reason, 
                a.INVOICE_NUM Invoice_Num, a.INVOICE_DATE Invoice_Date, a.GL_DATE GL_Date, 
                a.VENDOR_NAME Vendor_Name, a.VENDOR_SITE_CODE Vendor_Site_Code, 
                a.INVOICE_AMOUNT INVOICE_AMOUNT, a.INVOICE_CURRENCY_CODE INVOICE_CURRENCY_CODE, a.EXCHANGE_RATE EXCHANGE_RATE
      
   FROM ap_interface_rejections, 
        ap_invoices_interface a, 
        hr_all_organization_units b, 
        ap_invoice_lines_interface d
      WHERE (((parent_id = a.invoice_id AND parent_table = 'AP_INVOICES_INTERFACE') OR (parent_id = d.invoice_line_id AND parent_table = 'AP_INVOICE_LINES_INTERFACE')))
       AND a.INVOICE_ID = d.INVOICE_ID
       AND a.ORG_ID = b.ORGANIZATION_ID
    
     AND a.source = 'ABC'
     
     ;
 r1 c1%rowtype;
   c utl_smtp.connection;
   v_instance varchar2(9);
   x_email_to varchar2(4000);
   v_temp_str varchar2(4000);
   v_temp     number;
   v_r1_row_num number;
   v_check number;
 PROCEDURE send_data(p_data in varchar2) as
   BEGIN
      utl_smtp.write_raw_data(c, utl_raw.cast_to_raw(p_data || utl_tcp.crlf));
   --fnd_file.put_line(fnd_file.output, p_data);
   END;
 BEGIN
  SELECT count(distinct a.INVOICE_NUM)  
   into v_check 
   FROM ap_interface_rejections, ap_invoices_interface a, hr_all_organization_units b, ap_invoice_lines_interface d
      WHERE (((parent_id = a.invoice_id AND parent_table = 'AP_INVOICES_INTERFACE') OR (parent_id = d.invoice_line_id AND parent_table = 'AP_INVOICE_LINES_INTERFACE')))
       AND a.INVOICE_ID = d.INVOICE_ID
       AND a.ORG_ID = b.ORGANIZATION_ID
     AND a.source = 'ABC';
   IF v_check > 0   THEN
select name into v_instance from V$DATABASE;
 x_email_to := 'email address';

c := utl_smtp.open_connection('smtp ip');
 utl_smtp.helo(c, 'smtp ip'
 utl_smtp.mail(c, 'sender email address');
 v_temp_str := replace(x_email_to, ',', ';');
  while length(v_temp_str) > 0 loop
v_temp := instr(v_temp_str, ';', 1, 1);
if v_temp > 0 then
  utl_smtp.rcpt(c, trim(substr(v_temp_str, 1, v_temp - 1)));
  v_temp_str := substr(v_temp_str, v_temp + 1, length(v_temp_str));
else
  utl_smtp.rcpt(c, trim(v_temp_str));
  v_temp_str := null;
end if;
end loop;
 utl_smtp.open_data(c);
 utl_smtp.write_data(c,'From: "Testing (' || v_instance ||') " <sender email address>' || utl_tcp.CRLF);
 utl_smtp.write_data(c, 'To: ' || x_email_to || utl_tcp.CRLF);
 utl_smtp.write_data(c, 'Subject: ABC Reject Reason ' || to_char(sysdate,'MM/dd/yyyy HH:mm:ss') || utl_tcp.CRLF);
 utl_smtp.write_data(c, 'MIME-Version: 1.0' || utl_tcp.CRLF);
 utl_smtp.write_data(c,'Content-Type: text/html; charset="utf-8"' ||utl_tcp.CRLF);
 
 
 send_data('<html><body>');
 send_data('<p>Dear Sir,</p>');
 send_data('<p>Please check!</p>');
 send_data('<table border=''0'' width=''100%'' cellpadding=''1'' cellspacing=''1''>');
 send_data('<tr style=''font-size:75%;font-weight:bold;''>');
 send_data('<td>AP_ORG</td>
              <td>ORG_ID</td>
              <td>source</td>
              <td>INVOICE_ID</td>
              <td>Reject_Reason</td>
              <td>Invoice_Num</td>
              <td>Invoice_Date</td>
              <td>GL_Date</td>
              <td>Vendor_Name</td>
              <td>Vendor_Site_Code</td>
              <td>INVOICE_AMOUNT</td>
              <td>INVOICE_CURRENCY_CODE</td>
              <td>EXCHANGE_RATE</td>');
v_r1_row_num := 0;
open c1;
loop
  fetch c1
    into r1;
  exit when c1%notfound;
if (mod(v_r1_row_num,2)=0) then
  send_data('<tr style=''font-size:75%;background-color:#E0EBFF;''>');
 else
  send_data('<tr style=''font-size:75%;''>');
end if;   
send_data('<td>' || r1.AP_ORG || '</td>
           <td>' || r1.ORG_ID || '</td>
           <td>' || r1.source || '</td>
           <td>' || r1.INVOICE_ID || '</td>
           <td>' || r1.Reject_Reason || '</td>
           <td>' || r1.Invoice_Num || '</td>
           <td>' || r1.Invoice_Date || '</td>
         <td>' || r1.GL_Date || '</td>
         <td>' || r1.Vendor_Name || '</td>
         <td>' || r1.Vendor_Site_Code|| '</td>
         <td>' || r1.INVOICE_AMOUNT || '</td>
         <td>' || r1.INVOICE_CURRENCY_CODE || '</td>
         <td>' || r1.EXCHANGE_RATE || '</td></tr>');
 v_r1_row_num := v_r1_row_num + 1;
END LOOP;
CLOSE c1;
send_data('</table>');
send_data('<p>Best Regards,</p>');
send_data('<p>MS Wong</p>');
send_data('</body></html>');
utl_smtp.close_data(c);
utl_smtp.quit(c);
end if ;
 END ;**

创建或替换程序检查\u拒绝\u列表
光标c1为
选择不同的b.NAME AP\u ORG、a.ORG\u ID ORG\u ID、a.source source、，
a、 发票\u ID发票\u ID，拒绝\u查找\u代码拒绝\u原因，
a、 发票编号发票编号，a.发票日期发票日期，a.总账日期总账日期，
a、 供应商名称供应商名称，a.供应商站点代码供应商站点代码，
a、 发票\金额发票\金额，a.发票\货币\代码发票\货币\代码，a.汇率汇率
从ap_接口_拒绝，
ap_发票_接口a，
人力资源部所有组织单位b，
应付款发票行接口d
式中（（父项\u id=a.invoice\u id和父项\u表='AP\u INVOICES\u INTERFACE'）或（父项\u id=d.invoice\u line\u id和父项\u表='AP\u invoice\u INTERFACE'））
和a.INVOICE\u ID=d.INVOICE\u ID
a.ORG\u ID=b.ORGANIZATION\u ID
和a.source='ABC'
;
r1 c1%行类型；
c utl_smtp.connection；
v_实例varchar2（9）；
发送电子邮件至varchar2（4000）；
v_temp_str varchar2（4000）；
v_温度编号；
v_r1_行数_个数；
v_检查编号；
过程发送_数据（varchar2中的p_数据）为
开始
utl_smtp.write_raw_数据（c，utl_raw.cast_to_raw（p_data | | utl_tcp.crlf））；
--fnd_file.put_行（fnd_file.output，p_数据）；
结束；
开始
选择计数（不同的a.INVOICE\u NUM）
进入v_检查
来自应付账款界面拒绝、应付账款发票界面a、人力资源所有组织单位b、应付账款发票行界面d
式中（（父项\u id=a.invoice\u id和父项\u表='AP\u INVOICES\u INTERFACE'）或（父项\u id=d.invoice\u line\u id和父项\u表='AP\u invoice\u INTERFACE'））
和a.INVOICE\u ID=d.INVOICE\u ID
a.ORG\u ID=b.ORGANIZATION\u ID
和a.source='ABC'；
如果v_check>0，则
从v$数据库中选择进入v_实例的名称；
x_email_to:=“电子邮件地址”；
c:=utl_smtp.open_连接（'smtp ip'）；
utl_smtp.helo（c，“smtp ip”
utl_smtp.mail（c，“发件人电子邮件地址”）；
v_temp_str:=替换（x_电子邮件发送至，，，；）；
而长度（v_temp_str）>0圈
v_temp:=仪表（v_temp_str，'；'，1,1）；
如果v_温度>0，则
utl_smtp.rcpt（c，trim（substr（v_temp_str，1，v_temp-1））；
v_temp_str:=substr（v_temp_str，v_temp+1，长度（v_temp_str））；
其他的
utl_smtp.rcpt（c，trim（v_temp_str））；
v_temp_str:=null；
如果结束；
端环；
utl_smtp.打开_数据（c）；
utl|U smtp.write|U数据（c，'From:“Testing（'| | v| | |'）”'| | utl|U tcp.CRLF）；
utl|u smtp.写入_数据（c，'至：'| | x|电子邮件|至| | utl|u tcp.CRLF）；
utl_smtp.将_数据（c，'主题：ABC拒绝原因'| |写入_字符（sysdate，'MM/dd/yyyy HH:MM:ss'）| | utl_tcp.CRLF）；
utl_smtp.write_数据（c，‘MIME版本：1.0’| | utl_tcp.CRLF）；
utl_smtp.write_数据（c，'Content-Type:text/html；charset=“utf-8”'| | utl_tcp.CRLF）；
发送数据（“”）；
发送数据（“亲爱的先生，”）；
发送数据（“请检查！”）；
发送数据（“”）；
发送数据（“”）；
发送数据（'AP\U组织
组织标识
来源
发票号
拒绝理由
发票编号
发票日期
GL_日期
供应商名称
供应商\现场\代码
发票金额
发票\货币\代码
汇率);；
v_r1_行数：=0；
开c1；
环
取c1
进入r1；
未找到c1%时退出；
如果（mod（v_r1_row_num，2）=0），则
发送数据（“”）；
其他的
发送数据（“”）；
如果结束；
发送|u数据（“”| | r1.AP|u ORG | |”
“|| r1.ORG|u ID | |”
“|| r1.source | |”
“| | r1.发票| | |”
“r1.拒绝理由”
“| | r1.发票数量| |”
“| | r1.发票日期| |”
“|| r1.GL|u日期| |”
“| | r1.供应商名称| |”
“| | r1.供应商|现场|代码|”
“r1.发票金额”
“|| r1.发票|货币|代码|”
“r1.汇率”；
v_r1_row_num:=v_r1_row_num+1；
端环；
关闭c1；
发送数据（“”）；
发送数据（致以最良好的祝愿，）；
发送数据（“MS Wong”）；
发送数据（“”）；
utl_smtp.close_数据（c）；
utl_smtp.quit（c）；
如果结束；
结束**

谢谢

本