valid rcpt command must preceed DATA

Giganews Newsgroups
Subject: valid rcpt command must preceed DATA
Posted by:  Rhys Sage (abu…@127.0.0.1)
Date: Mon, 29 Dec 2003

I'm puzzled. I'm getting a "valid rcpt command must preceed DATA". The
ReceiptRecipient.Address is correct and it all worked before I changed the
variable names to something more meaningful than Label1, Label2 etc. I am
therefore at a loss to explain this. Has anybody any suggestions

procedure TForm1.SpamCopReport(var c : Integer);
begin
// send report
idMessage1.Clear;
idMessage2.Clear;
idMessage1.From.Address := EmailAddress.Caption;
idMessage1.Sender.Address := EmailAddress.Caption;
idMessage1.Subject := 'Forwarded Spam';
idMessage1.Organization := '';
idMessage1.Date := Date;
idMessage1.Recipients.EMailAddresses := Edit5.Text;
idMessage1.ReceiptRecipient.Address := EmailAddress.Caption;
ShowMessage('='+EmailAddress.Caption+'=');
idPOP31.RetrieveHeader(c+1,idMessage2);
idMessage1.Body.AddStrings(idMessage2.Headers);
idMessage1.Body.Add(#13);
idMessage1.Body.Add('<The junkmail body was not downloaded>');
idSMTP1.Send(idMessage1);
end;

--
Yours

Rhys

Join the anti-spam project:
http://groups.yahoo.com/group/Anti-Spam-Development/
or view my website:
http://www.sageworld.freeserve.co.uk

Replies