BEGIN
   DBMS_NETWORK_ACL_ADMIN.CREATE_ACL (
    acl          => 'ninjasmtp.xml',
    description  => 'Permissions to access SMTP Server',
    principal    => 'SYS',
    is_grant     => TRUE,
    privilege    => 'connect');

  DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE (
    acl          => 'ninjasmtp.xml',
    principal    => 'SYS',
    is_grant     => TRUE, 
    privilege    => 'resolve',
    position     => null);

  DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL (
    acl          => 'ninjasmtp.xml',
    host         => 'smtp.yandex.ru',
    lower_port    => 1,
    upper_port    => 1024);
   COMMIT;
END;

BEGIN
   DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE (
    acl          => 'ninjasmtp.xml',
    principal    => 'SYS',
    is_grant     => TRUE, 
    privilege    => 'use-client-certificates');
  COMMIT;
END;

DBMS_NETWORK_ACL_ADMIN.ASSIGN_WALLET_ACL(
    acl         => 'ninjasmtp.xml',
    wallet_path => 'file:C:\1\ynd_wallet');

mail_conn := utl_smtp.open_connection(host => 'smtp.yandex.ru',
                                port => 465,
                                wallet_path => 'file:C:\1\ynd_wallet',
                                wallet_password => 'VCON_2016',
                                secure_connection_before_smtp => FALSE);

telnet smtp.yandex.ru 465

telnet smtp.yandex.ru 465

procedure SEND_MAIL(P_M_ABONENT_ADDR_        in GL_EMAIL.EMAIL%TYPE,
                      P_MAIL_TEXT_             in CLOB,
                    	Err_Code          OUT ADM.TYPES.TErr_Code,
                    	Err_Msg           OUT ADM.TYPES.TErr_Msg)
  IS
    -- переменная, представляющая smtp-соединение
    ProcName       constant ADM.Types.TProc_Name := 'MAIN.PKG_MAIL.SEND_MAIL';
    pnt_           varchar2(5);
    SENDER_        VARCHAR2(64)    := 'test@test.kz';
    SENDER_DESCRIPTION_            VARCHAR2(64):= 'АИП ''TEST'' <test@test.kz>;';
    MAIL_CONN                      UTL_SMTP.connection;
    SERVER_ADDR_                   VARCHAR2(64) := '10.10.10.40';  -- здесь ip почтового сервера
    SERVER_PORT_                   NUMBER := 25;
    b blob;
    buffer          raw(32767);
    amount          integer := 16383;
  BEGIN
    -- установка соединения
    pnt_ := '01';
    mail_conn := UTL_SMTP.open_connection(server_addr_, server_port_);

    -- подтверждение установки связи
    UTL_SMTP.helo(mail_conn, server_addr_);

    -- установка адреса отправителя
    pnt_ := '02';
    UTL_SMTP.mail(mail_conn, SENDER_);
    -- установка адреса получателя
    UTL_SMTP.rcpt(mail_conn, P_M_ABONENT_ADDR_);
    -- отправка команды data, после которой можно начать передачу письма
    UTL_SMTP.open_data(mail_conn);

    -- отправка заголовков письма: дата, "от", "кому", "тема"
    pnt_ := '03';
    UTL_SMTP.write_data(mail_conn, 'Date: ' || TO_CHAR(SYSDATE, 'dd Mon yy hh24:mi:ss', 'NLS_DATE_LANGUAGE = RUSSIAN') || UTL_TCP.crlf);
    utl_smtp.write_raw_data(mail_conn, utl_raw.cast_to_raw('From: ' || convert(SENDER_DESCRIPTION_, 'AL32UTF8') || utl_tcp.crlf));
    UTL_SMTP.write_data(mail_conn, 'To: '|| P_M_ABONENT_ADDR_ || UTL_TCP.crlf);
    UTL_SMTP.write_raw_data(mail_conn, UTL_RAW.cast_to_raw('Subject: '|| convert(MH_NOTIFY, 'AL32UTF8') || UTL_TCP.crlf));

    -- Кодировка
    pnt_ := '04';
    UTL_SMTP.write_data(mail_conn, 'MIME-Version: 1.0' || UTL_TCP.crlf);
    UTL_SMTP.write_data(mail_conn, 'Content-Type: text/plain; charset="UTF-8"' || UTL_TCP.crlf);
    UTL_SMTP.write_data(mail_conn, 'Content-Transfer-Encoding: quoted-printable' || UTL_TCP.crlf);

    -- текст письма
    pnt_ := '04a';
    DBMS_LOB.CREATETEMPORARY(b, TRUE);
    b := RK1048_TO_UNICODE_UTF8(P_MAIL_TEXT_);
    dbms_lob.read(b, amount, 1, buffer);

    pnt_ := '04b';
    UTL_SMTP.write_raw_data(mail_conn, UTL_RAW.cast_to_raw(UTL_TCP.CRLF));
    UTL_SMTP.write_raw_data(mail_conn, buffer);

    -- передача сигнала о завершении передачи сообщения
    pnt_ := '06';
    UTL_SMTP.close_data(mail_conn);
    -- завершение сессии и закрытие соединения с сервером
    UTL_SMTP.quit(mail_conn);
  EXCEPTION
    -- если произошла ошибка передачи данных, закрыть соединение и вернуть
    -- ошибку передачи письма
    WHEN UTL_SMTP.transient_error OR UTL_SMTP.permanent_error THEN
      BEGIN
        UTL_SMTP.quit(mail_conn);
      EXCEPTION
        -- Если SMTP сервер недоступен, соединение с сервером отсутствует.
        -- Вызов QUIT приводит к ошибке. Обработка исключения позволяет
        -- игнорировать эту ошибку.
        WHEN UTL_SMTP.transient_error OR UTL_SMTP.permanent_error THEN
          NULL;
      END;
      ROLLBACK;
      Err_Code := SQLCODE;
      Err_Msg  := ProcName || ' pnt_ ' || pnt_ ||
        ADM.ERROR_PACK.Get_Err_Msg('0000', Err_Code, SQLERRM) ||
          'Ошибка при отправке почты';

    WHEN OTHERS THEN
      ROLLBACK;
      Err_Code := SQLCODE;
      Err_Msg  := ProcName || ' pnt_ ' || pnt_ ||
        ADM.ERROR_PACK.Get_Err_Msg('0000', Err_Code, SQLERRM) ||
          'Ошибка при отправке почты';
  END;