Ich fasse es nicht. Vielen Dank, das war es. Es hat sich tatsächlich nichts geändert.
Ich hatte es so auch schon probiert, aber vergessen zusätzlich die TStrings "AMailBoxFlags" zu füllen. Und da ist der Server dann mit einer Schutzverletzung ausgestiegen. Was jetzt auch Sinn macht, da er pro Eintrag in der MailBox-Liste einen Eintrag in der MailBoxFlags-Liste erwartet.
Das Stichwort war:
Zitat:
Du brauchst also 2 Instanzen von TStrings-Nachfahren
Da habe ich an der falschen Stelle gesucht.
Jetzt funktioniert es tadellos!
Vielen Dank nochmal!
Für alle die es interessiert, hier noch einmal die funktionierende Ereignisroutine (nur zum Test mit Demo-Daten):
Delphi-Quellcode:
function TForm2.IdIMAP4Server1DefMechListMailBox(ALoginName, AMailBoxName:string; AMailBoxNamens, AMailBoxFlags:TStrings):boolean;
begin
AMailBoxNames.Add('INBOX');
AMailBoxFlags.Add('\HasChildren');
Result:=true;
end;
Viele Grüße
Christian