Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
eu tenho um formulario na pagina contato.html, puxando um arquivo aspmail da locaweb
eu nao sei onde estou errando para receber esse formulario via e-mail
o codigo do formulario abaixo
<p>Utilize o formulário abaixo:</p>
<form method="post" action="aspmail.asp" onSubmit="return valida_contato(this);">
<div></div>
<p>
<label>
Empresa</label>
<input type="text" maxlength="50" id"" class="inputNome" />
</p>
<p>
<label>
Nome</label>
<input type="text" maxlength="50" id="" class="inputNome" />
</p>
<p>
<label>
Telefone</label>
<input type="text" maxlength="50" id="" class="inputTelefone" />
</p>
<p>
<label>
E-mail</label>
<input type="text" maxlength="100" id="" class="inputEmail" />
</p>
<p>
<label>
Descrição</label>
<textarea rows="3" cols="60"></textarea>
<a id="enviar" class="btnEnviar" href="">
<img src="img/btn_enviar.gif" width="52" height="20" alt="Enviar" />
</a></p>
</p>
</form>
o codigo do aspmail
<%
'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="Destinatario"
emailDestinatario="rafael@rafael.com.br"
nomeRemetente="Contato"
emailRemetente="rafael@rafael.com.br" 'O endereço de e-mail deve ser preenchido com uma conta existente em seu próprio domínio.
emailRetorno="rafael@rafael.com.br"
responderPara="rafael@rafael.com.br"
assunto="Contato"
mensagem="Esta é uma mensagem de teste enviada através do componente AspEmail."
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 "rafael@rafael.com.br", "Rafael"
'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
erro = "<b><font color='red'> Erro ao enviar a mensagem.</font></b><br>"
erro = erro & "<b>Erro.Description:</b> " & Err.Description & "<br>"
erro = erro & "<b>Erro.Number:</b> " & Err.Number & "<br>"
erro = erro & "<b>Erro.Source:</b> " & Err.Source & "<br>"'## Remove a referência do componente da memória ##
SET AspEmail = Nothing
%>
Se puderem me ajuda eu agradeco
Carregando comentários...