Fale ConoscoFale Conosco
<% '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 = "comercial@masterbyte3000.com.br" 'E aqui configuramos o Destinatário do formulário emailTo = "comercial@masterbyte3000.com.br" 'Neste ponto capturamos o e-mail digitado no formulário emailVisitante = request.form("emailVisitante") 'Neste ponto capturamos o assunto para preencher no e-mail que será enviado assunto = Request.Form("assunto") REM Montando o corpo da mensagem com os dados preenchidos no formulário corpoMensagem = "Nome: " & Request.Form("nome") & "
" corpoMensagem = corpoMensagem & "E-mail: " & Request.Form("emailVisitante") & "
" corpoMensagem = corpoMensagem & "Telefone: " & Request.Form("telefone") & "
" corpoMensagem = corpoMensagem & "Celular: " & Request.Form("celular") & "
" corpoMensagem = corpoMensagem & "Mensagem: " & Request.Form("mensagem") '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") = "localhost" '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 = emailVisitante 'objCDOSYSMail.Cc = "comCopia@dominio" 'objCDOSYSMail.Bcc = "comCopiaOculta@dominio" objCDOSYSMail.Subject = assunto '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 com sucesso!

" response.write "

Conteúdo do e-mail enviado:
"&corpoMensagem&"

" End if %>
Master Byte 3000

Rua Castelo Branco, 104
Penha Circular - Rio de Janeiro - RJ


Tels.: (21) 3869-9373 / 3981-5875
                 98196-9999 / 7807-0058
                 Id: 55*112*67981
comercial@masterbyte3000.com.br

.