Click or drag to resize

IContactSetDefaults Method

Populate the object with default values, such as setting the owner to the current user. Uses the UserPreferences table to set the predefined default settings for a contact (company). The SetDefaults method is only available for current objects in this version of SuperOfficeDB Type Library

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
void SetDefaults()

Implements

IModelBaseSetDefaults
Examples

SetDefaults

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.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