1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

procedure abrufen();
var j,l,x:integer;
k:tarray;
name:string;
begin
form1.idPOP31.Host := code.account.popserver;
  form1.idPOP31.Port := 110;
  form1.idPOP31.Username:=code.account.loginname;
  form1.idPOP31.Password := code.account.passwort;
  form1.idPOP31.Connect;
  form1.progressbar1.Max:=form1.IdPOP31.CheckMessages;
  k:=explode(code.account.pfad,'\');
name :=k[0];
for l:=1 to length(k)-1 do
 begin
  name:=name + '/'+k[l];
  if not DirExists(name) then // existiert ein ordner auf der platte ?
   begin
    MkDir(name )    // nein ? anlegen.
   end;
 end;


for j:=1 to form1.ProgressBar1.Max do
begin
form1.ProgressBar1.Position:=j;
form1.IdPOP31.Retrieve(j, form1.IdMessage1);
if not DirExists(code.account.pfad + '\' + form1.IdMessage1.From.Address) then // existiert ein ordner auf der platte ?
begin
MkDir(code.account.pfad + '\' + form1.IdMessage1.From.Address)    // nein ? anlegen.
end;


 code.ganzviele.mail:= code.account.pfad + '\' + form1.IdMessage1.From.Address+'\'+form1.IdMessage1.Subject+'.mail';    //verknüpfung von den Mails im treeview mit denen auf der platte
 assignfile(code.email,code.account.pfad + '\' + form1.IdMessage1.From.Address+'\'+form1.IdMessage1.Subject+'.mail');
if fileexists(code.account.pfad + '\' + form1.IdMessage1.From.Text+'\'+form1.IdMessage1.Subject+'.mail') then
 begin
  reset (code.email);
 end
else
 begin
  rewrite(code.email);
 end;
 write(email,form1.idmessage1);
 closefile(email);
 end;
  form1.idPOP31.Disconnect;
  end;