Fehler "Das angegebene Modul kann..." bei Outlook-Import

[R2D2]

Hallo!

Ich will mit folgendem Code Termine aus Outlook auslesen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  olFolderCalendar = $00000009;
var
  outlook, NameSpace, Termine, Termin: OleVariant;
  i: Integer;
begin
  try
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');
  Termine := NameSpace.GetDefaultFolder(olFolderCalendar);
  for i := 1 to Termine.Items.Count do
  begin
    ShowMessage(Termin.Subject + ' <Begin: ' + DateTimeToStr (Termin.Start) + ' >');
  end;
  Outlook := UnAssigned;
  except
  ShowMessage('Beim importieren ist ein Fehler aufgetreten. Möglicherweise ist Outlook nicht konfiguriert.');
  end;
end;

Wenn ich auf den Button1 clicke, kommt eine Exception von Typ EOLESysError mit der Meldung "Das angegebene Modul kann nicht gefunden werden." Auf einem anderen Rechner mit der gleichen Outlook-Version geht es aber!
Ich habe auf dem Computer Norton installiert gehabt.

[marabu]

Herzlich Willkommen in der Delphi-PRAXiS, R2D2.

Kann es sein, dass du vergessen hast die Variable Termin zu initialisieren?

Freundliche Grüße vom marabu

[R2D2]

Danke für die Antwort!
Der Fehler tritt aber in der Zeile
outlook := CreateOleObject('Outlook.Application'); auf. Hier wird die Variable Termin noch nicht verwendet.
Ich habe auch mal Ole generell überprüft, mit Word kann ich kommunizieren. Einen Verdacht habe ich: Könnte Norton in Outlook irgendeine Einstellung verändert haben? Ich habe mal gesucht, aber nichts gefunden.

[Bernhard Geyer]

Es gibt mehrere Möglichkeiten:

- Die COM-Registierung von Outlook ist fehlerhaft. Tritt verstärkt auf wenn vorgängerversionen aktualisieret werden -> Neu/Reparaturinstallation

- Die COM-Schnittstelle von neueren Office-Versionen ist erst aktiv wenn das Produkt registiert und aktiviert wurde.

- Die COM-Schnittstelle wurde nochmals gegenüber Viren sicherer gemacht indem erstmal irgenein schalter aktiviert werden muss.


Ich tipp aber fast auf den ersten Fall.

[R2D2]

Vielen Dank!
Das Problem ist gelöst.
Ich habe Outlook neu installiert und danach lief es.