Daten ins Adressbuch [OS X] eintragen?

Ich habe in meiner App [die gleiche wie die mit dem Geburtstagseintrag] 2 Felder für Vorname und Nachname.
Unsere eMail-Adressen sind immer gleich aufgebaut:
vorname.nachname@fimenname.de

Kann ich von meiner App aus einen neuen Adressbucheintrag erstellen?
Die Daten kann ich mir ja aus der App ziehen. Nur wie ich auf das Adressbuch zugreife mit Xojo weiss ich nicht :frowning:

[ACHTUNG: Ich möchte keine kostenpflichtigen Plugins verwenden.]

Siehe Language Reference => AddressBook.Add

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