Hallo,
wenn ich einen Kontakteintrag von Outlook auslese, in dem kein Geburtstag hinterlegt ist, dann bekomme ich 01.01.4501 zurückgeliefert.
Weiß einer von euch was das soll? Wollte MS sicherstellen das Outlook2000 bin zum Jahre 4501 auf jedenfall keine Datum automatisch vergibt?
Ist das bei allen Outlooks der Fall, und auf allen Rechnern, oder nur bei mir und Outlook2000?
Wenn das einer weiß oder ausprobieren könnte, wär nett.
Hier mal der Code, mit dem man die holen kann:
Einfach mal ne Form mit einer Listbox und einem Button. Dem Button dann diese procedure zuordnen. Und "Outlook2000" in die USES.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Outlook: _Application;
ns: NameSpace;
olFolder: MAPIFolder;
TestItem: OleVariant;
i: Integer;
begin
Outlook:=CoOutlookApplication.Create;
ns:=Outlook.GetNamespace('
MAPI');
ns.Logon('
','
',True,True);
olFolder:=ns.GetDefaultFolder(olFolderContacts);
for i:=1
to olFolder.Items.Count
do begin
testItem:=olFolder.Items.Item(i);
Listbox1.Items.add(testitem.Birthday);
end;
Outlook:=nil;
end;
Bei mir kommt immer 01.01.4501 als GebDatum. Ich hab Outlook2000, WinXP Prof. und D7.
Danke