1:
2:
3:
4:
5:

[alt]-d       Menü Datei
u             Speichern unter
i             Laufvariable der For Schleife als Dateinamen
[Enter]       Speichern
[Pfeilrunter] nächste Datei.					

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:

procedure TForm1.Button1Click(Sender: TObject);
var
  hOE: hWnd;
  cnt: Integer;
begin
  hOE := FindWindow('Outlook Express Browser Class', nil);
  SetForegroundWindow(hOE);

  for cnt := 1 to ? do
  begin
    Keybd_Event(VK_MENU, 0, 0, 0);
    Keybd_Event(Word('D'), 0, 0, 0);
    Keybd_Event(Word('D'), 0, KEYEVENTF_KEYUP, 0);
    Keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);

    Keybd_Event(Word('U'), 0, 0, 0);

    Keybd_Event(48 + cnt, 0, 0, 0);

    Keybd_Event(VK_RETURN, 0, 0, 0);

    Keybd_Event(VK_DOWN, 0, 0, 0);
  end;

end;