text of email not showing

Giganews Newsgroups
Subject: text of email not showing
Posted by:  Captain Kirk (abu…@127.0.0.1)
Date: Mon, 15 Mar 2004

I have the following code. It works well except for the message following
the code. I'm not sure how to cater for this. Any suggestions, anybody? What
happens is the text body of the email does not show up!

  if IdMessage1.MessageParts.Count = 0 then
    RichEdit4.Lines.AddStrings(IdMessage1.Body)
  else
    begin
    for Kownt := 0 to IdMessage1.MessageParts.Count -1  do
      begin
      RichEdit4.Lines.Add('Message Part: '+intToStr(Kownt));
      if IdMessage1.MessageParts.Items[Kownt] is TIdText then
        begin

RichEdit4.Lines.AddStrings(TIdText(IdMessage1.MessageParts.Items[Kownt]).Bod
y);
        end;
      if IdMessage1.MessageParts.Items[Kownt] is TIdAttachment then
        begin
        RichEdit4.Lines.Add('---ATTACHMENT----');

RichEdit4.Lines.Add(TIdAttachment(IdMessage1.MessageParts.Items[Kownt]).File
Name);
        end;
      end;
    end;

Return-Path: <>
Received: from mail4.messagelabs.com (212.125.75.12) by mail.o2.co.uk
(7.0.020)
        id 4053362E00072249 for ; Mon, 15 Mar 2004 00:30:23 +0000
X-VirusChecked: Checked
X-Msg-Ref: server-5.tower-4.messagelabs.com!1079310622!10341656
X-StarScan-Version: 5.1.15; banners=-,-,-
Received: (qmail 30159 invoked from network); 15 Mar 2004 00:30:22 -0000
Received: from unknown (HELO lon-nt-3.harveynash.com) (213.86.222.141)
  by server-5.tower-4.messagelabs.com with SMTP; 15 Mar 2004 00:30:22 -0000
Received: from harveynash.com (unverified) by lon-nt-3.harveynash.com
(Content Technologies SMTPRS 4.2.10) with SMTP id > for <>;
Mon, 15 Mar 2004 00:28:58 +0000
Received: from London-Message_Server by harveynash.com
with Novell_GroupWise; Mon, 15 Mar 2004 00:29:23 +0000
Message-Id: <>
X-Mailer: Novell GroupWise 5.2
Date: Mon, 15 Mar 2004 00:29:10 +0000
From: "MSCV Leeds" <>
Sender:
Reply-To:
Errors-To:
To:
Subject: Re: First introduction (Acknowledgment)
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline

Many thanks for responding to the advert.  We are currently processing your=
information and will get back to you at our earliest convenience.  If you =
have not heard from us in the next few weeks then unfortunately your applic=
ation will have been unsuccessful on this occasion.

Thank You.
            =20

--
Captain Kirk,

Boldly going where only cameramen
have been before.

Replies