GetItem Method

Get specified field.

BSTR GetItem([in] BSTR Key)

Parameters

Key

The key name of field of contact. The following key name are valid. "quickname", "firstname", "lastname", "email", "workemail", "otheremail", "personnumber", "businessnumber", "mobilenumber", "pagernumber", "faxnumber", "othernumber", "personaddress", "personcity", "personstate", "personcountry", "personzipcode", "company", "businessaddress", "businesscity", "businessstate", "businesscountry", "businesszipcode", "birthday", "website"

Return Value

Return value is the value of specified field.

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