declare
  mail_conn utl_smtp.connection;
  -- mail_host varchar2(20) := '## remove at OP request #';
  mail_host varchar2(20) := '## remove at OP request #';

  sender varchar2(50) := '## remove at OP request #';
  /*receiver varchar2(50) := '## remove at OP request #';
  message  varchar2(5000) := 'kappu this is from procedure';
   */
begin
  mail_conn := utl_smtp.open_connection(mail_host);
  dbms_output.put_line('connection obtained');
  utl_smtp.helo(mail_conn, mail_host);
  dbms_output.put_line('association between host and conn object obtained');
  utl_smtp.mail(mail_conn, sender);
  /* utl_smtp.rcpt(mail_conn, receiver);
  utl_smtp.data(mail_conn, message);
  utl_smtp.quit(mail_conn);
  utl_smtp.close_data(mail_conn);
  */
end;
 
ORA-29279: SMTP permanent error: 501 Syntax error, parameters in command "MAIL FROM:rthirunagari@vitechinc.com" unrecognized or missing
ORA-06512: at "SYS.UTL_SMTP", line 20
ORA-06512: at "SYS.UTL_SMTP", line 98
ORA-06512: at "SYS.UTL_SMTP", line 221
ORA-06512: at line 16
 

SQL> set serveroutput on 
SQL> 
SQL> declare
  2    c           utl_tcp.connection;
  3    msg_from    varchar2(50) := '## remove at OP request #';
  4    msg_to      varchar2(50) := '## remove at OP request #';
  5    /*msg_from    varchar2(50) := 'kmaddineni';
  6    msg_to      varchar2(50) := 'rthirunagari';*/
  7    msg_subject varchar2(50) := 'hi';
  8    msg_text    varchar2(50) := 'mail from procedure ';
  9    rc          integer;
 10  BEGIN
 11  
 12    -- c := utl_tcp.open_connection('## remove at OP request #', 25); -- open the SMTP port 25 on local machine by using ip address --## remove at OP request #
 13    c := utl_tcp.open_connection('## remove at OP request #', 25); -- open the SMTP port 25 on local machine by using name
 14    dbms_output.put_line(utl_tcp.get_line(c, TRUE));
 15    rc := utl_tcp.write_line(c, 'HELO localhost');
 16    dbms_output.put_line(utl_tcp.get_line(c, TRUE));
 17    rc := utl_tcp.write_line(c, 'MAIL FROM: ' || msg_from);
 18    dbms_output.put_line(utl_tcp.get_line(c, TRUE));
 19    rc := utl_tcp.write_line(c, 'RCPT TO: ' || msg_to);
 20    dbms_output.put_line(utl_tcp.get_line(c, TRUE));
 21    rc := utl_tcp.write_line(c, 'DATA'); -- Start message body
 22    dbms_output.put_line(utl_tcp.get_line(c, TRUE));
 23    rc := utl_tcp.write_line(c, 'Subject: ' || msg_subject);
 24    dbms_output.put_line(utl_tcp.get_line(c, TRUE));
 25    rc := utl_tcp.write_line(c, msg_text);
 26    rc := utl_tcp.write_line(c, '.'); -- End of message body
 27    dbms_output.put_line(utl_tcp.get_line(c, TRUE));
 28    rc := utl_tcp.write_line(c, 'QUIT');
 29    dbms_output.put_line(utl_tcp.get_line(c, TRUE));
 30    utl_tcp.close_connection(c); -- Close the connection
 31  
 32  EXCEPTION
 33    when others then
 34      raise_application_error(-20000,
 35                              'Unable to send e-mail message from pl/sql because of: ' ||
 36                              sqlerrm);
 37  END;
 38  /
 
220 ## remove at OP request # ESMTP Service (Lotus Domino Release 8.5.1) ready at Thu, 12 Apr 2012 02:36:38 -0400
250 ## remove at OP request # Hello localhost ([## remove at OP request #]), pleased to meet you
501 Syntax error, parameters in command "MAIL FROM: ## remove at OP request #" unrecognized or missing
501 Syntax error, parameters in command "RCPT TO: ## remove at OP request #" unrecognized or missing
503 Issue RCPT TO: command before DATA command
500 Syntax error, command "Subject: hi" unrecognized
501 Syntax error, parameters in command "mail from procedure" unrecognized or missing
500 Syntax error, command "." unrecognized
 
PL/SQL procedure successfully completed
 
SQL> 

SQL> l
  1  DECLARE
  2    v_From      VARCHAR2(80) := '<remove for confidentiality>';
  3    v_Recipient VARCHAR2(80) := '<remove for confidentiality>';
  4    v_Subject   VARCHAR2(80) := 'test subject';
  5    v_Mail_Host VARCHAR2(30) := '<remove for confidentiality>';
  6    v_Mail_Conn utl_smtp.Connection;
  7    crlf        VARCHAR2(2)  := chr(13)||chr(10);
  8  BEGIN
  9   v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host, 25);
 10   utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);
 11   utl_smtp.Mail(v_Mail_Conn, v_From);
 12   utl_smtp.Rcpt(v_Mail_Conn, v_Recipient);
 13   utl_smtp.Data(v_Mail_Conn,
 14     'Date: '   || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
 15     'From: '   || v_From || crlf ||
 16     'Subject: '|| v_Subject || crlf ||
 17     'To: '     || v_Recipient || crlf ||
 18     crlf ||
 19     'some message text'|| crlf || -- Message body
 20     'more message text'|| crlf
 21   );
 22   utl_smtp.Quit(v_mail_conn);
 23  EXCEPTION
 24   WHEN utl_smtp.Transient_Error OR utl_smtp.Permanent_Error then
 25     raise_application_error(-20000, 'Unable to send mail: '||sqlerrm);
 26* END;
SQL> /

Procédure PL/SQL terminée avec succès.