@f.siebler
Ich bin der Admin und mein User hat auch Schreibrechte auf diesen Kontaktordner.
Ich habe mal eben ein lokales Konto angelegt. Leider kann ich auch dort nicht schreiben. Das seltsame ist, dass keinerlei Fehlermeldung ausgegeben wird. Im Gegenteil, wenn ich mir direkt nach dem Schreiben die entsprechende ContactItem.Eigenschaft anzeigen lasse, wird auch der geänderte Wert angezeigt.
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 Trim(Contact.LastName) = '
test'
then begin
Contact.FirstName := '
abc';
end;
end;
Outlook := UnAssigned;