I keep getting Email with the error
"Unrecognized Pop3 Responce Header DQOKJAAAAAAAAAAAAAAAAAAAAAAAAAAAA..."
here is the code I am using to process the Email.
try
Connect;
Cnt := CheckMessages;
FldNoOrder.Text := IntToStr(Cnt);
for x := 1 to Cnt do
begin
try
FldOfOrd.Text := IntToStr(x);
Msg.Clear;
if RetrieveHeader(x,Msg) then
ExtractOrderMessage(x);
Except
if Delete(x) then
FldList.Items.Append('Exception in Retreive');
end;
end;
finally
Disconnect;
end;
The Except catches the Exception but the delete reRaises the Exception.
with out the delete the loop continues and every email after the
exception has the same problem which I know is untrue. If a error is
raised I just want to note the problem and throw the email away. Any
Ideas on how to fix.
Thanks
Donald S. Bossen
