<% 'Aqui estamos recebendo a condição passada pelo formulário, fazendo 'com que o Script em ASP só seja executado caso o formulário seja enviado If Request.QueryString("envia") = "sim" Then 'Aqui configuramos o e-mail que será o Remetente do formulário, lembrando que 'endereço de e-mail deve ser uma conta válida do seu próprio domínio. emailFrom = "coprosul@coprosul.com.br" 'E aqui configuramos o Destinatário do formulário emailTo = "coprosul@coprosul.com.br" 'Neste ponto capturamos o e-mail digitado no formulário emailVisitante = request.form("xemail") 'Neste ponto capturamos o assunto para preencher no e-mail que será enviado assunto = Request.Form("xassunto") REM Montando o corpo da mensagem com os dados preenchidos no formulário corpoMensagem = "Empresa: " & Request.Form("xempresa") & "
" corpoMensagem = corpoMensagem & "Nome: " & Request.Form("xnome") & "
" corpoMensagem = corpoMensagem & "E-mail: " & Request.Form("xemail") & "
" corpoMensagem = corpoMensagem & "Assunto: " & Request.Form("xassunto") & "
" corpoMensagem = corpoMensagem & "Mensagem: " & Request.Form("xmsg") 'As quebra-linhas utilizadas no campo "textarea" não são convertidas para HTML automaticamente, 'fazendo com que tudo que o usuário digite neste campo fique alocado em uma única linha. 'Neste ponto nós convertemos essas quebra-linhas em HTML corpoMensagem = Replace(corpoMensagem, vbCrLf, "
") Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'Cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.coprosul.com.br" 'Porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = emailFrom & " <" & emailFrom & ">" objCDOSYSMail.To = emailTo 'O campo ReplyTo pode ser preenchido com o e-mail do visitante do site evitando 'assim a necessidade de preencher o campo From incorretamente com o e-mail do visitante objCDOSYSMail.ReplyTo = xemail 'objCDOSYSMail.Cc = "mauricio.sumita@gmail.com" 'objCDOSYSMail.Bcc = "comCopiaOculta@dominio" objCDOSYSMail.Subject = Request.Form("xassunto") 'Configura e preeche o corpo da mensagem objCDOSYSMail.HtmlBody = corpoMensagem 'Envia o e-mail objCDOSYSMail.Send 'Destruímos os objetos utilizados set objCDOSYSMail = nothing set objCDOSYSCon = nothing response.write "

Mensagem enviada!! Aguarde nosso contato. Obrigado

" End if %>
 
 
Empresa  

Tel:(11) 2902-3222
Fax:(11) 2902-3228
Rua Leonor Fernandes Costa Zacharias, 1949
Vila Guilherme - São Paulo - SP
CEP 02052-020
   
Nome
   
E-mail
   
Asssunto
   
Mensagem