Wie Sie E-Mails in Oracle PL/SQL-Paket an mehrere Empfänger?

Wie E-Mails in Oracle PL/SQL-Paket an mehrere Empfänger? Ich habe unter pl/sql-Prozedur in einer oracle-Paket, es funktioniert nur für einen Empfänger. Ich brauche, um es zu verbessern, funktionell, lassen Sie Sie senden können E-Mail an mehrere Empfänger zur gleichen Zeit wie "Zu: David Festool; Peter Makita; John Dewalt". Jede Stelle kann mir helfen wird großartig sein, zu schätzen wissen! Bitte geben Sie mir geänderten code.

procedure email(p_recip   in varchar2,
                p_subject in varchar2,
                p_message in varchar2) is

  c   utl_smtp.connection;
  msg varchar2(4000);

  procedure send_header(name in varchar2, header in varchar2) as
  begin
    utl_smtp.write_data(c, name || ': ' || header || utl_tcp.crlf);
  end;
begin
  --Open SMTP connection
  c := utl_smtp.open_connection('ExchangeServerName');

  -- Write SMTP header
  utl_smtp.helo(c, 'ExchangeServerName');
  utl_smtp.mail(c, '[email protected]');
  utl_smtp.rcpt(c, p_recip);
  utl_smtp.open_data(c);
  send_header('From', '"Title" <[email protected]');
  send_header('To', p_recip);
  send_header('Subject', p_subject);
  send_header('Mime-Version', '1.0');
  send_header('Content-Type', 'multipart/mixed; boundary="DMW.Boundary.605592468"');

  -- Write MIME boundary line for the message body
  msg := utl_tcp.crlf || '--DMW.Boundary.605592468' || utl_tcp.crlf ||
         'Content-Type: text/plain' || utl_tcp.crlf ||
         'Content-Transfer-Encoding: 7bit' || utl_tcp.crlf ||
         utl_tcp.crlf;
  utl_smtp.write_data(c, msg);

  -- Write message body
  utl_smtp.write_data(c, p_message || utl_tcp.crlf);

  -- Clean up
  utl_smtp.close_data(c);
  utl_smtp.quit(c);
exception
  when utl_smtp.transient_error or utl_smtp.permanent_error then
    begin
      utl_smtp.quit(c);
    exception
      when utl_smtp.transient_error or utl_smtp.permanent_error then
        null;
        -- When the SMTP server is down or unavailable, we don't have
      -- a connection to the server. The QUIT call will raise an
      -- exception that we can ignore.
    end;

    raise_application_error(-20000, 'Failed to send mail due to the following error: ' ||
                             sqlerrm);
end;
--------------------------------------------------------------
Können Sie UTL_MAIL.SENDEN statt? Dann verwenden Sie eine durch Kommas getrennte Liste für die Empfänger.

InformationsquelleAutor Deep in Development | 2013-07-18

  1. 7

    Müssen Sie rufen Sie utl_smtp.rcpt mehrfach, einmal für jeden Empfänger; Sie können nicht geben, eine Liste von Werten in einem Aufruf.

    Aus der UTL_SMTP.RCPT-Dokumentation:

    Senden Sie eine Nachricht an mehrere Empfänger senden möchten, rufen Sie diese routine mehrere
    mal. Jeder Aufruf Zeitpläne Lieferung an eine einzige e-mail-Adresse.

    Dass heißt, Sie können nicht wirklich übergeben Sie eine Zeichenfolge von Namen, es sei denn, du bist glücklich, analysieren Sie die einzelnen Adressen aus, es wäre einfacher, übergeben Sie ein array von Werten, wahrscheinlich.

    Den TO header ist eine andere Frage; wenn ich mich Recht erinnere, ist das wirklich nur für die Anzeige, und nachdem eine Adresse als rcpt aber nicht in der TO (oder CC) - header ist wie BCC umgesetzt wird. Citation needed obwohl...

    Hier ist ein Alter AskTom Artikel demonstriert dies. jonearles Vorschlag, UTL_MAIL sollte untersucht werden, obwohl.

    +1 und Sie sind richtig über die BCC Umsetzung - rufen Sie einfach RCPT und nicht im Header der Nachricht.

    InformationsquelleAutor Alex Poole

  2. 1

    Das format ist:

    UTL_MAIL.SEND (sender, recipientlist, cc, bcc, subject, Message, mime_type, priority)

    Den recipientlist, cc -, und bcc-Parameter werden alle durch Komma-getrennte Liste von Empfänger -, Kopie-und Blindkopie e-mail-Adressen.

    Den Absender, den Betreff, die Nachricht und die mime_type Parameter sind alle einzelne Elemente von Feldern.

    InformationsquelleAutor UTL_MAIL

  3. 0

    Führen Sie einfach den unten Verfahren mit Wechsel-code:

    v_Mail_Host VARCHAR2(50) := 'uacemail.rxcorp.com'; -- dein host die ip oder den Namen

    Ausführen:

    beginnen
    prc_email_send( '[email protected]', -- E-Mail Aus

    '[email protected]',---Empfänger

    '[email protected];[email protected]',-- Cc-Liste

    'Dies ist der Betreff ',
    "Das ist E-mail-body' );

    end;
    /

    Prozedur-Code:

    Create or replace procedure prc_email_send(
v_From      VARCHAR2,
v_Recipient VARCHAR2,
v_cc_list varchar2,
v_Subject   VARCHAR2,   
v_Mail_body VARCHAR2
)

is
v_Mail_Host VARCHAR2(50) := 'uacemail.rxcorp.com';
v_Mail_Conn utl_smtp.Connection;

crlf        VARCHAR2(2)  := chr(13)||chr(10);
CC_parties varchar2(2000);

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);

 for i in (SELECT LEVEL AS id, REGEXP_SUBSTR(v_cc_list, '[^;]+', 1, LEVEL) AS cc_email_name
           FROM dual
           CONNECT BY REGEXP_SUBSTR(v_cc_list, '[^;]+', 1, LEVEL) IS NOT NULL) loop
    CC_parties := CC_parties||';'|| i.cc_email_name;
  utl_smtp.Rcpt(v_Mail_Conn,i.cc_email_name);

end loop;


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: '     || CC_parties|| crlf ||
                'Content-Type: text/html;' ||crlf ||
                v_Mail_body);
utl_smtp.Quit(v_mail_conn);

EXCEPTION
   WHEN OTHERS THEN
      BEGIN
     DBMS_OUTPUT.put_line (
        SUBSTR (
              'Unable to send mail to recipients. Error message: '
              || SQLERRM
              || CHR (10)
              || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE (),
                 1,255));
     UTL_SMTP.quit (v_Mail_Conn);
     UTL_TCP.close_all_connections;
  EXCEPTION
     WHEN UTL_SMTP.transient_error OR UTL_SMTP.permanent_error   THEN
        NULL;     
  END;
END;

    Dies ist in Ordnung für mich

    InformationsquelleAutor Shahidul Islam Molla

Schreibe einen Kommentar