Emails headers received as part of email text

Question

We are using the script below to send email notifications. When a user receives the mail part of the email headers are included in the message body. I have included an example underneath the script.
procedure pm33_verification_mail  ( email_in  in varchar2 default NULL ) is
Cursor EMAIL_USERS is
Select distinct CM503_EMAIL_ADDRESS
From   MES.TM503_VERIFICATION_REPORT
Where  CM503_DURATION = 24
Order By CM503_EMAIL_ADDRESS ASC;
l_conn              UTL_SMTP.CONNECTION ;
l_mime_type         VarChar2(100) ;
l_email_address     VarChar2(30000) ;
l_subject           VarChar2(1000) := 'Verification Still Outstanding ' ;
l_line              VarChar2(30000) ;
errmsg              VarChar2(500) ;
l_data                     VarChar2 ( 1 )          ;
l_ver_hours         Number := 24 ;
Cursor WC_LIST is
Select CM306_PARAMETER_VALUE
From  MES.TM306_SCHEDULING_PARAM_ITEMS
Where  CM306_PARAMETER_TYPE  = 'REP'
and  CM306_PARAMETER_NAME  = 'WC_VERIFICATIONS'
Order by CM306_PARAMETER_INDEX      ;
l_work_centre          VarChar2(100)          ;
l_count             Number                ;
begin
If to_char( sysdate,'dd') = '01' then
+     l_ver_hours := to_number(to_char(sysdate,'hh24'))+1 ;+
End If ;
+     +
if email_in is NULL then
for R1 in EMAIL_USERS loop
if l_email_address is NULL then
l_email_address := R1.CM503_EMAIL_ADDRESS ;
else
l_email_address := l_email_address||';'||R1.CM503_EMAIL_ADDRESS ;
end if;
end loop;
else
l_email_address := email_in ;
end if;
l_mime_type     := 'text/plain';
l_conn := MES.KM999_DBMS_MAIL.BEGIN_MAIL ( sender     => 'MES',
recipients => l_email_address,
subject    => l_subject,
mime_type  => l_mime_type )  ;
l_data := 'N' ;
for R1 in WC_LIST loop
begin
Select count(*)
into l_count
From   MES.VM312_OUTSTANDING_VER
Where  CM312_WORK_CENTRE = R1.CM306_PARAMETER_VALUE
and  ( SYSDATE - CM312_DATE ) * 24 >= l_ver_hours ;
exception
+     when OTHERS then+
+          l_count := 0 ;+
end ;
+          +
If  l_count > 0 then
l_data := 'Y' ;
l_line      := '============================================================'  || chr(10) ;
MES.KM999_DBMS_MAIL.WRITE_TEXT ( conn => l_conn , message => l_line ) ;
l_line  := 'Verification Outstanding at the ' || SubStr(R1.CM306_PARAMETER_VALUE,1,Length(R1.CM306_PARAMETER_VALUE)-1) || ' for more than '||to_char(l_ver_hours)||' hours:'  || chr(10) ;
MES.KM999_DBMS_MAIL.WRITE_TEXT ( conn => l_conn , message => l_line ) ;
l_line      := '------------------------------------------------------------'  || chr(10) ;
MES.KM999_DBMS_MAIL.WRITE_TEXT ( conn => l_conn , message => l_line ) ;
Declare
Cursor DATA_OUT is
Select CM312_ID   ,
+     CM312_DATE+
From  MES.VM312_OUTSTANDING_VER
Where  CM312_WORK_CENTRE = R1.CM306_PARAMETER_VALUE
and  ( SYSDATE - CM312_DATE ) * 24 >= l_ver_hours
Order By CM312_DATE;
begin
For R2 in DATA_OUT Loop
l_line := R2.CM312_ID || ' Outstanding since ' || TO_CHAR ( R2.CM312_DATE , 'YYYY-MM-DD HH24:MI') || ' ('
+|| Round ( ( SYSDATE - R2.CM312_DATE ) * 24 , 2 ) || ' Hours)' || chr(10) || chr(10);+
MES.KM999_DBMS_MAIL.WRITE_TEXT ( conn => l_conn , message => l_line ) ;
End Loop;  -- DATA_OUT
l_line      := ' '  || chr(10) ;
MES.KM999_DBMS_MAIL.WRITE_TEXT ( conn => l_conn , message => l_line ) ;
end ;
End if ;    --- Count  > 0
End Loop;  ---WC_List
If l_data = 'N' then
l_line             := '============================================================'  || chr(10) ;
MES.KM999_DBMS_MAIL.WRITE_TEXT ( conn => l_conn , message => l_line ) ;
l_line          := 'No Verification Problems '  || chr(10) ;
MES.KM999_DBMS_MAIL.WRITE_TEXT ( conn => l_conn , message => l_line ) ;
l_line             := '============================================================'  || chr(10) ;
MES.KM999_DBMS_MAIL.WRITE_TEXT ( conn => l_conn , message => l_line ) ;
end if ;        
MES.KM999_DBMS_MAIL.END_MAIL( conn => l_conn )   ;
end ; /* pm33_verification_mail */
+/+
Email body Example:
To: <all mail addresses are included in this.>
Subject: Verification Still Outstanding
Content-Type: text/plain
X-Mailer: Mailer by Oracle UTL_SMTP
Return-Path: [email protected]
Message-ID: <[email protected]>
*X-OriginalArrivalTime: 15 Dec 2010 05:00:19.0110 (UTC) FILETIME=[F868FC60:01CB9C14]*
Date: 15 Dec 2010 07:00:19 +0200
*============================================================*
Verification Outstanding at the CONARC for more than 24 hours:
*============================================================*
Verification Outstanding at the LHF for more than 24 hours:
------------------------------------------------------------

Answer 1

user13482457 wrote:
Email body Example:
<snipped>I do not see the Mime version being specified in the header - though this should not case the headers to display as part of the mail body.
Confirm the header as correct (no empty lines and an empty line separator between it and the body) using the raw content of the e-mail as received by the mail client. This will be the easiest method to spot the error in the e-mail structure.
In other words - first identify the actual problem before getting stuck in your PL/SQL code looking for an unknown problem.