% If Len(Request.Form("txtEmail")) > 0 then Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "info@elaprolu.com" objMail.Subject = "Email attachment demo" objMail.To = "saidarao@elaprolu.com" objMail.Body = Request.Form("txtEmail")&"This is a demo on sending an email with an attachment." objMail.Send Response.write("Mail was Sent
") 'You should always do this with CDONTS. set objMail = nothing End If %>
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||