| Use following code for CDOSYS Email componets.
<% Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "mail.yourdomain.com" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = test@yourdomain.com cdoMessage.To = "test@medomain.com" cdoMessage.cc = "test@otherdomain.com" cdoMessage.Subject = "enquiry form CDOSYS componets" cdoMessage.HTMLBody = "your text" cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.redirect= "http://www.yourdomain.com" %> |
Powered by WHMCompleteSolution