Hej på Er! Lösningen var (som vanligt enkel) lite syntaxförändringar och annat var hela grejen. Tack för att du även delade med dig av svaret Per!classic ASP / CDO / IIS7 - Nån som kan tipsa om hur jag kan skicka mail?
Har haft lite ASP-sidor som legat på gamla IIS-servrar som jag nu flyttat till IIS7 på Win 2008 R2.
Någon som vet hur jag skall modifiera min kod (som funkade på gamla IIS:en) eller om jag behöver göra nått med min IIS för att jag skall kunna skicka mail från ASP-sida.
Kanske stöjds inte "CDO" på IIS 7, nån som vet?
Bugar & tackar på förhand för eventuellt nerlagd huvudbry! :o)
/Per
-------------------------------
Så här ser min gamla asp-kod ut:
Set objMessage = Server.CreateObject("CDO.Message")
objMessage.Subject = "Autosvar!"
objMessage.Sender = "namn@foretag.se"
objMessage.To = "namn@foretag.se"
objMessage.TextBody = "Detta är ett automatgenererat mail."
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.foretag.local"
objMessage.Fields.Update()
objMessage.Send
Set objMessage = Nothing
Sv: classic ASP / CDO / IIS7 - Nån som kan tipsa om hur jag kan skicka mail?
Kod som funkar i IIS 7 utan nån hopkus pokus:
<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "192.161.1.10"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "myemail@sample.com"
.To = "youremail@sample.com"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Response.write "<HTML><head><title>A message has been sent.</title></head><body>A message has been
sent.</body></HTML>"
%>
Källa: http://forums.iis.net/t/1144383.aspx
Sv:classic ASP / CDO / IIS7 - Nån som kan tipsa om hur jag kan skicka mail?