create or replace procedure send_mail (p_to in varchar2,
p_from in varchar2,
p_message in varchar2,
p_smtp_host in varchar2,
p_smtp_port in number default 25)
as
l_mail_conn utl_smtp.connection;
begin
l_mail_conn := utl_smtp.open_connection (p_smtp_host, p_smtp_port);
utl_smtp.helo (l_mail_conn, p_smtp_host);
utl_smtp.mail (l_mail_conn, p_from);
utl_smtp.rcpt (l_mail_conn, p_to);
utl_smtp.data (l_mail_conn, p_message || utl_tcp.crlf || utl_tcp.crlf);
utl_smtp.quit (l_mail_conn);
end;
Run Following
begin
send_mail (p_to => 'xx@domain.com',
p_from => 'xx@domain.com',
p_message => 'mail Body',
p_smtp_host => 'hostname');
end;