<%@ Language=VBScript %> <%Response.Buffer=true%> <% sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From = """VisionPro"" " objMail.ReplyTo="hpremi@visionpropos.com" objMail.To = "info@softforward.com" objMail.BCC = "hpremi@softforward.com" objMail.Subject = "My Test" objMail.HTMLBody = "Test Body" objMail.Send %>