Emailadressen aus Outlook lesen

[OLLI_S]

Zitat von ManuelR:

probier's mal damit swissdelphicenter

Danke, ManuelR, das hat mir geholfen.
Ich kann jetzt die Emailadressen aus den Outlook Kontakten einlesen.

Auf dieser Seite habe ich auch einen Quelltext gefunden, der mir alle Ordner von Outlook in eienr TreeView anzeigt:

Delphi-Quellcode:

{------------------------------------------------------------------------------}

procedure RetrieveOutlookFolders(tvFolders: TTreeView);

   {------------------------------------------------------------}

   procedure LoadFolder(ParentNode: TTreeNode; Folder: OleVariant);

   var
      i: Integer;
      Node: TTreeNode;

   begin
      for i := 1 to Folder.Count do
      begin
         Node := tvFolders.Items.AddChild(ParentNode, Folder.Item[i].Name);
         LoadFolder(Node, Folder.Item[i].Folders);
      end;
   end;

   {------------------------------------------------------------}

var
   outlook, NameSpace: OLEVariant;

begin
   outlook := CreateOleObject('Outlook.Application');
   NameSpace := outlook.GetNameSpace('MAPI');

   LoadFolder(nil, NameSpace.Folders);

   outlook := Unassigned;
end;

{------------------------------------------------------------------------------}

procedure TForm1.Button2Click(Sender: TObject);
begin
   RetrieveOutlookFolders(TreeView1);
end;

{------------------------------------------------------------------------------}

Damit sehe ich ALLE meine Ordner.

Ich würde jetzt aber gerne nur die Email-Ordner sehen (Also nicht die Ordner "Kalender", Kontakte" und so weiter.
Gibt es eine Möglichkeit einen Ordner zu fragen, ob es ein Email Ordner ist?
Oder haben die Ordner keine Kennung so dass der User in jeden Ordner alles haben kann (sowohl Mails als auch Addressen)?

Wie greife ich auf die Emails in einem Bestimmten Ordner zu?
So dass ich alle Emails der Reihe nach durchgehen kann und dort die Emailaddresse auslesen kann.

Nur eine Information am Rande (bevor diese Fragen kommen).
Das ganze dient für einen SpamFilter.
Ich will für User, die den Filter installiert haben die Möglichkeit bieten alle Emailaddressen in die WhiteList des SpamFilters einzulesen.
Also nichts illegales, sondern was sehr hilfreiches.
Den SoamFilter habe ich nicht gemacht, ich will aber mit meinem Programm einen kleinen Beitrag leisten.

Danke und Gruß


OLLI