Termineintrag aus Outlook auslesen

[Susanne]

Hallo,

ich möchte von meinem Programm aus auf Outlook zugreifen und dort alle Termin für den heutigen Tag jeweils auslesen. An jedem Termineintrag ist eine Datei angehängt, an die müsste ich auch kommen.

Wie ich einen Eintrag in Outlook erzeugen kann weiss ich, aber wie kann ich ihn wieder auslesen?

[Domo Sokrat]

Hallo Susanne,

ich bin mir nicht sicher, ob ich Dir bei den Sachen mit dem Anhang weiterhelfen kann, aber generell ist das Auslesen von FolderItems unter Outlook immer die gleichen Strickart. Ich hab' das Beispiel aus dem Swiss Delphi Center zum Thema "Outlook Kontakte auslesen" mal ein wenig umgestrickt. Ich hab's nicht testen können, da ich hier kein Outlook habe. Das mit dem Datum ist nur 'ne Vermutung, müsste aber stimmen:

Delphi-Quellcode:

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
const
  olFolderCalendar = $00000009;
var
  outlook, NameSpace, Termine, Termin: OleVariant;
  i: Integer;
begin
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');

  Termine := NameSpace.GetDefaultFolder(olFolderCalendar);
  for i := 1 to Termine.Items.Count do
  begin
    Termin := Termine.Items.Item(i);
    // Titel des Termins und Startdatum mit Zeit auslesen:
    ShowMessage(Termin.Subject + '<Begin: ' + DateTimeToStr (Termin.Start) + ' >');
  end;

  Outlook := UnAssigned;
end;

{ gefundene Item-Properties:
   Subject                    (alphanumerisch)
   Body                       (alphanumerisch)
   Start                      (Datum/Uhrzeit)
   Duration                   (numerisch)
   End                        (Datum/Uhrzeit)
   Location                   (alphanumerisch)
   ReminderMinutesBeforeStart (Integer)
   ReminderSet                (boole'sch)
   Categories                 (alphanumerisch)
   BusyStatus                 (numerisch)
        (olFree        = frei),
         olTentative   = unter Vorbehalt),
         olBusy        = gebucht),
         olOutOfOffice = abwesend))
   Categories                 (alphanumerisch)
   CreationTime               (alphanumerisch)
   ReminderPlaySound          (boole'sch)
}

Ich hoffe, das hilft Dir ein wenig weiter, auch wenn ich's nicht testen konnte...

[Susanne]

es hat geholfen, auf dem richtigen Weg war ich dann doch schon so langsam. Ich hab da noch etwa gefunden wie 'Filter setzen'

TerminItem:= Termine.Items.Restrict('[START] = ''05.08.2004''');

Aber irgendwie bekomme ich dann nur noch null ergebnisse und wenn ich das bisherige lasse, dann zeigt er mir jeden Eintrag an, auch die vom nächsten tag und ich möchte nur die vom heutigen Tag.

[Domo Sokrat]

