Script til at sende Forms med over smtp

Hvis du laver en side med en form der kalder en anden side via ACTION, skal den kaldte side indeholde noget lig nedenstående for at sende det som mail.

Dim objCDO
sendestil = Request.Form("Email")
Set objCDO = Server.CreateObject("CDONTS.NewMail")
indhold = indhold & "Sted:    " & Request.Form("Lokale") & vbCrLf
indhold = indhold & "Fra:    " & Request.Form("Anmelder") & vbCrLf

objCDO.From = "abc@herfra.dk"
objCDO.To = sendestil
objCDO.Subject =  Request.Form("Emne") & vbCrLf
objCDO.Body = indhold

' * Ekstra egenskaber (valgfrit)

' objCDO.Cc = kopi til
' objCDO.Bcc = blindkopi

' Prioritet:  1 = Høj, 2 = Normal (standard), 3 = Lav
'objCDO.Importance = 2
' TekstFormat: 0 = HTML, 1 = Text (standard)
objCDO.BodyFormat = 0
' MailFormat: 1 = Mime format, 2 = Text (standard)
objCDO.MailFormat = 1
' Attachment (bemærk stiangivelsen på serveren)
'objCDO.AttachFile("c:\inetpub\wwwroot\test.txt")
' -----------------------------------------------------
objCDO.Send
Set objCDO = Nothing