CDOSYS sample code

Microsoft discontinued CDONTS codes. Below is the sample CDOSYS code which is used for feedback or contact forms in website: dim Mailer set Mailer = server.createobject(“CDO.Message”) Mailer.From = “from@yourdomain.com” Mailer.To = “to@somebody.com” Mailer.TextBody = “Text content” Mailer.Subject = “Mail subject” with Mailer.Configuration .Fields(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2 .Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “mail.yourdomain.com” .Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25 .Fields.Update end with Mailer.Send […]