using sendmail inside a Procedure!

[jovery]

Do you want to be able send an email via a procedure, something like this?

create or replace procedure EMAIL
is
  -- Define mail defaults  
  v_mailhost    varchar2(64) := 'hostname';
  v_from        varchar2(64) := 'oracle@hostname';
  v_to          varchar2(64);
  v_mail_conn   Utl_Smtp.Connection;  
begin
  v_mail_conn := Utl_Smtp.Open_Connection(v_mailhost, 25);
  utl_smtp.helo(v_mail_conn, v_mailhost);
  utl_smtp.mail(v_mail_conn, v_from);
  utl_smtp.rcpt(v_mail_conn, v_to);
  utl_smtp.open_data(v_mail_conn);
  utl_smtp.write_data(v_mail_conn, 'From: "Oracle" ' || utl_tcp.crlf);
  utl_smtp.write_data(v_mail_conn, 'Subject: Test'|| utl_tcp.crlf);
  utl_smtp.write_data(v_mail_conn, 'Email content here...');
  utl_smtp.close_data(v_mail_conn);
  utl_smtp.quit(v_mail_conn);
end EMAIL;