| |
CONTATO
| |
<%
'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@sushicia.com.br"
'E aqui configuramos o Destinatário do formulário
emailTo = "contato@sushicia.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")
'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.redirect("ok.htm")
End if
%>
|
|
|
