<% 'envio = false 'if request("enviar") = "enviar" then 'destino = "vendas@masiero.ind.br" 'destino = "mariana@wtprime.com.br" 'destino2 = "informatica@masiero.ind.br" mensagem = "Cadastro de Representantes:

" &_ " Nome: " & request("nome") & "
" &_ " Empresa: " & request("empresa") & "
" &_ " E-mail: " & request("email") & "
" &_ " Telefone: " & request("fone") & "
" &_ " Cidade: " & request("cidade") & "
" &_ " Estado: " & request("uf") & "
" &_ " Mensagem: " & request("mensagem") & "
" 'response.write mensagem '+++++++++++++++++++++++++++++++++++ ENVIO DE EMAIL +++++++++++++++++++++++++++++++++++ ' Set ObjMail = Server.CreateObject("Cdonts.Newmail") ' objMail.Subject = "[Contato] Web Site" ' objMail.From = request("email") ' objMail.To = "mariana@wtprime.com.br"'e-mail de notificação wt prime ' objMail.BodyFormat = 0 ' objMail.MailFormat = 0 ' objMail.Body = mensagem ' objMail.Send ' Set objMail = nothing ' envio = true ' Cria o componente aspmail Set Mailer = Server.CreateObject("SMTPsvg.Mailer") ' Nome do Remetente Mailer.FromName = request("nome") ' E-mail do Rementente Mailer.FromAddress= request("email") Mailer.ContentType = "text/html" ' Servidor de envio de e-mail Mailer.RemoteHost = "mail-fwd" ' Nome / Endereço de quem recebera o E-mail Mailer.AddRecipient "C&S do Brasil", "atendimento@cesdobrasil.com.br" ' Assunto do E-mail Mailer.Subject = "[Contato] Web Site" ' Campo da mensagem Mailer.BodyText = mensagem if Mailer.SendMail then %> <% end if%> '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  • CONTATO
  • FALE CONOSCO

Fale com a C&S!

  • Nome:
  • Empresa:
  • Email:
  • Telefone:
  • Cidade:
  • Estado
  • Mensagem: