Outlook, vernünftig, starten und beenden.

[Marco Steinebach]

Hallo zusammen,
Ich geb's jetzt auf und frage euch.
Ich möchte Outlook automatisieren.
Das klappt alles ganz prima, mit folgendem Code:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  outlook, namespace, folder, entry: OleVariant;
begin
  outlook := CreateOleObject ('Outlook.Application');
  namespace := outlook.getNameSpace ('MAPI');
  folder := NameSpace.GetDefaultFolder(9);
  ...

Mit dem folgenden Code, melde ich mich wieder ab:

Code:

  namespace.logoff;
  outlook.quit;

Aaaaber:
Ich erzeuge so eine Instanz, ob Outlook nun läuft, oder nicht. Und, vor allem, wenn ich mich so abmelde, mein Outlook vorher offen war, ist es danach zu. Was klar ist, denn Outlook selbst kann immer nur eine Instanz.
Meine Frage ist also, wie, um gotteswillen, mach ich es so, das ich:
Wenn outlook noch nicht läuft, mach ein neues objekt, merke dir, das du eine neus gemacht hast, sonst nimm das laufende objekt.
...
Wenn du vorher ein neues objekt erzeugt hast, melde dich ab, sonst vergiß es.
Ich hab schon eine Menge gelesen, steige da aber absolut nicht durch und bitte um Hilfe!

Herzlich grüßt
Wandogau

[tshubaka]

Hallo,
vielleicht so:

Delphi-Quellcode:

try
  Outlook:= GetActiveOLEObject('Outlook.Application');
except
  Outlook:= CreateOleObject('Outlook.Application');
end;

Gruss
Peter

[Marco Steinebach]

Hallo Peter,
Jep! genau so! Herzlichen Dank!