sql - Oracle 10 何时打开 UTL_MAIL 连接

Question

我有一个 pl/sql 程序，可以向许多人(20,000+)发送电子邮件。我的问题与 utl_mail 包有关，以及何时实际打开到电子邮件服务器的连接。

例子:

BEGIN
...
OPEN CUR_person;
FETCH CUR_person INTO REC_person;    
WHILE CUR_person%FOUND

LOOP
  UTL_MAIL.send(sender => 'me@address.com',
                recipients => 'you@address.com',
                subject => 'Test Mail',
                message => 'Hello World',
                mime_type => 'text/html');
FETCH CUR_person INTO REC_person;                  
END LOOP;

...
END;
/

我想知道连接是否每人打开一次，或者它是否为第一个人打开，并保持打开状态直到程序完成？

如果每人打开一次 - 那是不好的编码吗？如果我遇到不良数据会爆炸吗？

如果需要更多信息，请询问。谢谢!!

Answer 1

UTL_MAIL隐藏底层SMTP API 是 UTL_SMTP .通常为了易于使用而优选。如果你看到，UTL_SMTP您会注意到您必须执行 utl_smtp.Rcpt对于每个电子邮件地址，不幸的是它一次只接受一个电子邮件 ID。因此，对于多个电子邮件地址来说，基本逻辑是相同的，即遍历电子邮件地址并调用 utl_smtp.Rcpt每个电子邮件地址。一个更好的解决方案是只使用电子邮件分发列表，即一个电子邮件 ID，其中包含一组其他电子邮件 ID。因此，使用 UTL_SMTP它看起来像下面 -

declare
  v_From      VARCHAR2(80) := 'yourhelper@fun.com';
  v_cc        VARCHAR2(80) := 'gethelp@fun.com';  
  v_Recipient VARCHAR2(80) := 'yourhelper@fun.com';
  v_Subject   VARCHAR2(80) := 'test Subject';
  v_Mail_Host VARCHAR2(50) := 'hub.fun.com';
  v_Mail_Conn utl_smtp.Connection;
  crlf        VARCHAR2(2)  := chr(13)||chr(10); 
begin

 v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host, 25);
 utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);
 utl_smtp.Mail(v_Mail_Conn, v_From);

 utl_smtp.Rcpt(v_Mail_Conn, v_Recipient); 
 utl_smtp.Rcpt(v_Mail_Conn, v_cc); -- To CC recepient

 utl_smtp.Data(v_Mail_Conn,
   'Date: '   || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
   'From: '   || v_From || crlf ||
   'Subject: '|| v_Subject || crlf ||
   'To: '     || v_Recipient || crlf ||
   'Cc: '     || v_cc || crlf ||
   'Content-Type: text/html;' ||crlf ||
   'Hello this is a test email');

 utl_smtp.Quit(v_mail_conn);
end;

我没有看到您的代码看起来有任何不良编程，如果您有多个电子邮件 ID，这是唯一的方法。Oracle 引擎需要将电子邮件有效负载提交到 SMTP 服务器(由您指定)每个电子邮件 ID，例如将消息提交到队列。一个相当明显的建议是创建几个 Distribution List一堆电子邮件 ID 均匀分布并使用 DL ID 而不是实际的电子邮件 ID。

这是我的“ Ask Tom”问题之一，可能会稍微清楚一点。

另一种快速的方法是修改您的代码以将电子邮件地址的逗号分隔字符串构建为 UTL_MAIL可以接受逗号分隔的电子邮件地址，例如-

BEGIN
...
email_list   VARCHAR2(10000) := NULL;
email_count  NUMBER(10) := 0;
FOR c_rec in CUR_person
LOOP
   email_list := c_rec.CUR_person || ' , ' || email_list;
   email_count := email_count +1;
   if (email_count = 100)  --100 email ids at a time
   then
      UTL_MAIL.send(sender => 'me@address.com',
                recipients => email_list,
                subject => 'Test Mail',
                message => 'Hello World',
                mime_type => 'text/html');
       email_list := NULL; 
       email_count := 0; 
   end if;
END LOOP

...
END;
/