Not getting message using UTL_SMTP

Question

Hi,
i am using the following anonymousblock for getting the mail....
declare
sender VARCHAR2(100):='[email protected]';
recipient VARCHAR2(100):='[email protected]';
ccrecipient VARCHAR2(100):='[email protected]';
subject VARCHAR2(100):='ERROR';
message VARCHAR2(1000):='some error has been occured';
crlf VARCHAR2(2):= UTL_TCP.CRLF;
connection utl_smtp.connection;
mailhost VARCHAR2(30) := '192.168.1.2';
header VARCHAR2(1000);
BEGIN
-- Start the connection.
connection := sys.utl_smtp.open_connection(mailhost,25);
header:= 'Date: '||TO_CHAR(SYSDATE,'dd Mon yy hh24:mi:ss')||crlf||
'From: '||sender||''||crlf||
'Subject: '||subject||crlf||
'To: '||recipient||crlf||
'CC: '||ccrecipient;
-- Handshake with the SMTP server
utl_smtp.helo(connection, mailhost);
utl_smtp.mail(connection, sender);
utl_smtp.rcpt(connection, recipient);
utl_smtp.rcpt(connection, ccrecipient);
utl_smtp.open_data(connection);
-- Write the header
utl_smtp.write_data(connection, header);
utl_smtp.write_data(connection, crlf ||message);
utl_smtp.close_data(connection);
utl_smtp.quit(connection);
END; Here i am getting the mail but i am not getting the message with that mail
Please can any one help me in this......
Thanks
SKPR

Answer 1

You need an empty line between e-mail header and e-mail body.
So change the following line of code:
header:= 'Date: '||TO_CHAR(SYSDATE,'dd Mon yy hh24:mi:ss')||crlf||
'From: '||sender||''||crlf||
'Subject: '||subject||crlf||
'To: '||recipient||crlf||
'CC: '||ccrecipient;to:
header:= 'Date: '||TO_CHAR(SYSDATE,'dd Mon yy hh24:mi:ss')||crlf||
'From: '||sender||''||crlf||
'Subject: '||subject||crlf||
'To: '||recipient||crlf||
'CC: '||ccrecipient||crlf;Note the trailing control LF in the header - this creates the required empty line between the e-mail header and the e-mail body.