Liebes Forum,

ich will aus Outlook die Emailadressen von allen meinen Kontakten auslesen.
Also alle Kontakte durchgehen und alle vorhandenen Emailadressen auslesen.

Ebenso will ich alle Email-Ordner (Posteingang mit allen Unterordnern) und alle manuell angelegten Emailordner (die auf gleicher Ebene wie der Posteingang sind) auslesen, dem Benutzer anzeigen und aus allen ausgewählten Verzeichnissen die Emails lesen und auch alle Emailadressen auslesen.

Meine Fragen sind nun:

Wie kann ich auf Outlook zugreifen?
Wie auf die Kontakte?
Wie bekomme ich die Gesamtzahl meiner Kontakte?
Wie kann ich einen Kontakt lesen und dort die Felder (Name, Emailadresse) abfragen?
Wie kann ich auf die Mailordner zugreifen (auslesen welche Mailordner es gibt).
Wie kann ich auf die Mails in einem Ordner zugreifen?
Wie kann ich eine Mail auslesen und dort die Daten auslesen?
Wie kann ich die Emailadressen auslesen, die die User in Outlook unter den Einstellungen in die WhiteList und in die BlackList eingetragen haben?

Ich habe noch nie was mit Outlook gemacht, daher bitte ich Euch um Unterstützung.

Danke und Gruß


OLLI

Hallo,

probier's mal damit swissdelphicenter

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:

zusammenfalten · markieren

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