Attachments not right

Giganews Newsgroups
Subject: Attachments not right
Posted by:  Rhys Sage (abu…@
Date: Wed, 26 Nov 2003

Ok. Looks like I'm going to lose that MSN account to spam now. C'est la via.
Outlook Express 6 sends immediately instead of waiting like OE 5.5 did :(
And the blasted cancel doesn't work either!

Ok. This is what I received in MSN's junkmail folder. What should have
arrived is a message with a nicely attached file (JPEG in this instance).
The code follows the message. Where am I going wrong? And will somebdoy
please cancel those other messages!
X-Message-Info: 6sSXyD95QpUypKMHi+vQyZCSa3vsGZ0e
Received: from ([]) by with Microsoft SMTPSVC(5.0.2195.6713);
     Wed, 26 Nov 2003 11:50:05 -0800
Received: from ([]
    by with esmtp (Exim 4.14)
    id 1AP5fn-0003SZ-Gn
    for ; Wed, 26 Nov 2003 19:50:03 +0000
From: p…
Subject: none
Sender: p…
Organization: Some organisation
Disposition-Notification-To: p…
Date: Wed, 26 Nov 2003 00:00:00 +0000
Message-Id: <E1AP5fn-0003SZ-Gn.2003-11-26-19-50-…>
Return-Path: p…
X-OriginalArrivalTime: 26 Nov 2003 19:50:06.0366 (UTC)

This is a test message to say "Woo hoo.
Homer's home".
procedure TForm1.Button5Click(Sender: TObject);begin// set message
:= LabeledEdit1.Text;idMessage1.Sender.Address :=
LabeledEdit1.Text;idMessage1.Subject :=
LabeledEdit3.Text;idMessage1.Organization := 'Some
organisation';idMessage1.Date := Date;idMessage1.Recipients.EMailAddresses
:= LabeledEdit2.Text;idMessage1.ReceiptRecipient.Address :=
LabeledEdit1.Text;// add attachment if necessaryif
Length(LabeledEdit7.Text)>0 then
ings(Memo1.Lines);// post messageidSMTP1.Send(idMessage1);end;