Kan ej skicka mail med VBscript och Exchange 2000

Hej på er.

Vi har en kund som tidigare körde ett VB mailskript på en Exchange 5.5 / W2k server. Detta skript slutade fungera efter att Exchange servern uppgraderades till 2000. Jag kan inte VBscript men bifogar koden nedan.

Felmeddelandet som ges är:
Microsoft VBScript runtime (0x800A0046)
Permission denied

Vi vet att vi kan sätta läs/skrivrättigheter åt WWW användaren på mailrootkatalogen men detta är inte ett alternativ då vi inte vill släppa på säkerheten. Det måste finnas andra lösningar, eller?

Koden som används ser ut så här:

<%@ LANGUAGE="VBScript" %>
<%

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

If Len(request.form("who")) = 6 and Trim(Request.Form("namn")) <> "" Then
	
	If instr(Request.Form("epost"), "@") = 0 Then
		epost = "emailadress@server.nu"
	Else
		epost = Lcase(Request.Form("epost"))
	End If

	Body = Request.Form("namn") & ", " & request.form("who") & " önskar följande ändring f.o.m. " & Trim(Request.Form("date")) & vbCrLf & vbCrLf
	Body = Body & "Inskrivningsår: " & Trim(Request.Form("ar")) & vbCrLf
	Body = Body & "E-post: " & Trim(Request.Form("epost")) & vbCrLf & vbCrLf
	Body = Body & "Anställning" & vbCrLf
	Body = Body & "Befattning: " & Trim(Request.Form("befattning")) & vbCrLf
	Body = Body & "Företag: " & Trim(Request.Form("foretag")) & vbCrLf
	Body = Body & "Företagets adress: " & Trim(Request.Form("compadress")) & vbCrLf
	Body = Body & "Postadress: " & Trim(Request.Form("comppost")) & vbCrLf
	Body = Body & "Telefon: " & Trim(Request.Form("comptel")) & vbCrLf & vbCrLf
	Body = Body & "Bostad" & vbCrLf
	Body = Body & "Namn: " & Trim(Request.Form("namn")) & vbCrLf
	Body = Body & "Adress: " & Trim(Request.Form("adress1")) & vbCrLf & vbTab & Trim(Request.Form("adress2")) & vbCrLf
	Body = Body & "Postadress: " & Trim(Request.Form("post")) & vbCrLf
	Body = Body & "Telefon: " & Trim(Request.Form("tel")) & vbCrLf

  Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From = epost
  objMail.Subject = "Testmail"
  objMail.To = "en.email.adress@server.nu"
 
  objMail.Body = Body

  objMail.Send 
  set objMail = nothing

	Response.Redirect "adress_ok.html"
Else
	Response.Redirect "adress_fel.html"
End If
Else
	Response.Redirect "adressuppdateringar.html"
End If
%>

Alla idéer och förslag mottages tacksamt.

Mvh,
Martin

Har det skett några andra systemförändringar bortsätt från uppgraderingen av Exchange?

CDONTS.NewMail har nämligen föga med Exchange att göra, det är en IIS komponent.

Det är en komplett nyinstallation men den enda komponent som förändrats är att Exchange har uppgraderats och då ingen av oss jobbar i VBScript så antog vi att felet berodde på detta. Möjligheten finns naturligtvis att IIS'en inte är exakt konfigurerad som den förra installationen.

Vad skall vi titta på i IIS'en för att se om det är där problemet ligger?

Jag tycker att felmeddelandet talar för sig självt?

Och ja, jag såg det du skrev om säkerheten.. ;)

OveRRidE skrev:

Jag tycker att felmeddelandet talar för sig självt?

Nej, det gör det inte. "Permission denied" är ett ganska intetsägande felmeddelande, framförallt när vi inte jobbar med den här miljön i vanliga fall.

Problemet ligger i Service Pack 3 för Windows 2000. Vi vet inte exakt var men det är där problemet ligger.