Skapa formulär på Windowskonto

På windowsservrarna finns en färdig funktion för att skicka mail via formulär direkt från webbservern. Denna kallas CDO. Vi rekommenderar dock att man skickar mail via SMTP

Nedan finns exempelkod på hur funktionen kan anropas och användas:

Send Message <br>
<%
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 cdoMessage = CreateObject(”CDO.Message”)

With cdoMessage
Set .Configuration = cdoConfig
.From = ”avsandare@exempel.se Den här e-postadressen är skyddad från spamrobotar, du måste ha Javascript aktiverat för att visa den ”
.To = ” mottagare@exempel.se Den här e-postadressen är skyddad från spamrobotar, du måste ha Javascript aktiverat för att visa den ”
.Subject = ”Sample CDO Message”
.TextBody = ”This is a test for CDO.message”
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Message Send<br>