Hi,

ich muss ein Programm schreiben, mit dem ich alle Mails aus einem öffentlichen Ordner in eine Datenbank schreiben muss. Das schreiben in die Datenbank ist kein Problem. Jedoch weiß ich nicht wie ich mich mit dem Exchange verbinden kann bzw. wie ich diese Mails aus dem Ordner auslesen kann.

Folgende Produkte stehen mir zur Verfügung:
Microsoft Windows Server Standard 2008
Microsoft Exchange Server Standard 2010
Delphi 7 / Delphi 2009
Advantage Database


Danke schon mal im vorraus


Alex

markieren

Delphi-Quellcode:

Ordner := OutlookApp.Session.Folders.Item('Öffentliche Ordner')
                               .Folders.Item('Alle Öffentlichen Ordner')
                               .Folders.Item('<Ordnername>');

Zitat von mkinzler:

markieren

Delphi-Quellcode:

Ordner := OutlookApp.Session.Folders.Item('Öffentliche Ordner')
                               .Folders.Item('Alle Öffentlichen Ordner')
                               .Folders.Item('<Ordnername>');

Danke und kann ich die Verbindung zum Exchange aufbauen?

Hi Alex,

schau mal auf http://www.gangl.de, Thomas Gangl hat diverse Agents im Angebot, die das für Dich machen können.

Zitat:

Danke und kann ich die Verbindung zum Exchange aufbauen?

Der Code bedint natürlich eine eingerichtetes Mapi-Profil. Zudem wird Outlook benötigt.

Hier mal ein kleines Testprogramm:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, OutlookXP;

type
  TForm1 = class(TForm)
    OutlookApp: TOutlookApplication;
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    ordner, i_: OleVariant;
    i: Integer;

begin
    Ordner := OutlookApp.Session.Folders.Item('Öffentliche Ordner')
                                .Folders.Item('Alle Öffentlichen Ordner')
                                .Folders.Item('<Name des Ordners>');
    for i := 1 to ordner.items.Count do
    begin
        ListBox1.Items.Add( ordner.items.item[i].Subject);
    end;

end;

end.

Ich werde es jetzt mal versuchen.

Gibt es aber auch eine Möglichkeit ohne Outlook?