From Xojo Documentation

Revision as of 19:03, 3 September 2020 by THill (talk | contribs) (Text replacement - "{{Deprecated" to "{{DeprecatedItem")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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