hMail server - sending copy of an e-mail changing the sender
- by Beggycev
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
