` | PropertyName As `String` | `Variant` | | ## Property descriptions

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

forsearch

AddressBookContact.Addresses **Addresses** As `AddressBookData` The Addresses entry.

forsearch

AddressBookContact.AIMScreenNames **AIMScreenNames** As `AddressBookData` A contact's AIMScreenNames entry. This property was [deprecated by Apple](https://developer.apple.com/documentation/addressbook/kabaiminstantproperty?language=objc).

forsearch

AddressBookContact.Birthday **Birthday** As `AddressBookData` Birthday entry.

forsearch

AddressBookContact.CompanyName **CompanyName** As `AddressBookData` The Company Name entry. The following code saves the new company name. ``` xojo Dim book As New AddressBook book = System.AddressBook book.CurrentUser.CompanyName = "Hewlett Packard" If book.HasUnsavedChanges Then If book.save Then MsgBox("The AddressBook was saved!") End If Else MsgBox("There were no unsaved changes!") End If ```

forsearch

AddressBookContact.CreationDate **CreationDate** As `Date` Returns the creation date of the record.

forsearch

AddressBookContact.EmailAddresses **EmailAddresses** As `AddressBookData` Email Addresses entries.

forsearch

AddressBookContact.FirstName **FirstName** As `AddressBookData` FirstName entry. This code adds a new contact with first and last names. ``` xojo Dim book As New AddressBook Dim myContact As AddressBookContact book = System.AddressBook myContact = New AddressBookContact myContact.FirstName = "Xena" myContact.LastName = "Smith" book.Add(myContact) If book.HasUnsavedChanges Then If book.Save Then MsgBox("The AddressBook was saved!") End If Else MsgBox("There were no unsaved changes!") End If ```

forsearch

AddressBookContact.HomePage **HomePage** As `AddressBookData` Home page entry. This property was deprecated by [Apple in Mac OS X 10.4](https://developer.apple.com/documentation/addressbook/kabhomepageproperty?language=objc).

forsearch

AddressBookContact.ICQNumbers **ICQNumbers** As `AddressBookData` ICQNumbers entry. This property was [deprecated by Apple](https://developer.apple.com/documentation/addressbook/kabicqinstantproperty?language=objc).

forsearch

AddressBookContact.JabberScreenNames **JabberScreenNames** As `AddressBookData` Jabber screen names entry. This property was [deprecated by Apple](https://developer.apple.com/documentation/addressbook/kabjabberinstantproperty?language=objc).

forsearch

AddressBookContact.JobTitle **JobTitle** As `AddressBookData` Job title entry.

forsearch

AddressBookContact.LastName **LastName** As `AddressBookData` Last Name entry. The following code adds the LastName field to a new contact. ``` xojo Dim book As New AddressBook Dim myContact As AddressBookContact book = System.AddressBook myContact = New AddressBookContact myContact.FirstName = "Xena" myContact.LastName = "Smith" book.Add(myContact) If book.HasUnsavedChanges Then If book.Save Then MsgBox("The AddressBook was saved!") End If Else MsgBox("There were no unsaved changes!") End If ```

forsearch

AddressBookContact.MiddleName **MiddleName** As `AddressBookData` Middle Name entry.

forsearch

AddressBookContact.ModificationDate **ModificationDate** As `Date` Returns the last modification date of the record.

forsearch

AddressBookContact.MSNScreenNames **MSNScreenNames** As `AddressBookData` MSN screen names entry. This property was [deprecated by Apple](https://developer.apple.com/documentation/addressbook/kabmsninstantproperty?language=objc).

forsearch

AddressBookContact.Note **Note** As `AddressBookData` Note entry.

forsearch

AddressBookContact.PhoneNumbers **PhoneNumbers** As `AddressBookData` Phone Numbers entries.

forsearch

AddressBookContact.UniqueID **UniqueID** As `String` Returns the unique ID corresponding to the record.

forsearch

AddressBookContact.VCard **VCard** As `String` VCard format of Address Book entry.

forsearch

AddressBookContact.YahooScreenNames **YahooScreenNames** As `AddressBookData` Yahoo screen names entry. This property was [deprecated by Apple](https://developer.apple.com/documentation/addressbook/kabyahooinstantproperty?language=objc). ## Method descriptions

forsearch

AddressBookContact.Constructor **Constructor**(vcard as `String`)

Note

`Constructors` are special methods called when you create an object with the `New` keyword and pass in the parameters above.

Creates an AddressBookContact. If the optional *vcard* is passed, populates it with the data in the vcard. This method gets the current user's email addresses. It uses the Count and Value methods of the `AddressBookData` class to do so. ``` xojo Dim Book As AddressBook Dim myContact As AddressBookContact book = System.AddressBook myContact = Book.CurrentUser For i As Integer = 0 To myContact.EmailAddresses.Count - 1 ListBox1.AddRow(myContact.emailAddresses.Value(i)) Next ```

forsearch

AddressBookContact.RemoveValue **RemoveValue**(PropertyName As `String`) Removes the value for the specified property.

forsearch

AddressBookContact.Value **Value**(PropertyName As `String`) As `Variant` Sets the value for the specified property as a `Variant`. ## Notes The methods of the `AddressBookData` class give you access to the labels, names, values, and other properties of AddressBookContact records. Use the Value method to get and set values. ## Sample code This method gets the current user's email addresses. It uses the Count and Value methods of the `AddressBookData` class to do so. ``` xojo Dim Book As AddressBook Dim myContact As AddressBookContact book = System.AddressBook myContact = book.CurrentUser For i As Integer =0 To myContact.emailAddresses.Count - 1 ListBox1.AddRow(myContact.emailAddresses.Value(i)) Next ``` --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- The following method sets the value of the FirstName field. ``` xojo Dim Book As AddressBook Dim myContact As AddressBookContact book = System.AddressBook myContact = book.CurrentUser myContact.FirstName = "Boris" ' or using AddressBookData.Value method myContact.FirstName.Value = "Boris" ``` ## Compatibility All project types on all supported operating systems. ## See also `AddressBookRecord` parent class; `AddressBook`, `AddressBookAddress`, `AddressBookData`, `AddressBookGroup`, `AddressBookRecord` classes.