create new account with forwarding

[Erez.Mor]

Hello all
I am trying to use the following script to create a new account that will auto-forward incoming messages to an external address:

Code: Select all

        Dim obApp
	Set obApp = CreateObject("hMailServer.Application")
	Call obApp.Authenticate("Administrator", "MySuperSecretPasswordComesHere")
   
	' Locate the domain we want to add the account to
	Dim obDomain
	Set obDomain = obApp.Domains.ItemByName("sampledomain.com")

	Dim obAccount
	Set obAccount = obDomain.Accounts.Add

	' Set the account properties
	obAccount.Address = accName & "@sampledomain.com"
	obAccount.Password = accPass
	obAccount.Active = True
	obAccount.MaxSize = 10 'megabytes

	obAccount.ForwardAddress = "this.is@my.forward.email"
	obAccount.ForwardEnabled = True
	obAccount.ForwardKeepOriginal = False
	
	obAccount.Save

The above code creates the new account, Sets it's size, password, And even adds the auto-forward address and checks/unchecks the "Enabled" and "Keep original" check boxes.
BUT: The auto-forwarding is not working!
I noticed that if I select that account in "hMailServer Administrator" application, And then select the "forwarding" tab, The check-boxes are in-sync with the selections I made in the script, and the address to forward-to is there...BUT (only for this account), When I try to switch away to anything else from this "forwarding" tab, The app asks if I want to save changes (I didnt make any! i only selected the "forwarding" tab of the new account to see what's there...),
And finally, if I do select "yes" for the "save changes" request, The forwarding starts to work.

So in short, It seems like the 3 last settings in the code above (concerning the forwarding) are not saved (or not activated) until I save them manually in the UI. of course this misses the whole point of scripting the process.

Any thoughts/suggestions?

Thanx in advance,
E.

[palinka]

Hello all
I am trying to use the following script to create a new account that will auto-forward incoming messages to an external address:

Code: Select all

        Dim obApp
	Set obApp = CreateObject("hMailServer.Application")
	Call obApp.Authenticate("Administrator", "MySuperSecretPasswordComesHere")
   
	' Locate the domain we want to add the account to
	Dim obDomain
	Set obDomain = obApp.Domains.ItemByName("sampledomain.com")

	Dim obAccount
	Set obAccount = obDomain.Accounts.Add

	' Set the account properties
	obAccount.Address = accName & "@sampledomain.com"
	obAccount.Password = accPass
	obAccount.Active = True
	obAccount.MaxSize = 10 'megabytes

	obAccount.ForwardAddress = "this.is@my.forward.email"
	obAccount.ForwardEnabled = True
	obAccount.ForwardKeepOriginal = False
	
	obAccount.Save

The above code creates the new account, Sets it's size, password, And even adds the auto-forward address and checks/unchecks the "Enabled" and "Keep original" check boxes.
BUT: The auto-forwarding is not working!
I noticed that if I select that account in "hMailServer Administrator" application, And then select the "forwarding" tab, The check-boxes are in-sync with the selections I made in the script, and the address to forward-to is there...BUT (only for this account), When I try to switch away to anything else from this "forwarding" tab, The app asks if I want to save changes (I didnt make any! i only selected the "forwarding" tab of the new account to see what's there...),
And finally, if I do select "yes" for the "save changes" request, The forwarding starts to work.

So in short, It seems like the 3 last settings in the code above (concerning the forwarding) are not saved (or not activated) until I save them manually in the UI. of course this misses the whole point of scripting the process.

Any thoughts/suggestions?

Thanx in advance,
E.

This is a shot in the dark, but maybe try making "enabled" last?

Code: Select all

        Dim obApp
	Set obApp = CreateObject("hMailServer.Application")
	Call obApp.Authenticate("Administrator", "MySuperSecretPasswordComesHere")
   
	' Locate the domain we want to add the account to
	Dim obDomain
	Set obDomain = obApp.Domains.ItemByName("sampledomain.com")

	Dim obAccount
	Set obAccount = obDomain.Accounts.Add

	' Set the account properties
	obAccount.Address = accName & "@sampledomain.com"
	obAccount.Password = accPass
	obAccount.MaxSize = 10 'megabytes
	obAccount.ForwardAddress = "this.is@my.forward.email"
	obAccount.ForwardKeepOriginal = False
	obAccount.ForwardEnabled = True
	obAccount.Active = True
	obAccount.Save

Also, for whatever its worth, I just set up a test script to see what gets returned for "ForwardEnabled" on an address that has forwarding enabled.

Code: Select all

Option Explicit
Dim obApp : Set obApp = CreateObject("hMailServer.Application")
Call obApp.Authenticate("Administrator", "secret")
Dim obAccount : Set obAccount = obApp.Domains.ItemByName("mydomain.com").Accounts.ItemByAddress("user@mydomain.com")
WScript.Echo obAccount.ForwardEnabled

It returned "-1". I have no idea why its negative.

[SorenR]

Works fine on my server... Servers are headless so using DCOM thus the "\\mailserver"

Code: Select all

Dim oApp : Set oApp = CreateObject("hMailServer.Application", "\\mailserver")
Call oApp.Authenticate("Administrator", "DoubleSecretCosmicPassword")

' Locate the domain we want to add the account to
Dim oDomain : Set oDomain = oApp.Domains.ItemByName("acme.inc")

Dim oAccount : Set oAccount = oDomain.Accounts.Add

' Set the account properties
oAccount.Address = "wile.e.coyote@acme.inc"
oAccount.Password = "secret"
oAccount.Active = True
oAccount.MaxSize = 10 'megabytes

oAccount.ForwardAddress = "pinky.and.the.brain@acme.inc"
oAccount.ForwardEnabled = True
oAccount.ForwardKeepOriginal = False

oAccount.Save

Set oAccount = Nothing
Set oDomain = Nothing
Set oApp = Nothing