CREATE OR REPLACE PROCEDURE send_mail_test (
    smtphost         IN VARCHAR2,
    smtpport         IN PLS_INTEGER DEFAULT 25,
    mailfrom         IN VARCHAR2,
    rcptto           IN VARCHAR2,
    messagesubject   IN VARCHAR2,
    messagebody      IN VARCHAR2,
    username         IN VARCHAR2,
    password         IN VARCHAR2
) IS
    l_conn               UTL_SMTP.connection;
    l_encoded_username   VARCHAR2(2048);
    l_encoded_password   VARCHAR2(2048);
    crlf                 VARCHAR2(2) := CHR(10)
     ||  CHR(13);
BEGIN
    l_encoded_username := UTL_RAW.cast_to_varchar2(
        UTL_ENCODE.base64_encode(UTL_RAW.cast_to_raw(username) )
    );
    l_encoded_password := UTL_RAW.cast_to_varchar2(
        UTL_ENCODE.base64_encode(UTL_RAW.cast_to_raw(password) )
    );
    l_conn := UTL_SMTP.open_connection(smtphost,smtpport);
    UTL_SMTP.ehlo(l_conn,smtphost);

    UTL_SMTP.command(l_conn,'AUTH','LOGIN');
    UTL_SMTP.command(l_conn,username);
    UTL_SMTP.command(l_conn,password);
    UTL_SMTP.mail(l_conn,mailfrom);
    UTL_SMTP.rcpt(l_conn,rcptto);
    UTL_SMTP.open_data(l_conn);
    UTL_SMTP.write_data(
        l_conn,
        'To: '
         ||  rcptto
         ||  crlf
    );
    UTL_SMTP.write_data(
        l_conn,
        'From: '
         ||  mailfrom
         ||  crlf
    );
    UTL_SMTP.write_data(
        l_conn,
        'Subject: '
         ||  messagesubject
         ||  crlf
    );
    UTL_SMTP.write_data(
        l_conn,
        messagebody
         ||  crlf
         ||  crlf
    );
    UTL_SMTP.close_data(l_conn);
    UTL_SMTP.quit(l_conn);
END;