mail snding

CREATE OR REPLACE PROCEDURE MAIL.PDB1_INVIO_MAIL_CLOB(P_FROM      IN VARCHAR2,
                                                      P_TO        IN VARCHAR2,
                                                      P_CC        IN VARCHAR2 DEFAULT NULL,
                                                      P_OBJECT    IN VARCHAR2,
                                                      P_TEXT      IN clob,
                                                      P_ATTACH    IN VARCHAR2 DEFAULT NULL,
                                                      P_MAIL_TYPE IN VARCHAR2 DEFAULT 'TEXT') IS
  v_mail_server varchar2(250);
BEGIN
  begin
    select meaning
      into v_mail_server
      from pra_lookups
     where lookup_type = 'PII_MAIL_SERVER'
       and lookup_code = 'PII_CLOUD_INSTANCE'
       and sysdate between start_date_active and
           nvl(end_date_active, sysdate + 1);
  exception
    when others then
      v_mail_server := 'smtpmail.np.ge.com';
  end;

  if p_to is null then
    raise_application_error('Destinatario assente!', -20000);
  end if;
  --  dbms_mail_service_ext_att.init('msxitfi01npge.np.ge.com','msxitfi01npge.np.ge.com',P_FROM);
  --  dbms_mail_service_ext_att_clob.init('smtpmail.np.ge.com','smtpmail.np.ge.com',P_FROM,P_MAIL_TYPE);
  dbms_mail_service_ext_att_clob.init(v_mail_server,
                                      v_mail_server,
                                      P_FROM,
                                      P_MAIL_TYPE);
  dbms_mail_service_ext_att_clob.SendPlainTextMessageClob(P_TO,
                                                          nvl(P_CC, ' '),
                                                          P_OBJECT,
                                                          P_TEXT,
                                                          nvl(p_ATTACH, ' '));
END PDB1_INVIO_MAIL_CLOB;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/269025/viewspace-1470831/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/269025/viewspace-1470831/