CREATE OR REPLACE PROCEDURE MAILFROMDB_OLD
IS
SendorAddress VARCHAR2(200) := 'sender@abcd.com';
ReceiverAddress VARCHAR2(200) := 'receiver@abcd.com';
EmailServer VARCHAR2(30) := 'smtp.abcd.com'; --'10.192.30.12';
Port NUMBER := 25;
conn UTL_SMTP.CONNECTION;
crlf VARCHAR2( 2 ):= CHR( 13 ) || CHR( 10 );
mesg VARCHAR2( 4000 );
mesg_body VARCHAR2(4000);
BEGIN
conn:= utl_smtp.open_connection(EmailServer, Port );
utl_smtp.helo( conn, 'mail.abcd.com' );
utl_smtp.mail(conn, SendorAddress);
utl_smtp.rcpt(conn, ReceiverAddress );
utl_smtp.open_data(conn);
mesg:=
'Date: '||TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss' )|| crlf ||
'From: '||SendorAddress|| crlf ||
'Subject: Greetings from oracle mail' || crlf ||
'To: '||ReceiverAddress || crlf ||
'' || crlf ||
'Hi';
mesg:= mesg ||''|| crlf ||
''|| crlf ||
'image'|| crlf ||
''|| crlf ||
''|| crlf ||
'
'|| crlf ||
''|| crlf ||
'';
utl_smtp.write_data(conn, 'Content-Type: text/html'||utl_tcp.crlf);
utl_smtp.write_data(conn, mesg);
utl_smtp.close_data(conn);
utl_smtp.quit(conn);
END;
/