<% IF Request.QueryString("acao") = "envia" then corpo = "Nome: "&Request.Form("nome")&_ "
E-mail: "&Request.Form("email")&_ "
Assunto: "&Request.Form("assunto")&_ "
Mensagem: "&Request.Form("mensagem") Dim objCDOSYSMail Dim objCDOSYSCon Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.laredartes.com.br" 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/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "correio@laredartes.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "1234" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = Request.Form("email") objCDOSYSMail.To = "atendimento@fenixtelemensagens.com.br" objCDOSYSMail.Subject = Request.Form("assunto") 'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody objCDOSYSMail.HtmlBody = corpo objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing msg = "Mensagem Enviada com Sucesso!" End if %>

..................