Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

NS-5 Without the 3 Law

[Resolvido] Erro ao Enviar email via ASP

Por , em ASP Clássico

Recommended Posts

NS-5 Without the 3 Law    0

NS-5 Without the 3 Law
Postado

E ae galera, sou iniciante em asp como devem saber =D

 

Bem estou aprendendo tudo na marra mesmo, só que eestou com um problema aqui.

 

Tenho este código para envio.

 

<html>
<head>
<title>Formulário de Contato</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<p><font face="Arial, Helvetica, sans-serif" size="2"><b><font color="#FF0000" size="4" face="Times New Roman, Times, serif">
Formulário de Contato</font></b></font></p>
<form method="post" enctype="multpart/formdata" name="form1" action="enviar.asp">
<table width="47%" border="1" cellspacing="2" cellpadding="2">
<tr>
<td width="33%"><font face="Times New Roman, Times, serif" size="3">Nome do 
Remetente: </font></td>
<td width="67%"><font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="nomerem" size="55">
</font></td>
</tr>
<tr>
<td width="33%"><font face="Times New Roman, Times, serif" size="3">E-mail do 
remetente: </font></td>
<td width="67%"><font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="emailrem" size="55">
</font></td>
</tr>
<tr>
<td width="33%"><font face="Times New Roman, Times, serif" size="3">Assunto: </font></td>
<td width="67%"><font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="assunto" size="55">
</font></td>
</tr>
<tr>
<td width="33%"><font face="Times New Roman, Times, serif" size="3">Mensagem:</font></td>
<td width="67%">
<textarea name="recado" rows="7" cols="52"></textarea>
</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<input type="submit" name="Submit" value="Enviar">
<input type="reset" name="reset" value="Limpar">
</div>
</td>
</tr>
</table>
</form>
</div>
</body>
</html>

Essa é a pagina que envia o email

 

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>
</head>

<body>
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.felipdev.com"
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = "contato@felipdev.com"
cdoConfig.Fields.Item(sch & "sendpassword") = "xxxx"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.From = "contato@felipedev.com"
cdoMessage.To = "felipedev@felipedev.com" 
cdoMessage.Subject = "Formulario de Contato"
cdoMessage.ReplyTo = Request("emailrem") 

strBody = "Dados <br> <br>" & _
"Nome:"& Request("nomerem")& "<br>" & _
"E-Mail:"& Request("emailrem")& "<br>" & _
"Assunto:"& Request("assunto")& "<br>" & _
"Mensagem:"& Request("recado")

strBody = strBody & "."
cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.write "O e-mail foi processado e enviado com sucesso"
%>


</body>

</html>

Quando eu passo para o meu servidor e faço o teste ele dá este erro aqui.

 

"CDO.Message.1 error '80040213'

 

The transport failed to connect to the server.

 

/enviar.asp, line 38 "

 

 

alguém poderia me ajudar ?

Pois eu tentei procurar este erro mas não o achei de forma alguma!

 

Obrigado =D

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Provavelmente problema com na configuração de envio do SMTP. Verifique as configurações.

 

Se estiver hospedado na revenda da Locaweb, informe LOCALHOST no servidor de saída.

Compartilhar este post

Link para o post
Compartilhar em outros sites

NS-5 Without the 3 Law    0

NS-5 Without the 3 Law
Postado

O Serviço contrato é UOL HOSTS.

 

Ele pede autenticação.

 

Como eu insiro essa condição no código ?

 

Para configurar em Outlook e essas coisas ele diz que o servidor necessita de autenticação com esse servidor. (para marcar opção)

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

A autenticação é feita da forma que você está fazendo mesmo.

 

É melhor você verificar diretamente com o suporte a configuração para se utilizar o componente de envio de e-mail, pois a configuração parece está Ok para um servidor comum.

 

Obs. Acrescenta aí antes de autenticar:

cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1

Compartilhar este post

Link para o post
Compartilhar em outros sites

NS-5 Without the 3 Law    0

NS-5 Without the 3 Law
Postado

Hargon, eu refiz o código, lendo linha por linha e editando servidores e etc.

E adicionei esta linha que me disse para adicionar, desta vez houve a mensagem de funcionamento.

 

Muito obrigado pela ajuda!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito