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.