AddressBookContact.CompanyName

From Xojo Documentation

Revision as of 17:17, 12 August 2019 by Gperlman (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Property (As AddressBookData )


aAddressBookContact.CompanyName = newAddressBookDataValue
or
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 book.save Then
MsgBox("The AddressBook was saved!")
End If
Else
MsgBox("There were no unsaved changes!")
End If