Add a user alias (mail list).
IUser* AddAlias( [in] BSTR Name, [in] BSTR EmailList, [in] long Enabled, [in] long Flags )
Parameters
Name
Name of the alias to be added.
EmailList
Email list of this alias, multiple email addresses should be divided by line-breaks.
Enabled
1 means current alias is active; 0 means current alias is disabled.
Flags
This parameter can be zero or AUTH_USER_SEND(8). If it is 8, only authenticated user can send emails to current alias.
Return Value
Return value is an User object if this method succeeds; otherwise return value is null.
Remarks
Only "system" account or domain administrator has the permission to invoke this method.
Usage Example
Dim server, user, password, requestAddr
server = "localhost"
user = "admin@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
'get domain "emailarchitect.net"
Set oDomain = oDomains.Items("emailarchitect.net")
If oDomain Is Nothing Then
WScript.Echo( "domain doesn't exist" )
WScript.Quit
End If
Dim oUsers, oUser
Set oUsers = oDomain.UserCollection
Dim EmailList
EmailList = "user1@emailarchitect.net" & Chr(13) & Chr(10) & "user2@hotmail.com"
Set oUser = oUsers.AddAlias( "mylist", EmailList, 1, 0 )
If oUser Is Nothing Then
WScript.Echo( "add user alias failed." )
WScript.Quit
End If