Odesílání e-mailů ASP skriptem v IIS verze 7

Máte-li zřízenou na Czechii variantu umožňující využití ASP scriptů, máte možnost využít objekt CDO.Message pro odesílání e-mailů pomocí skriptu.

Zde bychom vás rádi upozornili, že standardní použití objektu CDO.Message v ASP skriptech na IIS 7 na rozdíl od dřívějších verzí IIS vygeneruje chybu. Příklad skriptu, který vygeneruje chybu je níže:

<%
Set objMsg = CreateObject("CDO.Message")
With objMsg
.From = "from@test.cz (Test)"
.To = "to@test.cz"
.Subject = "Test"
.HTMLBody = "Body"
.Send
End With
Set objMsg = Nothing
%>

Skript je proto potřeba opravit tak, aby používal SMTP transport. Toho dosáhneme úpravou konfigurace v objektu CDO.Configuration. Níže příklad funkčního skriptu:

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 'cdoSendUsingPort
.Item(sch & "smtpserver") = "localhost"
.update
End With
Set objMsg = CreateObject("CDO.Message")
With objMsg
Set .Configuration = cdoConfig
.From = "from@test.cz (Test)"
.To = "to@test.cz"
.Subject = "Test"
.HTMLBody = "Body"
.Send
End With
Set objMsg = Nothing
Set cdoConfig = Nothing
%>