I have the need to integrate the potential of the login, calendar and files getione MailEnable with my application I am building.
The application will be built on another domain that has a static IP address (80.68.196.107)
MailEnable of an IPO is too static: 80.68.196.90.
I downloaded the examples in ASP enterprise version of mail enable.
http://www.mailenable.com/developers/de ... spcode.asp
I uploaded the files and the location is as follows:
http://www.domain.com/mewebmail/base/en ... /login.asp
Before you start I created a test file to see if I could run the "Remote Administration" only I get the following error:
"The call to Server.CreateObject failed while checking permissions. Access is denied to this object."
This is the code of the test page:
Code: Select all
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'Dim oMEAORAHost As Object
'Set oMEAORAHost = CreateObject("MEAORA.Hosts")
Dim oMEAORAHost
Set oMEAORAHost = Server.CreateObject("MEAORA.Hosts")
oMEAORAHost.HostName = Me.lstIPAddress
oMEAORAHost.Address = Me.lstIPAddress
oMEAORAHost.UserName = Me.txtUsername
oMEAORAHost.Password = Me.txtPassword
oMEAORAHost.Port = Me.txtPort
oMEAORAHost.AddHost
Set oMEAORAHost = Nothing
'Dim oMEAORASession As Object
'Set oMEAORASession = CreateObject("MEAORA.Session")
Dim oMEAORASession
Set oMEAORASession = Server.CreateObject("MEAORA.Session")
oMEAORASession.Address = strIPAddress
Select Case oMEAORASession.Authenticate
Case 0:
MsgBox "Communications Failure"
Case 1:
MsgBox "Service authenticated user successfully."
Case 2:
MsgBox "Remote Host does not appear to be running MailEnable Remote Administration Service"
Case 3:
MsgBox "Service was contacted but account used was invalid. Check the password for the account and ensure that the user has SYSADMIN rights."
End Select
Set oMEAORASession = Nothing
'Dim oMEAOAM As Object
'Set oMEAOAM = CreateObject("MEAOAM.AddressMap")
Dim oMEAOAM
Set oMEAOAM = Server.CreateObject("MEAOAM.AddressMap")
oMEAOAM.CurrentHost = "80.68.196.90"
oMEAOAM.SetHost
'
Response.Write("Esecuzione ok")
'
Set oMEAOAM = Nothing
%>
Sorry for the bad English and I thank everyone in advance.