<%
If VarAct = "Contato" Then
If VarNome = "" Then
Response.Write "Preencha o campo (nome) !
" & voltar
ElseIf VarEmail = "" Then
Response.Write "Preencha o campo (e-mail) !
" & voltar
ElseIf VarAssunto = "0" Then
Response.Write "Selecione o campo (assunto) !
" & voltar
ElseIf VarMensagem = "" Then
Response.Write "Preencha o campo (mensagem) !
" & voltar
Else
'Dim Mailer
'Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
'Mailer.FromName = VarNome
'Mailer.FromAddress = VarEmail
'Mailer.RemoteHost = "smtp.pizzariasebastian.com.br"
'Mailer.AddRecipient "Pizzaria Sebastian Bar Brooklin", contato@pizzariasebastian.com.br"
'Mailer.AddBCC "Pizzaria Sebastian Bar Brooklin", contato@pizzariasebastian.com.br"
'Mailer.Subject = VarAssunto & " - ( Site )"
'Mailer.ContentType = "text/html"
'Mailer.BodyText = Corpo
'If Mailer.SendMail then
' Mensagem = "Seu contato foi enviado com sucesso! Breve retornaremos o contato.
Obrigado, Pizzaria Sebastian Bar Brooklin."
'Else
' 'Mensagem = "Falha no envio. Verifique sua conexão...
" & Mailer.Response
'End if
'Set Mailer = Nothing
'Declaramos as váriaveis a serem utilizadas no script
Dim AspEmail, nomeRemetente, emailRemetente, nomeDestinatario, emailDestinatario, emailRetorno, assunto, mensagem, servidor
'Configuramos os dados a serem utilizados no cabeçalho da mensagem
nomeDestinatario = "Pizzaria Sebastian Bar Brooklin"
emailDestinatario = "contato@pizzariasebastian.com.br"
nomeRemetente = VarNome
emailRemetente = "contato@pizzariasebastian.com.br" 'O endereço de e-mail deve ser preenchido com uma conta existente em seu próprio domínio.
emailRetorno = VarEmail
responderPara = VarEmail
assunto = VarAssunto
mensagem = VarMensagem
servidor = "localhost"
'Agora configuramos o componente utilizando os dados informados nas variáveis
'Instancia o objeto na memória
SET AspEmail = Server.CreateObject("Persits.MailSender")
'Contfigura o servidor SMTP a ser utilizado
AspEmail.Host = servidor
'Configura o Nome do remetente da mensagem
AspEmail.FromName = nomeRemetente
'Configura o e-mail do remetente da mensagem que OBRIGATORIAMENTE deve ser um e-mail do seu próprio domínio
AspEmail.From = emailRemetente
'Configura o E-mail de retorno para você ser avisado em caso de problemas no envio da mensagem
AspEmail.MailFrom = emailRemetente 'Desabilitar essa linha caso o servidor esteja configurado para rodar em 64 bits
'Configura o e-mail que receberá as respostas desta mensagem
AspEmail.AddReplyTo responderPara
'Configura os destinatários da mensagem
AspEmail.AddAddress emailDestinatario, nomeDestinatario
'Configura para enviar e-mail Com Cópia
'AspEmail.AddCC "nome0@dominio.com.br", "Nome"
'AspEmail.AddCC "nome1@dominio.com.br", "Nome"
'AspEmail.AddCC "nome2@dominio.com.br", "Nome"
'Configura o Assunto da mensagem enviada
AspEmail.Subject = assunto
'Configura o formato da mensagem para HTML
AspEmail.IsHTML = True
'Configura o conteúdo da Mensagem
AspEmail.Body = mensagem
'Definir porta no caso de envio autenticado
'AspEmail.Port = 587
'Utilize este código caso queira enviar arquivo anexo
'AspEmail.AddAttachment("E:\home\SEU_LOGIN_FTP\Web\caminho_do_arquivo")
'Para quem utiliza serviços da REVENDA conosco
'AspEmail.AddAttachment("E:\vhosts\DOMINIO_COMPLETO\httpdocs\caminho_do_arquivo")
'#Ativa o tratamento de erros
On Error Resume Next
'Envia a mensagem
AspEmail.Send
'Caso ocorra problemas no envio, descreve os detalhes do mesmo.
If Err <> 0 Then
Mensagem = " Erro ao enviar a mensagem. "
Mensagem = Mensagem & "Erro.Description: " & Err.Description & " "
Mensagem = Mensagem & "Erro.Number: " & Err.Number & " "
Mensagem = Mensagem & "Erro.Source: " & Err.Source & " "
Else
Mensagem = "Mensagem enviada com sucesso para "& emailDestinatario &""
End If
'## Remove a referência do componente da memória ##
SET AspEmail = Nothing
End If
Else
%>
<%
End If
%> |
|
Central de Atendimento
(11) 5506-4947
(11) 5041-8396
(11) 5531-7067
Domingo a quinta das 18h às 24h00
Sextas e Sábados das 18h à 01h00
|