Hallo,
ich habe folgendes Problem,
ich bin dabei, ein kleines eMail-Programm zu schreiben.
Aber das Programm hängt sich auf beim abrufen einer "noch nicht gelesenen" Mail.
Delphi-Quellcode:
...
if Imap.SelectMailBox(pf)then //pf Name der MailBox
begin
IMAP.StatusMailBox(pf,Imap.MailBox);
imap.UIDRetrieve(Listview1.Selected.Caption, idmessage1);
{bei ungelesen Mails hängt er sich hier auf}
// auch bei imap.Retrieve({entsprechende nr.), idmessage1);
//Verwende ich allerdings imap.UIDRetrieveHeader bzw. imap.RetrieveHeader
// gibt es keine Probleme
//Is die Mail auf dem Server als gelesen markiert, gibt es keine Probleme
Label1.Caption:= 'Von: ' + idmessage1.From.Address + ' (' + idMessage1.From.name + ')';
Label2.Caption:= 'Betreff: ' + Listview1.Selected.SubItems.Strings[1];
Label3.Caption:= 'Vom: ' + datetostr(idMessage1.Date);
end;
...
Nach dem "Absturz" ist die Mail auf dem Server als "gelesen" markiert
Habe ich irgendwas vergessen?
Die Fehlermeldung:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Project1.exe ist eine
Exception der Klasse EIdReplyIMAP4Error mit der Meldung 'Unexpected: Non-last response line (i.e. a data line) did not start with a *, offending line: C6 OK FETCH completed.' aufgetreten.
ich hoffe ich habe alles wesentliche benannt?!
Danke im Voraus
-