<%
Dim MyBody
Dim MyCDONTSMail

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "mig@hemma.se"
MyCDONTSMail.To= "dig@borta.se"
MyCDONTSMail.Subject="En emailtest"
MyBody = "Detta är en test, hoppas att du" & vbCrLf
MyBody = MyBody & "får detta mail nu." & vbCrLf
MyBody = MyBody & "Vi hörs, Pelle"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
Set MyCDONTSMail=Nothing
%>