mail

create or replace procedure testsendmail(
subject in varchar2,
mailto in varchar2,
mailco in varchar2,
cont in varchar2) is

  mailsendby       varchar2(40)          := '[e-mail]';
  mailuser         varchar2(30)          := 'pub04177';
  mailpassword     varchar2(30)          :=  'xxxi321';
  mailhost         varchar2(300)         := '1722.224.12.282';
  t_conn            UTL_SMTP.connection; 
  v_msg             varchar2(4000);
begin
   t_conn :=  UTL_SMTP.open_connection(mailhost,25);
    UTL_SMTP.ehlo(t_conn,mailhost);
    UTL_SMTP.command(t_conn, 'AUTH LOGIN');  
    UTL_SMTP.command(t_conn,UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(UTL_RAW.cast_to_raw(mailuser))));   
    UTL_SMTP.command(t_conn,UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(UTL_RAW.cast_to_raw(mailpassword))));   
    UTL_SMTP.mail(t_conn,mailsendby);
    UTL_SMTP.rcpt(t_conn,mailto);
    UTL_SMTP.open_data(t_conn);
      v_msg :='Date:'|| TO_CHAR(SYSDATE, 'dd mon yy hh24:mi:ss')   
        || UTL_TCP.CRLF || 'From: '|| mailsendby || '<' || mailsendby || '>'   
        || UTL_TCP.CRLF || 'To: '  || mailto || '<' || mailto || '>'   
        || UTL_TCP.CRLF || 'Subject: ' || subject   
        || UTL_TCP.CRLF || UTL_TCP.CRLF
        || cont;
        dbms_output.put_line(v_msg);
    UTL_SMTP.write_raw_data(t_conn,UTL_RAW.cast_to_raw(v_msg));
    UTL_SMTP.close_data(t_conn);
    UTL_SMTP.quit(t_conn);
     exception
     when others then
      DBMS_OUTPUT.put_line(DBMS_UTILITY.format_error_stack);   
      DBMS_OUTPUT.put_line(DBMS_UTILITY.format_call_stack);   
      dbms_output.put_line('111111111111');  
end testsendmail;