Exchange Anbindung

[mkinzler]

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:

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.