Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Outlook Aufgaben exportieren (https://www.delphipraxis.net/64349-outlook-aufgaben-exportieren.html)

R2D2 2. Mär 2006 14:38


Outlook Aufgaben exportieren
 
Hallo!

Ich möchte aus Oulook die Aufgaben exportieren. Für Termine, Kontakte gibt es z.B. im Swiss-Delphi-Center Quellcode. Allerdings habe ich nirgendwo etwas für Aufgaben gefunden.

Kann mir jemand helfen?

Danke!

Boombuler 2. Mär 2006 15:44

Re: Outlook Aufgaben exportieren
 
Hi jo ich kann dir helfen ;)

Hier ist mal Beispiel Code der dir alle Subjects ausgibt... sollte er zumindest wenn ich nix vergessen hab ;)

Delphi-Quellcode:
 
uses Variants;

procedure ShowAllAfgs;
var
  Journals          : OleVariant;
  ItemColl          : OleVariant;
  aJournal          : OleVariant;
  OutlookApplication : OleVariant;
  iCnt              : Integer;
begin
  OutlookApplication := CreateOleObject('Outlook.Application');
  DefNameSpace := OutlookApplication.GetNamespace('MAPI');
  Journals := DefNameSpace.GetDefaultFolder(olFolderTasks);
  ItemColl := Journals.Items;
  for iCnt := 1 to ItemColl.Count do
  begin
    aJournal := ItemColl.Item(iCnt);
    ShowMessage(aJournal.Subject);
  end;
end;
Wenn noch fragen sind...

PS: Schöner gehts natürlich per MAPI hat aber auch seine Nachteile!

Greetz
Boombuler

R2D2 2. Mär 2006 15:50

Re: Outlook Aufgaben exportieren
 
Bei mir kommen Fehlermeldungen
Zitat:

Undefinierter Bezeichner: DefNameSpace
und
Zitat:

Undefinierter Bezeichner: olFolderTasks
Als was muss ich die deklarieren?

R2D2 2. Mär 2006 15:58

Re: Outlook Aufgaben exportieren
 
OK.
Habe DefNameSpace als ole deklariert. Den olFolderTasks habe ich hier gefunden. Der Code jetzt:
Delphi-Quellcode:
procedure TDeskBar.Button1Click(Sender: TObject);
var
  Journals          : OleVariant;
  ItemColl          : OleVariant;
  aJournal          : OleVariant;
  OutlookApplication : OleVariant;
  iCnt              : Integer;
  DefNameSpace      : OleVariant;
begin
  OutlookApplication := CreateOleObject('Outlook.Application');
  DefNameSpace := OutlookApplication.GetNamespace('MAPI');
  Journals := DefNameSpace.GetDefaultFolder($0000000D);
  ItemColl := Journals.Items;
  for iCnt := 1 to ItemColl.Count do
  begin
    aJournal := ItemColl.Item(iCnt);
    ShowMessage(aJournal.Subject);
  end;
end;
So läuft es.

Vielen Dank! :-D

R2D2 2. Mär 2006 16:29

Re: Outlook Aufgaben exportieren
 
Nochmal eine Frage:

Was für properties hat aJournal eigentlich noch auser subject?

Eine Liste wäre hilfreich...

R2D2 20. Mär 2006 17:13

Re: Outlook Aufgaben exportieren
 
Zitat:

Zitat von Boombuler
Hi jo ich kann dir helfen ;)

Gibt es da wirklich keine Liste?


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:53 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz