Difference between revisions of "AddressBook.Add"

From Xojo Documentation

(SMBot: new page by automated transformation)
 
m (Text replacement - "{{Deprecated" to "{{DeprecatedItem")
 
(9 intermediate revisions by 4 users not shown)
Line 1: Line 1:
 +
{{DeprecatedItem|version=2019r2}}
 
{{MethodBox
 
{{MethodBox
 
| name=Add
 
| name=Add
Line 5: Line 6:
 
| scope=public
 
| scope=public
 
| parameters=Record as [[AddressBookRecord]]
 
| parameters=Record as [[AddressBookRecord]]
| platform=all
+
| platform=mac
 
}}
 
}}
Adds the record to the Address Book.
+
{{Description
 +
|text = Adds the record to the Address Book.
 +
}}
 +
 
 +
== Sample Code ==
 +
The following code adds a new contact to the address book.
 +
<rbcode>
 +
Dim book As New AddressBook
 +
Dim myContact As AddressBookContact
 +
book = System.AddressBook
 +
myContact = New AddressBookContact
 +
 
 +
myContact.FirstName = "Xena"
 +
myContact.LastName = "Smith"
 +
myContact.CompanyName = "Xanadu"
 +
myContact.JobTitle = "Free Lance"
 +
 
 +
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
 +
</rbcode>

Latest revision as of 19:05, 3 September 2020

Method


AddressBook.Add(Record as AddressBookRecord)

Supported for all project types and targets.

Adds the record to the Address Book.

Sample Code

The following code adds a new contact to the address book.

Dim book As New AddressBook
Dim myContact As AddressBookContact
book = System.AddressBook
myContact = New AddressBookContact

myContact.FirstName = "Xena"
myContact.LastName = "Smith"
myContact.CompanyName = "Xanadu"
myContact.JobTitle = "Free Lance"

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