Contact object

Methods

Properties

Remarks

Contact object maintains an individual contact information in address book.

Usage Example

Dim server, user, password, requestAddr
server = "localhost"
user = "hunter@emailarchitect.net"
password = "mypassword"
requestAddr = "192.168.0.1"

Dim oSvr
Set oSvr = CreateObject("EmailArchitectObjects.ServerRoot")
r = oSvr.Connect( server, user, password, 0, requestAddr )
If r <> 0 Then
  WScript.Echo( "connect server failed!" )
  WScript.Quit
End If

Dim oDomains, oDomain
Set oDomains = oSvr.DomainCollection
Set oDomain = oDomains.Items(CStr(oSvr.Domain)) 

Dim oContacts, oContact
Set oContacts = oDomain.ContactCollection
Dim i, nCount
nCount = oContacts.Count
'enumerates all contacts in global address book
For i = 0 To nCount-1
  Set oContact = oContacts.Items(CLng(i))
  WScript.Echo( oContact.GetItem("quickname"))
  WScript.Echo( oContact.GetItem("email"))
Next

Dim oUsers, oUser
Set oUsers = oDomain.UserCollection
Set oUser = oUsers.Items(CStr(oSvr.User))

Set oContacts = oUser.ContactCollection
nCount = oContacts.Count
'enumerates all contacts in user address book
For i = 0 To nCount-1
  Set oContact = oContacts.Items(CLng(i))
  WScript.Echo( oContact.GetItem("quickname"))
  WScript.Echo( oContact.GetItem("email"))
Next