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.

[Jambs]

Ich werde es jetzt mal versuchen.

Gibt es aber auch eine Möglichkeit ohne Outlook?

[Jambs]

Beim ausführen bekomm ich die Meldung

Der versuchte Vorgang konnte nicht ausgeführt weren. Ein Objekt wurde nicht gefunden.

Und steht dann auf dieser Zeile:
Ordner := OutlookApp.Session.Folders.Item('Öffentliche Ordner')

[rollstuhlfahrer]

Ist deine Ordnerhierarchie richtig? - Oder hast du zwischendrin oder am Ende einen nicht-existenten Ordner erwischt (ala "<Name des Ordners>")?

Bernhard

[Jambs]

Zitat von rollstuhlfahrer:

Ist deine Ordnerhierarchie richtig? - Oder hast du zwischendrin oder am Ende einen nicht-existenten Ordner erwischt (ala "<Name des Ordners>")?

Bernhard

ich denke schon das die Ordnerhierarchie richtig ist.

Delphi-Quellcode:

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

[franktron]

Zitat von Jambs:

Ich werde es jetzt mal versuchen.

Gibt es aber auch eine Möglichkeit ohne Outlook?

Nimm doch IMAP das kann der Exchange auch und ist mit Indy kein Problem.

[Jambs]

Zitat von franktron:

Zitat von Jambs:

Ich werde es jetzt mal versuchen.

Gibt es aber auch eine Möglichkeit ohne Outlook?

Nimm doch IMAP das kann der Exchange auch und ist mit Indy kein Problem.

Hast du da ein Beispiel dafür?

[franktron]

Hier ein Ausschnitt von einem Prog das Mails von der INBOX Lädt mit Indy 10

Delphi-Quellcode:

If IdIMAP41.Connected then Exit;
   try
      IdIMAP41.Connect(True);
   except
      on E: Exception do
      Begin
         WriteLogFile(E.Message,'Connect');
      End;   
   End;
   try
      If IdIMAP41.SelectMailBox('INBOX') then
      Begin
         IdIMAP41.CheckMailBox;
      End;
      x:=IdIMAP41.MailBox.TotalMsgs;
      For i:=1 to x do
      Begin
         IdMsg.Clear;
         IdIMAP41.Retrieve(i,IdMsg);

[mkinzler]

Es geht hier aber um die öffentlichen Ordner

[Assarbad]

Wenn du es auf dem Server selber machen willst, kannst du auf das Exchange SDK von MS zurückgreifen. Ansonsten eben die Protokolle benutzen die Exchange beherrscht.

Mit dem SDK hast du alle Informationen um im Exchange Information Store rumzufummeln. Na gut, nicht alle. Die für die VSAPI gibt's nur gegen NDA, aber dann nimmt man halt ein altes SDK wo das noch mit drin war