Hej, hoppas det finns någon som kan hjälpa mig med Merak Mail Server.

Min vän har en webbserver med IIS och Merak Mail Server 7.5.2. Han vill kunna lägga till och ta bort e-post-konton genom en hemsida i ASP med hjälp av API-objektet som man kan anropa.

Vi kan bara skapa domäner och konton genom PHP, inte ASP.

Vi har dock lyckats läsa av konton med ASP utan problem.

Här är ASP-koden som inte fungerar:


<%
dim objApi
set objApi = Server.CreateObject("MerakCOM.AccountObject")
objApi.New "emil@test.com"
objApi.SetProperty "u_name", "Emil"
objApi.SetProperty "u_password", "pass"
objApi.SetProperty "u_mailbox", "emil"
objApi.Save()
Response.write objApi.Lasterr
set objApi = nothing
%>


Här är PHP-koden som fungerar:

<?php
if ($account = new COM("MerakCOM.AccountObject"))
{
$account->New("emil@test.com");
$account->SetProperty("u_name", "Emil");
$account->SetProperty("u_password", "pass");
$account->SetProperty("u_mailbox", "emil");
$account->Save();
echo($account->LastErr);
}
?>


Är det någon som ser vad som görs fel i ASP-koden? Tack på förhand.

Du har översatt:

echo($domain->LastErr);

till:

Response.write objApi.Lasterr

Borde du inte använda ett annat objekt?

Vad får du för felmeddelande?

Oj, det ska vara:

echo($account->LastErr);

I PHP-koden (som är från dokumentationen) så används account som namn, och jag använde namnet objDomain som namn i ASP-koden. Men det är strunt samma, för när jag körde PHP-koden förut så använde jag rätt namn.

Jag får inget direkt felmeddelande, utan LastErr returerar heltal. -1 är Error och 0 är Success. Jag får 0 med PHP-koden och -1 med ASP-koden. Någon direkt förklaring till vad -1 egentligen är går inte att hitta någon stans..

Har du initierat API:t? Det finns inte med i koden du visar.

Hittade lite kod:

http://www.merakmailserver.com/forum/m_440/tm.htm

Nej, men nu när jag gjort det får jag fortfarande error:

<%
dim objAccount, objApi
Set objApi = Server.CreateObject("MerakCOM.ApiObject")
objApi.Init("c:\program\merak")
set objAccount = Server.CreateObject("MerakCOM.AccountObject")
objAccount.New "abo@test.com"
objAccount.SetProperty "u_name", "Abo"
objAccount.SetProperty "u_password", "pass"
objAccount.SetProperty "u_mailbox", "abo"
objAccount.Save()
Response.write objAccount.Lasterr
set objAccount = nothing
set objApi = nothing
%>