dim a as new ABAddressBookMBS
dim p as new ABPersonMBS

if not p.setValue("Miller",a.kABLastNameProperty) then
  MsgBox "Failed to set field "+a.LocalizedPropertyOrLabel(a.kABLastNameProperty)
end if

if not p.setValue("Ben",a.kABFirstNameProperty) then
  MsgBox "Failed to set field "+a.LocalizedPropertyOrLabel(a.kABFirstNameProperty)
end if

if not p.setValue("My Company",a.kABOrganizationProperty) then
  MsgBox "Failed to set field "+a.LocalizedPropertyOrLabel(a.kABOrganizationProperty)
end if

if not p.setValue(a.kABShowAsCompany,a.kABPersonFlags) then
  MsgBox "Failed to set field "+a.LocalizedPropertyOrLabel(a.kABPersonFlags)
end if


if a.addRecord(p) then
  MsgBox "Record added"
else
  MsgBox "Failed to add record"
end if

if a.save then
  MsgBox "Changes saved"
else
  MsgBox "Failed to save changes"
end if

// shows all websites with labels

dim a as new ABAddressBookMBS
dim p as ABPersonMBS = a.owner
dim m as ABMultiValueMBS = p.valueForProperty(a.kABURLsProperty)

dim u as integer = m.count-1
for i as integer = 0 to u
  dim label as string = m.labelAtIndex(i)
  dim value as string = m.valueAtIndex(i)
  
  MsgBox label+" -> "+value
next

dim a as new ABAddressBookMBS

// get all people
dim p(-1) as ABPersonMBS = a.people

// walk over people list
for each m as ABPersonMBS in p
  try
    // ask for image
    
    dim j as NSImageMBS = m.image
    
    // do something with image
    if j<>nil then
      Backdrop=j.CopyPictureWithMask
    end if
    
  catch x as NSExceptionMBS
    // raises exception if there is no image
  end try
next

dim a as new ABAddressBookMBS

// you have some uid
dim uid as string = a.owner.valueForProperty(a.kABUIDProperty)

// later you want to find the person
dim p as ABPersonMBS = a.personForUniqueId(uid)

// shows the name
MsgBox p.valueForProperty(a.kABFirstNameProperty)

dim a as new ABAddressBookMBS

// you have some uid
dim uid as string = a.owner.valueForProperty(a.kABUIDProperty)

// later you want to find the person
dim r as ABRecordMBS = a.recordForUniqueId(uid)
if r isa ABPersonMBS then
  dim p as ABPersonMBS = ABPersonMBS(r)
  
  // shows the name
  MsgBox p.valueForProperty(a.kABFirstNameProperty)
end if

dim ab as new ABAddressBookMBS

// search for people with birthday, by searching for dates starting 1901.
dim searchDate as new date( 1901, 1, 1 )
dim search as ABSearchElementMBS = ab.SearchElementForPersonProperty( ab.kABBirthdayProperty, "", "", searchDate, ab.kABGreaterThan )

// do the search
dim people() as ABRecordMBS = ab.RecordsMatchingSearchElement( search )


for each person as ABRecordMBS in people
  dim p as ABPersonMBS = ABPersonMBS( person )
  // now work on them
next

// quickly find the addressbook, locate me and display my name:
MsgBox ABAddressBookMBS.sharedAddressbook.owner.DisplayName