<%
Option Explicit
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "kate@na.com"
objMail.From = "bob@na.com"
objMail.Subject = "Chyba oszalelimy!"
objMail.Body = "Wylij mi e-mail ze szczegami!"
objMail.Importance = 2
objMail.Value("Reply-To") = "Sprzeda<sales@na.com>" 
objMail.Send
Set objMail = Nothing
%> 
