Darf ich in Outlookkontakt schreiben?

[PASST]

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