<% '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 = "contato@casadobarista.com.br" 'E aqui configuramos o Destinatário do formulário emailTo = "contato@casadobarista.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 & "Assunto: " & Request.Form("assunto") & "
" corpoMensagem = corpoMensagem & "Telefone: " & Request.Form("telefone") & "
" corpoMensagem = corpoMensagem & "Mensagem: " & Request.Form("mensagem") & "
" corpoMensagem = corpoMensagem & "Tipo do Evento: " & Request.Form("tipo") & "
" corpoMensagem = corpoMensagem & "Solicitante: " & Request.Form("solicitante") & "
" corpoMensagem = corpoMensagem & "Empresa: " & Request.Form("empresa") & "
" corpoMensagem = corpoMensagem & "Data do evento: " & Request.Form("data") & "
" corpoMensagem = corpoMensagem & "Local do evento: " & Request.Form("local") & "
" corpoMensagem = corpoMensagem & "Horário do evento: " & Request.Form("horario") & "
" corpoMensagem = corpoMensagem & "Quantidade de Pessoas: " & Request.Form("quantidade") & "
" corpoMensagem = corpoMensagem & "Observações: " & Request.Form("obs") '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 "Mensagem enviada de: "&emailFrom&"
" response.write "Mensagem enviada para: "&emailTo&"
" response.write "Resposta do e-mail será enviada para: "&emailVisitante&"
" response.write "

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

" response.write "Voltar" End if %>