Also: In VB machen die das wie folgt (hab's mal nach Object Pascal umgesetzt - ähnelt Deinem Ansatz):

Delphi-Quellcode:

// benötigte zusätzliche Variable (Resultset für die
// Filterung
Var GefilterteTermine: OleVariant;

   // Filter setzen: ergibt [Start] = '05.08.2004'
   // (Suchstring haben die in einfache Hochkommas 
   // gesetzt...)
   sFilter := '[Start] = ''05.08.2004''';

   // und dann die Filterfunktion auf das zu filternde
   // Termin-Resultset anwenden (hast Du ja entsprechend
   // umgesetzt - müsste laufen)
   GefilterteTermine := Termine.Items.Restrict(sFilter);

   // Anschließend müssten in GefilterteTermine die
   // gewünschten Dates drin stehen:
   Termin := GefilterteTermine.Items.Item(i);

Mit dem Datumsformat bin ich mir nicht so ganz sicher. Lass Dir doch zum Test mal einen Propertywert von "Start" anzeigen, um zu sehen, wie das Datum angegeben werden muss. Auf jeden Fall aber würd' ich den Filterwert mal in einfach Hochkommas setzen.

Wie schon vorher: Konnte leider nichts Testen. Ich verlass mich da mal blind auf die VB-Cracks ...

[Susanne]

nee, funktioniert nicht, an folgender Stelle bekomme ich dann eine Fehlermeldung, dass das Automatisierungsobject die Funktion Items nciht unterstützt.

Zitat:

Termin := GefilterteTermine.Items.Item(i);

[Domo Sokrat]

Guten Morgen!

Ich hab's mir nochmal angesehen. Vielleicht ist hier das "Items" zu viel und es müsste statt

Termin := GefilterteTermine.Items.Item(i); so heißen:

Termin := GefilterteTermine.Item(i); weil das Ergebnis von "Restrict()" ein Items-Objekt zurückgibt ??? *mutmaß* GefilterteTermine ist ja ein OLEVariant und man bekommt nicht direkt mit, welcher Objekttyp "drinsteckt".

Probier's bitte mal aus. Ansonsten muss ich mir wirklich mal ein System mit Outlook vornehmen und die Sache mal ausprobieren (kann aber etwas dauern). Das Ganze Interessiert mich jetzt nämlich selber und ich hasse Trockenschwimmen!

[Susanne]

stimmt, das items war zu viel!

jetzt versuche ich immernoch, an den blöden Anhang des Termins zu kommen. ich habe jetzt einfach nur mal versucht, herauszubekommen, wieviel Anhänge er denn findet:
Am Ende möchte ich dann den Pfad mit Dateinamen haben, ich hatte es auch schon versucht mit SaveToFile, aber da sagte er dann, dass die MEthode nicht unterstützt wird.

Code:

for i := 1 to gefilterteTermine.Count do
            begin
               Termin := GefilterteTermine.Item(i);
               //Titel des Termins und Startdatum mit Zeit auslesen:
               ShowMessage(Termin.Subject + ' '+ DateToStr(Termin.Start) );
               //Anhang extrahieren oder den Pfad + Datei
               x := Termin.Attachments;
            end;

Fehlermeldung: eVariantTypeCastError: Variante des Typs Dispatch konnte nicht in Typ Integer konvertiert werden.

Was muss ich denn nun machen?

[Domo Sokrat]

Hallo mal wieder...

Du müsstest eigentlich für ein Attachment-Objekt wieder eine Variable vom Typ OLEVariant deklarieren und dann, so wie Du schon richtig vermutet hast, diesem das gewünschte Attachment zuweisen. Das würde dan so aussehen (Portiert aus VB):

Var Anhang: OLEVariant; Der Zugriff auf das erste Attachment über die Angabe eines Index(!) -> gibt bestimmt Probleme, wenn der Termin keine Attachments hat, also vielleicht vorher über Termin.Attachments.Count erst die Anzahl prüfen...

Anhang := Termin.Attachments(1); Jetzt müssten in Anhang die Daten des ersten Attachments stehen und Du müsstest so auf den FileName zugreifen können. Einen Pfadnamen gibt's hier denke ich nicht.

sFileName := Anhang.FileName; Speichern kannst Du den Anhang (z. B. in "C:\Temp") wie folgt:

Delphi-Quellcode:

sFileName := 'C:\Temp\' + sFileName;
Anhang.SaveAsFile (sFileName);

Ich hab' noch eine wunderbare Modelldoku (von MS) gefunden:
Microsoft Outlook Objects

Hier noch ein Link (ist zwar alles VB/VBA aber die Umsetzung dürfte nicht sooo schwer sein ):
Outlook 2000 VBA Programmers Reference

Auf dieser Seite kannst Du auch 'mal stöbern:
www.outlookcode.com

Ich hoffe, das Alles hilft Dir weiter ...

[Susanne]

Zitat:

Anhang := Termin.Attachments(1);

hier bekomme ich schon EoleSysError

[Domo Sokrat]

Hi!

Probier das mal:

Anhang := Termin.Attachments.Item(1); Wenn's klappt bin ich zufrieden . Ansonsten muss ich hier meine Waffen strecken. Sorry.