Click or drag to resize

IDatabaseCreatePerson Method

Return a blank Person object. Use SetDefaults on the returned object to fill it with sensible data.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOPerson CreatePerson()

Return Value

Type: SOPerson
SOPerson - an empty person object
Examples

Create a new person

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

VB
Dim soDB, myContact, myPerson
Set soDB = CreateObject("SuperOfficeDB.Database")
enTableCntry = 19

If soDB.Login ("USERNAME", "PASSWORD") then

Set myContact = soDB.CreateContact
myContact.SetDefaults
myContact.Name= "The Light company 5"
myContact.Department = "The blue department"
myContact.Emails.Add "info@lightcompany.xxx", "Information email address"
myContact.Phones.Add "123321123", "Orders"
myContact.Phones.Add "123321111", "Information"
myContact.OrgNr = "987654321"
myContact.PostItText = "This company produces all our blue candle lights"
myContact.StreetAddress.Address1= "Ligth avenue 1"
myContact.PostalAddress.Address1="P.O.Box 123"
myContact.PostalAddress.ZipCode = "1234"
myContact.PostalAddress.City= "Lightsville"
myContact.Country = soDB.GetListItemByName (enTableCntry, "Norway")
myContact.Urls.Add "www.lightscompany.xxx", "Home page"
myContact.Save

Set myPerson = soDB.CreatePerson
myPerson.SetDefaults
myPerson.FirstName = "Mary"
myPerson.LastName = "Jones"
myPerson.Phones.Add "123321180", "Direct"
myPerson.Emails.Add "mary@lightcompany.xxx", "Direct"
myPerson.Information = "This is our sales rep"
myPerson.Contact = myContact
myPerson.Save

Else
    MsgBox "Unable to log in"
End If

See Also