Wie wäre es mit 'ner passenden Fehlermeldung?
Delphi-Quellcode:
try
if idImap42.Connect()
then begin
// IdIMAP42.ListSubscribedMailBoxes(memo1.lines);
IdIMAP42.ListMailBoxes(memo1.lines);
if not IdIMAP42.SelectMailbox('
Sent')
then showMessage('
unbekannte Box');
IdIMAP42.AppendMsg('
Sent',idmessage1,[]);
idImap42.disconnect();
end;
except
on e :
Exception do begin
MessageDlg(e.
Message,mtError,[mbOk],0);
end;
end;
Und wo kommt idMessage1 her?
Ist da was drin?
Delphi-Quellcode:
if not Assigned(idmessage1)
then begin
MessageDlg('
Mail ist leer?',mtError,[mbOk],0);
end else
try
if idImap42.Connect()
then begin
// IdIMAP42.ListSubscribedMailBoxes(memo1.lines);
IdIMAP42.ListMailBoxes(memo1.lines);
if not IdIMAP42.SelectMailbox('
Sent')
then showMessage('
unbekannte Box');
IdIMAP42.AppendMsg('
Sent',idmessage1,[]);
idImap42.disconnect();
end;
except
on e :
Exception do begin
// Sollte bei erfolgreicher Verbindung und anschließendem Fehler
// vielleicht trotzdem ausgeführt werden?
idImap42.disconnect();
showMessage(e.
Message);
end;
end;