Hallo,
ich baue im Moment an einem kleinen Programm mit Zugriff auf Outlook.
Um an die Kontakte zu kommen verwende ich folgenden Code:
Delphi-Quellcode:
outlook := CreateOleObject('
Outlook.Application');
NameSpace := outlook.GetNameSpace('
MAPI');
Contacts := NameSpace.GetDefaultFolder(olFolderContacts);
for i := 1
to Contacts.Items.Count
do begin
Contact := Contacts.Items.Item(i);
Name := Contact.LastName;
[....]
Contact ist ein Objekt vom Typ ContactItem. Diese Objekt hat nun sehr viele verschiedene Properties, wie zum Beispiel FirtsName, LastName, EntryID, ...
Um nun die ganze Geschichte variabel zu gestalten, möchte ich die Properties in einen Array speichern. Dies soll wie folgt aussehen:
Delphi-Quellcode:
type TOutlookConstants = record
Caption : string;
Name : string;
end;
var OutlookConsts = array of TOutlookConstants
Zurück zu, ersten Codesegment - jetzt muss "Name := Contact.LastName;" angepasst werden, da LastName ja aus dem Array kommen soll. Irgendwie in der Art: "Name := Contact. OutlookConsts[2].Name;"
Geht das irgendwie?
Gruss