From Xojo Documentation

You are currently browsing the old Xojo documentation site. Please visit the new Xojo documentation site!

Property (As AddressBookData )

aAddressBookContact.CompanyName = newAddressBookDataValue
AddressBookDataValue = aAddressBookContact.CompanyName

Supported for all project types and targets.

The Company Name entry.

Sample Code

The following code saves the new company name.

Dim book As New AddressBook
book = System.AddressBook
book.CurrentUser.CompanyName = "Hewlett Packard"
If book.HasUnsavedChanges Then
If Then
MsgBox("The AddressBook was saved!")
End If
MsgBox("There were no unsaved changes!")
End If