Begin 
Sys.Utl_Mail.Send (Sender => 'ahmad <ahmad@sale.com>',
Recipients '<ahmad@sale.com>,<secret.rules@live.com>',
Cc => 'ahmad@sale.com',
Bcc => 'ahmad@sale.com',
Subject => 'Oracle Test Email',
Message => 'Hi',
Mime_Type => 'text/plain; charset=us-ascii',
Priority => 1);

CREATE OR REPLACE Procedure Send_Email_Test(
 Pi_From    In Varchar,
 Pi_To      In Varchar,
 Pi_Cc      In Varchar,
 Pi_Subj    In Varchar,
 Pi_Msg     In CLOB
)

Is

 Conn           Utl_Smtp.Connection;
 Lv_Mailhost    Varchar2(1000);
 Lv_Port        Number;

Begin

 Lv_Mailhost    := 'webmail.sale-co.com';
 Lv_Port        := 25;

 Conn := Utl_Smtp.Open_Connection(Lv_Mailhost, Lv_Port);

 Utl_Smtp.Helo(Conn, Lv_Mailhost);
 Utl_Smtp.Mail(Conn, Pi_From);
 Utl_Smtp.Rcpt(Conn, Pi_To);
 
 If Pi_Cc Is Not Null Then
    Utl_Smtp.Rcpt(Conn, Pi_Cc);
 End If;

 
 Utl_Smtp.Open_Data(Conn);
 Utl_Smtp.Write_Data(Conn, 'MIME-version: 1.0' || Utl_Tcp.Crlf);
 Utl_Smtp.Write_Data(Conn, 'Content-Type: multipart/alternative; charset=AL32UTF8' ||Utl_Tcp.Crlf);
 Utl_Smtp.Write_Data(Conn, 'Content-Transfer-Encoding: 8bit'||Utl_Tcp.Crlf);
 

 Utl_Smtp.Write_Data(Conn, 'From:'     ||Pi_From || Utl_Tcp.Crlf);
 Utl_Smtp.Write_Data(Conn, 'To:'       ||Pi_To   || Utl_Tcp.Crlf);
 Utl_Smtp.Write_Data(Conn, 'Cc:'       ||Pi_Cc   || Utl_Tcp.Crlf); 
 Utl_Smtp.Write_Data(Conn, 'Reply-To:' ||Pi_From || Utl_Tcp.Crlf); 
 Utl_Smtp.Write_Data(Conn, 'Subject:'  ||Pi_Subj || Utl_Tcp.Crlf);

 
 Utl_Smtp.Write_Data(Conn, Utl_Tcp.Crlf);
 --Utl_Smtp.Write_Raw_Data(Conn, Utl_Raw.Cast_To_Raw(Pi_Subj));
 Utl_Smtp.Write_Raw_Data(Conn, Utl_Raw.Cast_To_Raw(Pi_Msg));
 Utl_Smtp.Close_Data(Conn);
 Utl_Smtp.Quit(Conn);
 


Exception When Others Then 
    Dbms_Output.Put_Line(Sqlerrm);
    
End;
/