4

我有一个 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;
/

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

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

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

4

1 回答 1

6

UTL_MAIL隐藏底层SMTPAPI，即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，例如将消息提交到队列。一个相当明显的建议是创建几个分布列表，其中包含一组均匀分布的电子邮件 ID，并使用 DL ID 而不是实际的电子邮件 ID。

这是我的“问汤姆”问题之一，可能会稍微澄清这一点。

另一种快速的方法是修改您的代码以构建一个逗号分隔的电子邮件地址字符串，因为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;
/
于 2012-09-14T14:47:35.967 回答