Hallo allerseits,
ich muss einige Daten in meinen Outlookkontakten ändern. Das möchte ich nun als Übung mit Delphi machen.
Delphi-Quellcode:
outlook := CreateOleObject('
Outlook.Application');
NameSpace := outlook.GetNameSpace('
MAPI');
Contacts := NameSpace.GetDefaultFolder(olFolderContacts).Folders.Item('
ABC');
for i := 1
to Contacts.Items.Count
do
begin
Contact := Contacts.Items.Item(i);
if lowercase(Trim(Contact.JobTitle)) = '
blabla'
then begin
Contact.OfficeLocation := '
01';
end;
end;
Kann und darf ich überhaupt mit Delphi die bestehenden Outlookkontakte ändern?
Gruß
Peter