Add Method

Add a quick contact.

IContact* Add(
	[in] BSTR QuickName, 
	[in] BSTR Email, 
	[in] BSTR FirstName, 
	[in] BSTR LastName
)

Parameters

QuickName

Name of quick contact to be added.

Email

Email address of contact.

FirstName

First name of contact.

LastName

Last name of contact.

Return value

Return value is a Contact object if this method succeeds; otherwise return value is null.

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 oUsers, oUser
Set oUsers = oDomain.UserCollection
Set oUser = oUsers.Items(CStr(oSvr.User))

Dim oContacts, oContact
Set oContacts = oUser.ContactCollection

Dim quickname, email, firstname, lastname

quickname = "tester"
email = "test@emailarchitect.net"
firstname = ""
lastname = ""

Set oContact = oContacts.Add( quickname, email, firstname, lastname )
If oContact Is Nothing Then
  WScript.Echo( "add contact failed" )
  WScript.Quit
End If

'update data to server.
oContacts.Update