Dear All

please help me with following request. I am using hMail server in a company(test.com) and have several hundred of guest e-mail accounts ([email protected]). I need to accomplish this:

When any of the guest e-mails receives a message(either from internal or external sender) this e-mail(or its copy) is sent to another address "[email protected]" which is the same for all of these guest e-mails. But I need the sender to be identified as the [email protected] not as the original sender which happens when I use forwarding.

I tried to prepare a simple VBS script using the OnAcceptMessage event to accomplish this. and it works on my testing machine without internet connectivity but not in the production environment. To be specific, if I send an e-mail to [email protected] in my test env it is delivered to the [email protected] with [email protected] being a sender. But in the production env the e-mail stays in the guest mailbox with the original sender.

I am interested in any solution, using a rule in hMail or script, anything is welcome. Thank you for any help!

The script:

Sub OnAcceptMessage(oClient, oMessage)


'creating application object in order to perform operations as hMail server administrator

Dim obApp
Set obApp = CreateObject("hMailServer.Application")

Dim adminLogin
Dim adminPassword


'Enter actual values for administrator account and password
'CHANGE HERE:
adminLogin = "Admin_login"
adminPassword = "password"


Call obApp.Authenticate(adminLogin, adminPassword)

Dim addrStart

'Take first 5 characters of recipients address
addrStart = Mid(oMessage.To, 1, 5)

'if the recipient's address start with "guest" 
if addrStart = "guest" then

Dim recipient
Dim recipientAddress

'enter name of the recipient and respective e-mail address()
'CHANGE HERE:   
  recipient = "FINAL"
  recipientAddress = "[email protected]"

 'change the sender and sender e-mail address to the guest 
   oMessage.FromAddress = oMessage.To
   oMessage.From = oMessage.To & "<" & oMessage.To & ">"

    'delete recipients and enter a new one - the actual mps and its e-mail from the variables     set above   
     oMessage.ClearRecipients()
     oMessage.AddRecipient recipient, recipientAddress

'save the e-mail   
oMessage.save

end if

End Sub