<%@ Language=VBScript%> <% mes = "" IsSuccess = false sTo = "null@internetworks.com.mx" sFrom = Trim(Request.Form("txtFrom")) sSubject = Trim(Request.Form("txtSubject")) sMailServer = "127.0.0.1" sBody = Trim(Request.Form("txtBody")) if Request("__action")="TestEMail" then TestEMail() end if Sub TestEMail() Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMail Set .Configuration = objConf .From = sFrom .To = sTo .Subject = sSubject .TextBody = sBody End With Err.Clear on error resume next objMail.Send if len(Err.Description) = 0 then mes = " Message sent to " + sTo mes = mes + " TESTS COMPLETED SUCCESSFULLY!" IsSuccess = true else mes = " " + Err.Description + " TESTS FAILED!" end if Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing End sub Sub Alert(html) if IsSuccess then Response.Write "
Success:" & html & "
" else Response.Write "
Fail:" & html & "
" end if End Sub %> ASP test page.
ASP possibilities test page

This page allows you to test the mail sending through the local Plesk SMTP mail server. For this you need to supply the sender's e-mail address, message's subject and body.

<% if len(mes) > 0 then Alert(mes) end if %>
Test send mail

Test
This page is autogenerated by Plesk