Mails filtern langsam

[oakley]

Hi ich greife mit folgendem kleinen Code per MAPI auf meine Outlook PST zu.
Darin befinden sich reichlich Mails, also so ca. 3000 Stck im bei den gesendeten Objekten.

Da jede Mail durch die for Schleife einzeln geprüft wird dauert das dementsprechend lange.
Gibt es evtl eine Methode die wesetnlich schneller geht?

Viele Dank für Eure Hilfe.

Gruß

Mirko

Code:

procedure TForm8.Button1Click(Sender: TObject);
var  outlook, NameSpace, Folder, NFolder, oiItem, oiItem2: OLEVariant;
OG, OG2: TOutlookGroup;
i : integer;
s : OleVariant;
begin
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');
  NFolder := NameSpace.GetDefaultFolder(5);
  OG2 := ADVOLIST.AddGroup('Sent Emails');

  for i := 1 to NFolder.items.Count do
  begin
    oiItem2 := NFolder.items.item[i];
    if oiItem2.to = '''[e-mail]''' then
    begin
      with OG2.AddChild do
      begin
      Add(VartoStr(oiItem2.SenderName));
      Add(VartoStr(oiItem2.Subject));
      Add(DateTimetoStr(oiItem2.ReceivedTime));
      end;
    end;
  end;
end;

[mkinzler]

Du könntest den Filter direkt per MAPI anwenden

[oakley]

Hi,

ich hab jetzt schon ein bischen herumprobiert aber ich bekomme das nicht hin mit dem Filtern.
Denn ich wollte den Filter anwenden, inden ich folgendes gemacht habe:
Ich habe oben noch zwei Variable eingefügt. NMessages : OleVaraint;
Dann unter NFolder := NameSpace.GetDefaultFolder(5);
NMessages := NFolder.Messages;

Und da kommt beim kompilieren ein Fehler weil Messages keine Funktion oder Eigenschaft von NFolder ist.
Nur wie kann ich über den Inhalt des Folders den Filter legen?

Gruß

Mirko

[mkinzler]

Ich dachte eher an Restrict

[oakley]

Hi,

danke für die Antwort. Das funktioniert so weit.
Restrict ist aber nur mit Outlook 2007 machbar oder?

Gruß

Mirko