mail

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

mailsendby varchar2(40) := 'MDDS@xxx.com';
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;