AddressBookContact.CompanyName

From Xojo Documentation

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