Html Email Authentication

Question

I use below Oracle DB version.
I have procedure that sends email from oracle db.
I want to change my code TLS encryption support.
You may find my procedure below.
NLSRTL
11.2.0.1.0
Production
Oracle Database 11g
11.2.0.1.0
64bit Production
PL/SQL
11.2.0.1.0
Production
TNS for Linux:
11.2.0.1.0
Production
create or replace
procedure html_email(
    p_to            in varchar2,
    p_to2           in varchar2,
    p_to3           in varchar2,
    p_to4           in varchar2,
    p_to5           in varchar2,
    p_from          in varchar2,
    p_subject       in varchar2,
    p_text          in varchar2 default null,
    p_html          in varchar2 default null,
    p_smtp_hostname in varchar2,
    p_smtp_portnum  in varchar2)
is
    l_boundary      varchar2(255) default 'a1b2c3d4e3f2g1';
    l_connection    utl_smtp.connection;
    l_body_html     clob := empty_clob;  --This LOB will be the email message
    l_offset        number;
    l_ammount       number;
    l_temp          varchar2(32767) default null;
begin
    l_connection := utl_smtp.open_connection( p_smtp_hostname, p_smtp_portnum );
    utl_smtp.helo( l_connection, p_smtp_hostname );
    utl_smtp.mail( l_connection, p_from );
    utl_smtp.rcpt( l_connection, p_to );
    utl_smtp.rcpt( l_connection, p_to2 );
    utl_smtp.rcpt( l_connection, p_to3 );
    utl_smtp.rcpt( l_connection, p_to4 );
    utl_smtp.rcpt( l_connection, p_to5 );
    l_temp := l_temp || 'MIME-Version: 1.0' ||  chr(13) || chr(10);
    l_temp := l_temp || 'To: ' || p_to || chr(13) || chr(10) ;
    --||';'|| p_to2 || chr(13) || chr(10) ||';'|| p_to3 || chr(13) || chr(10) ||';'|| p_to4 || chr(13) || chr(10) ||';'|| p_to5 || chr(13) || chr(10) ||';'|| p_to6 || chr(13) || chr(10);
    l_temp := l_temp || 'To: ' || p_to2 || chr(13) || chr(10);
    l_temp := l_temp || 'To: ' || p_to3 || chr(13) || chr(10);
    l_temp := l_temp || 'To: ' || p_to4 || chr(13) || chr(10);
    l_temp := l_temp || 'To: ' || p_to5 || chr(13) || chr(10);
    l_temp := l_temp || 'From: ' || p_from || chr(13) || chr(10);
    l_temp := l_temp || 'Subject: ' || p_subject || chr(13) || chr(10);
    l_temp := l_temp || 'Reply-To: ' || p_from ||  chr(13) || chr(10);
    l_temp := l_temp || 'Content-Type: multipart/alternative; boundary=' ||
                         chr(34) || l_boundary ||  chr(34) || chr(13) ||
                         chr(10);
    -- Write the headers
    dbms_lob.createtemporary( l_body_html, false, 10 );
    dbms_lob.write(l_body_html,length(l_temp),1,l_temp);
    -- Write the text boundary
    l_offset := dbms_lob.getlength(l_body_html) + 1;
    l_temp   := '--' || l_boundary || chr(13)||chr(10);
    l_temp   := l_temp || 'content-type: text/plain; charset=us-ascii' ||
                  chr(13) || chr(10) || chr(13) || chr(10);
    dbms_lob.write(l_body_html,length(l_temp),l_offset,l_temp);
    -- Write the plain text portion of the email
    l_offset := dbms_lob.getlength(l_body_html) + 1;
    dbms_lob.write(l_body_html,length(p_text),l_offset,p_text);
    -- Write the HTML boundary
    l_temp   := chr(13)||chr(10)||chr(13)||chr(10)||'--' || l_boundary ||
                    chr(13) || chr(10);
    l_temp   := l_temp || 'content-type: text/html;' ||
                   chr(13) || chr(10) || chr(13) || chr(10);
    l_offset := dbms_lob.getlength(l_body_html) + 1;
    dbms_lob.write(l_body_html,length(l_temp),l_offset,l_temp);
    -- Write the HTML portion of the message
    l_offset := dbms_lob.getlength(l_body_html) + 1;
    dbms_lob.write(l_body_html,length(p_html),l_offset,p_html);
    -- Write the final html boundary
    l_temp   := chr(13) || chr(10) || '--' ||  l_boundary || '--' || chr(13);
    l_offset := dbms_lob.getlength(l_body_html) + 1;
    dbms_lob.write(l_body_html,length(l_temp),l_offset,l_temp);
    -- Send the email in 1900 byte chunks to UTL_SMTP
    l_offset  := 1;
    l_ammount := 1900;
    utl_smtp.open_data(l_connection);
    while l_offset < dbms_lob.getlength(l_body_html) loop
        utl_smtp.write_data(l_connection,
                            dbms_lob.substr(l_body_html,l_ammount,l_offset));
        l_offset  := l_offset + l_ammount ;
        l_ammount := least(1900,dbms_lob.getlength(l_body_html) - l_ammount);
    end loop;
    utl_smtp.close_data(l_connection);
    utl_smtp.quit( l_connection );
    dbms_lob.freetemporary(l_body_html);
end;

Answer 1

Hi,
I have created a walllet.
Bu when i run the script you send i get below error
DECLARE
c utl_smtp.connection;
BEGIN
c := utl_smtp.open_connection(
host => 'smtp.office365.com',
port => 25,
wallet_path => '/home/oracle/app/oracle/admin/HDF/wallet',
wallet_password => 'hedefmiles',
secure_connection_before_smtp => FALSE);
UTL_SMTP.STARTTLS(c);
UTL_SMTP.AUTH(
c => c,
username => '[email protected]',
password => 'Password',
schemes => utl_smtp.all_schemes);
END;
ERROR:
Error report:
ORA-06550: row 4, column 6:
PLS-00306: 'OPEN_CONNECTION'  wrong number or types of arguments in call to  'OPEN_CONNECTION'
ORA-06550: row 4, column 1:
PL/SQL: Statement ignored
ORA-06550: row 10, column 10:
PLS-00302: 'STARTTLS' must be declared
ORA-06550: row 10, column 1:
PL/SQL: Statement ignored
ORA-06550: row 15, column 21:
PLS-00302: 'ALL_SCHEMES' must be declared
ORA-06550: row 11, column 1:
PL/SQL: Statement ignored
06550. 00000 -  "line %s, column %s:\n%s"
*Cause:    Usually a PL/SQL compilation error.
*Action: