Formulário com CDONTS

Segue exemplo de envio de e-mail utilizando CDONTS

<%
Set objCDOSYSMail = Server.CreateObject(“CDO.Message”)
Set objCDOSYSCon = Server.CreateObject (“CDO.Configuration”)

objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “localhost”
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
objCDOSYSCon.Fields(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 30

objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = “nome@oseudominio.com”
objCDOSYSMail.To = “nome@oseudominio.com.br”
objCDOSYSMail.Subject = “Assunto do e-mail”
objCDOSYSMail.TextBody = “Corpo da mensagem”
objCDOSYSMail.Send

set objCDOSYSMail = nothing
set objCDOSYSCon = nothing
response.write “<h1>Mensagem enviada com sucesso!!</h1>”
%>

op-ad-dual-no escreveu 187 artigos