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 (firstname.lastname@example.org). 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@example.com" which is the same for all of these guest e-mails. But I need the sender to be identified as the firstname.lastname@example.org 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@example.com in my test env it is delivered to the firstname.lastname@example.org with email@example.com 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!
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 = "firstname.lastname@example.org" '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