Add Method

Add a new mailbox.

IMBX* Add(
  [in] BSTR Name, 
  [in] long Flags
)

Parameters

Name

Name of the mailbox to be added. This value must be encoded by EncodeHex method of Tools object before using.

Flags

Reserved, must be zero.

Return Value

Return value is a MBX 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 oMBXs, oMBX, oTools
Set oTools = CreateObject("EmailArchitectObjects.Tools")
Set oMBXs = oUser.MBXCollection

Dim newmbx
newmbx = "Bulk"
Set oMBX = oMBXs.Add( oTools.EncodeHex(newmbx), 0 )

If oMBX Is Nothing Then
  WScript.Echo( "add mailbox failed" )
End If