Formatting of utl_mail in Table Format

Question

Hi ,
Can any one please help me in formatting the mail content in table format .
Kindly look at the code given below .
Please do the needful.
PROCEDURE SEND_MAIL_update IS
vSubject Varchar2(200);
vMsg_BODY Varchar2(2000);
vPm_login Varchar2(200);
vSQA_login Varchar2(200);
vSQA_Mgr_login Varchar2(200);
vACT_NAME Varchar2(200);
vPLAN_DT Date;
vTo_login Varchar2(100);
vRole Varchar2(100);
vStatus Varchar2(200);
vfdback Varchar2(200);
Cursor C_plan_dtl is select
* from SQA_PLAN_DETAIL
where Plan_ID_FK_=:Parameter.Plan_ID
and PLANNED_DATE is not null;
Begin
     vSQA_Mgr_login:=null;
     vPm_login :=null;
     vTo_login :=NULL;
     vSQA_login :=null;
For i in C_plan_dtl loop
select name into vACT_NAME
From SQA_activity_master
Where id =i.ACTIVITY_ID;
vMsg_BODY :=vMsg_BODY||vACT_NAME||' '||to_char(i.PLANNED_DATE,'DD-Mon-YYYY')||' '||i.REMARKS||chr(10)||chr(10);
END LOOP;     
Begin     
select
feedback into vfdback from SQA_PLAN_MASTER
where ID=:Parameter.Plan_ID;
end;
begin
Begin     
Select login||'@softsolindia.com'
into vsqA_mgr_login
from orzmembers_vu
where id=(select sqa_mgr_id
from assign_sqa
Where id=:Parameter.Project_ID
and rownum=1);
Exception
     When others then
     dsp.msg('SQA Manager Mail Id Not Found'||sqlerrm);
End;
Begin
     Select login||'@softsolindia.com'
into vSQA_login
from orzmembers_vu
where id=(select sqa_id
from assign_sqa
Where id=:Parameter.Project_ID
and rownum=1);
Exception
     When others then
     dsp.msg('SQA Mail Id Not Found'||sqlerrm);
     end;
Begin
Select login||'@softsolindia.com'
into vpm_login
from orzmembers_vu
where id=(select manager_id
from sqa_project_master
Where id=:Parameter.Project_ID
and rownum=1);
Exception
     When others then
     dsp.msg('Project Manager Mail Id Not Found'||sqlerrm);
End;
* if :PARAMETER.PRS_STAT='R' and :parameter.prv_stat='N' THEN
     vStatus:='Below planned activities are reviewed'||chr(10)||chr(10)||'Activity Name Planned Date Remarks'||chr(10);
elsif :PARAMETER.PRS_STAT='A' and :parameter.prv_stat='R' THEN     
vStatus:='Below planned activities are approved'||chr(10)||chr(10)||'Activity Name Planned Date Remarks'||chr(10);
else          
     vStatus:='Below is the schedule planned(Updated) for the sqa activities.'||chr(10)||'Request you to review and provide approval/feedback'||chr(10)||chr(10)||'Activity Name Planned Date Remarks'||chr(10);
     end if;               
vRole:=fn_user_role;
-- vSubject:='SQA Plan For Month -'||substr(:Parameter.Plan_ID,-7)||' - '||:Parameter.Plan_ID;
vSubject:=:parameter.plan_id;
vMsg_body:=
--'Dear '||vTo_login||chr(10)||chr(10)||
--'Following activities are rescheduled for the Month of - '||Substr(:Parameter.Plan_ID,-7)
vStatus||chr(10)||chr(10)||
vMsg_body||chr(10)||chr(10)||'Regards '||chr(10)||:Parameter.Username||chr(10)||vRole; *
If      vsqA_mgr_login is not null and vRole = 'SQA MANAGER' and :PARAMETER.PRS_STAT='R' then
          utl_mail.send(
               sender=>:Parameter.uid||'@softsolindia.com',
               recipients=>vpm_login,
               cc=>:Parameter.uid||'@softsolindia.com'||','||vsqA_login,
               --bcc=>'[email protected]',
               subject=>vSubject,
               message=>vMsg_body);
               dsp.msg('Mail Sent Successfully ');
     ElsIf      vsqA_mgr_login is not null and vRole = 'SQA MANAGER'and :parameter.ch_fdback = 'true' then
          utl_mail.send(
               sender=>:Parameter.uid||'@softsolindia.com',
               recipients=>vsqA_login,
               cc=>:Parameter.uid||'@softsolindia.com'||','||vpm_login,
               --bcc=>'[email protected]',
               subject=>vSubject,
               message=>vMsg_body);
               dsp.msg('Mail Sent Successfully ');
               :parameter.ch_fdback :='false';
End if;
     if     vSQA_login is not null and vRole = 'SQA' then
          utl_mail.send(
sender=>:Parameter.uid||'@softsolindia.com',
recipients=>vsqA_mgr_login,
cc=>:Parameter.uid||'@softsolindia.com'||','||vpm_login,
--bcc=>'[email protected]',
subject=>vSubject,
message=>vMsg_body);
dsp.msg('Mail Sent Successfully ');
     end if;
if vpm_login is not null and vRole='PM' and :PARAMETER.PRS_STAT='A' and vfdback is not null then
          utl_mail.send(
          sender=>:Parameter.uid||'@softsolindia.com',
          recipients=>vsqA_mgr_login||','||vsqa_login,
          cc=>:Parameter.uid||'@softsolindia.com',
          --bcc=>'[email protected]',
          subject=>vSubject,
          message=>vMsg_body);
          dsp.msg('Mail Sent Successfully ');
ELSif vpm_login is not null and vRole='PM' and :parameter.ch_fdback = 'true' then
          utl_mail.send(
          sender=>:Parameter.uid||'@softsolindia.com',
          recipients=>vsqa_login,
          cc=>:Parameter.uid||'@softsolindia.com'||','||vsqA_mgr_login,
          --bcc=>'[email protected]',
          subject=>vSubject,
          message=>vMsg_body);
          dsp.msg('Mail Sent Successfully ');
          :parameter.ch_fdback :='false';
End if;
Exception
     When Others then
     dsp.msg(' Unable To Send The Mail '||sqlerrm);
end;
:PARAMETER.Aqe := ' ';
END;

Answer 1

Hi ,
You can use QA33 transaction for having all the information related to the inspection lot.
Cheers,
Tushar