Click or drag to resize

IPersonContact Property

Contact that this person belongs to. The contact the contact person is registered on. This is required

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOContact Contact { get; set; }

Property Value

Type: SOContact
SOContact object containing the company the contact person belongs to
Examples

Contact

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

This example returns the Name of the company this contact person is registered on.

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.Interests.Add (2)
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