<% ' Script pro envio do e-mail if request.Form("send") = "yes" then '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="Denale" email1="contato" email2="denale.com.br" nomeRemetente="Contato do Site" emailDestinatario = email1&"@"&email2 assunto="Contato do Site" servidor="localhost" mensagem="Nome: " &request.Form("nome") mensagem=mensagem&"
E-mail: "&request.Form("email") mensagem=mensagem&"
Telefone: "&request.Form("telefone") mensagem=mensagem+"

Mensagem: "&request.Form("mensagem") '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 = "smtp.denale.com.br" '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 = email1&"@"&email2 'Configura o E-mail de retorno para você ser avisado em caso de problemas no envio da mensagem AspEmail.MailFrom = request.Form("email") 'Configura o e-mail que receberá as respostas desta mensagem AspEmail.AddReplyTo request.Form("email") '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 '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 msg = " Erro ao enviar a mensagem.
" msg = msg & "Erro.Description: " & Err.Description & "
" msg = msg & "Erro.Number: " & Err.Number & "
" msg = msg & "Erro.Source: " & Err.Source & "
" Else msg = "

Mensagem enviada com sucesso. Aguarde nosso contato." End If '## Remove a referência do componente da memória ## SET AspEmail = Nothing end if %>