Need to add extra lines in email generating from oracle

Question

Hi!
I am using Oracle 9i Enterprise Edition 9.2.0.6
I am facing a problem while generating the email from Oracle
Problem is that I want to display the data in following format
Terminal Statistics From: 30-MAR-2008 15:39:00 To: 06-JUN-2008 16:59:00
Containers Examined
Export: 2
Import: 30
but email shows data in following format
Terminal Statistics From: 30-MAR-2008 15:39:00 To: 06-JUN-2008 16:59:00 Containers Examined Export: 2 Import: 30
System combines the all the data in one line, while I have used following function to add new line when and where needed, but unable to get my desired result.
1. utl_tcp.CRLF
2. chr(130) || chr(10)
3. chr(10)
I have used following procedure to generate the email.
PROCEDURE send_html_email(
p_module_name in varchar2,
p_subject in varchar2,
p_text in varchar2 default null,
p_html in varchar2 default null
IS
l_boundary varchar2(32767) default 'a1b2c3d4e3f2g1';
l_connection utl_smtp.connection;
l_body_html clob := empty_clob; --This LOB will be the email message
l_offset number;
l_ammount number;
l_temp varchar2(32767) default null;
l_to varchar2(100);
l_cc varchar2(100);
l_bcc varchar2(100);
t_v_stpt Number:=0;
t_v_endpt Number:=0;
c_v_stpt Number:=0;
c_v_endpt Number:=0;
b_v_stpt Number:=0;
b_v_endpt Number:=0;
l_subject varchar2(255);
BEGIN
/*Function to retrieve the E-mail recipients list according to the Module/application*/
mail_recipient(p_module_name,l_to,l_cc,l_bcc);
l_connection := utl_smtp.open_connection( pk_parameter.setting('MAILSVR'), 25 );
utl_smtp.helo( l_connection, pk_parameter.setting('MAILSVR') );
utl_smtp.mail( l_connection, pk_parameter.setting('MAILFROM') );
l_temp := l_temp || 'MIME-Version: 1.0' || chr(13) || chr(10);
LOOP
t_v_stpt := t_v_stpt + 1;
t_v_endpt := INSTR (l_to, ',', t_v_stpt, 1);
IF l_to is null then
EXIT;
ELSIF t_v_endpt = 0 THEN
UTL_SMTP.rcpt (l_connection, SUBSTR (l_to, t_v_stpt));
EXIT;
ELSE
UTL_SMTP.rcpt (l_connection, SUBSTR (l_to, t_v_stpt, t_v_endpt -t_v_stpt));
END IF;
t_v_stpt := t_v_endpt;
END LOOP;
LOOP
c_v_stpt := c_v_stpt + 1;
c_v_endpt := INSTR (l_cc, ',', c_v_stpt, 1);
IF l_cc is null then
EXIT;
ELSIF c_v_endpt = 0 THEN
UTL_SMTP.rcpt (l_connection, SUBSTR (l_cc, c_v_stpt));
EXIT;
ELSE
UTL_SMTP.rcpt (l_connection, SUBSTR (l_cc, c_v_stpt, c_v_endpt -c_v_stpt));
END IF;
c_v_stpt := c_v_endpt;
END LOOP;
LOOP
b_v_stpt := b_v_stpt + 1;
b_v_endpt := INSTR (l_bcc, ',', b_v_stpt, 1);
IF l_bcc is null then
EXIT;
ELSIF b_v_endpt = 0 THEN
UTL_SMTP.rcpt (l_connection, SUBSTR (l_bcc, b_v_stpt));
EXIT;
ELSE
UTL_SMTP.rcpt (l_connection, SUBSTR (l_bcc, b_v_stpt, b_v_endpt -b_v_stpt));
END IF;
b_v_stpt := b_v_endpt;
END LOOP;
/*Header creation for email.*/
IF l_to is not null or l_cc is not null or l_bcc is not null THEN
l_temp := l_temp || 'To: ' || l_to || chr(13) || chr(10);
l_temp := l_temp || 'CC: ' || l_cc || chr(13) || chr(10);
l_temp := l_temp || 'BCC: ' || l_bcc || chr(13) || chr(10);
l_temp := l_temp || 'From: ' || pk_parameter.setting('MAILFROM') || chr(13) || chr(10);
l_temp := l_temp || 'Subject: ' || p_subject || chr(13) || chr(10);
l_temp := l_temp || 'Reply-To: ' || pk_parameter.setting('MAILFROM') || chr(13) || chr(10);
l_temp := l_temp || 'Content-Type: multipart/alternative; boundary=' ||
chr(34) || l_boundary || chr(34) || chr(13) ||
chr(10);
-- Write the headers
dbms_lob.createtemporary( l_body_html, false, 10 );
dbms_lob.write(l_body_html,length(l_temp),1,l_temp);
-- Write the text boundary
l_offset := dbms_lob.getlength(l_body_html) + 1;
l_temp := '--' || l_boundary || chr(13)||chr(10);
l_temp := l_temp || 'content-type: text/plain; charset=us-ascii' ||
chr(13) || chr(10) || chr(13) || chr(10);
dbms_lob.write(l_body_html,length(l_temp),l_offset,l_temp);
-- Write the plain text portion of the email
l_offset := dbms_lob.getlength(l_body_html) + 1;
dbms_lob.write(l_body_html,length(p_text),l_offset,p_text);
-- Write the HTML boundary
l_temp := chr(13)||chr(10)||chr(13)||chr(10)||'--' || l_boundary ||
chr(13) || chr(10);
l_temp := l_temp || 'content-type: text/html;' ||
chr(13) || chr(10) || chr(13) || chr(10);
l_offset := dbms_lob.getlength(l_body_html) + 1;
dbms_lob.write(l_body_html,length(l_temp),l_offset,l_temp);
-- Write the HTML portion of the message
l_offset := dbms_lob.getlength(l_body_html) + 1;
dbms_lob.write(l_body_html,length(p_html),l_offset,p_html);
-- Write the final html boundary
l_temp := chr(13) || chr(10) || '--' || l_boundary || '--' || chr(13);
l_offset := dbms_lob.getlength(l_body_html) + 1;
dbms_lob.write(l_body_html,length(l_temp),l_offset,l_temp);
-- Send the email in 1900 byte chunks to UTL_SMTP
l_offset := 1;
l_ammount := 32767;
utl_smtp.open_data(l_connection);
while l_offset < dbms_lob.getlength(l_body_html) loop
utl_smtp.write_data(l_connection, dbms_lob.substr(l_body_html,l_ammount,l_offset));
l_offset := l_offset + l_ammount ;
l_ammount := least(32767,dbms_lob.getlength(l_body_html) - l_ammount);
end loop;
utl_smtp.close_data(l_connection);
utl_smtp.quit( l_connection );
dbms_lob.freetemporary(l_body_html);
END IF;
END;
Following procedure calls the above function and generate the email
PROCEDURE generate_statistics
IS
l_minutes NUMBER:=0;
l_sub_type cg_ref_codes.rv_meaning%type;
l_gate_text VARCHAR2(5000);
l_ves_text VARCHAR2(5000);
l_exm_text VARCHAR2(5000);
l_email_text VARCHAR2(5000);
l_gate_tot NUMBER:=0;
l_load_tot NUMBER:=0;
l_discharge NUMBER:=0;
l_exm_tot NUMBER:=0;
/*Declare Cursor to get Examined Containers Summary*/
CURSOR cur_examined_ctrs IS
SELECT decode(eu.category,'I','Import','E','Export') Category, count(*) Total
FROM service_events se, equipment_uses eu
WHERE se.performed BETWEEN round(sysdate-l_minutes/1440,'mi')
AND round(sysdate,'mi')
AND se.tserv_id IN ('EXM')
AND eu.gkey = se.equse_gkey
AND eu.category IN ('I','E')
GROUP BY eu.category;
BEGIN
/*Retrieve parameterized minutes*/
l_minutes := nvl(pk_parameter.setting('STATSGMI'),0);
/*Assign Values to generate email*/
l_email_text := 'Terminal Statistics From: '||
to_char(round(sysdate-l_minutes/1440,'mi'),'DD-MON-RRRR HH24:MI:SS')||
' To: '||to_char(round(sysdate,'mi'),'DD-MON-RRRR HH24:MI:SS')||
chr(13) || chr(10)||chr(13) || chr(10);
l_exm_text := 'Containers Examined'||utl_tcp.CRLF;
FOR rec_examined_ctrs IN cur_examined_ctrs LOOP
/*Generate Text for email - Vessel Activity Crane Wise Starts*/
l_exm_text := l_exm_text ||rec_examined_ctrs.category ||': '||
rec_examined_ctrs.total||utl_tcp.CRLF;
l_exm_tot := l_exm_tot + rec_examined_ctrs.total;
END LOOP;
l_email_text := l_email_text||l_exm_text;
pk_kictl_email.send_html_email('TERM STATISTICS',
'Terminal Statistics Report',
l_email_text,
l_email_text
END;
I have been searching the reason and solution on net since last 2 days but hasn't find it yet.
would anybody plz help me regarding this.
Thanks
Hassan

Answer 1

I checked your suggestions after week end today and found that
the suggestion of Nalla did not provide the result in my required format
rewrite it as l_email_text := l_email_text||CHR(10)||l_exm_text;
Peter & Krithika:
I used html tag <BR> when and where needed and its gave me result in my required format
e.g.: l_exm_text := l_exm_text ||'<br>'||rec_examined_ctrs.category ||': '||
rec_examined_ctrs.total;
Now I want to know if there any html tag thru which I can define the column number so that my text will start from there.
means any html tag replacement of lpad (oracle funtion):
Thanks
Hassan