Ir para conteúdo

POWERED BY:

Arquivado

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

Fauze

Erro ao enviar e-mail com CDOSYS

Por , em ASP Clássico

Recommended Posts

Fauze    0

Fauze
Postado

Pessoal,

 

Preciso usar uma rotina de enivo de e-mail do site que estou desenvolvendo, e peguei um exemplo na rede, mas esta dando o seguinte erro:

 

CDO.Message.1 erro '80040212'

 

O transporte perdeu a conexão com o servidor.

 

/cdosys.asp, line 54

 

Alguem poderia me ajudar, segue abaixo o codigo.

 

<html>
<head>
<title>CDONT TEST</title>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
</head>
<body>
<p>CDOSYS TEST<br>
</p>
<form method="POST" action="cdosys.asp">
<table border="0" width="43%">
<tr>
<td width="13%">To:</td>
<td width="87%"><input type="text" name="to" size="20"></td>
</tr>
<tr>
<td width="13%">Subject:</td>
<td width="87%"><input type="text" name="subject" size="20"></td>
</tr>
<tr>
<td width="13%">Message:</td>
<td width="87%"><textarea rows="2" name="body" cols="20"></textarea></td>
</tr>
<tr>
<td width="13%"></td>
<td width="87%"><input type="submit" value="enviar" name="botao"></td>
</tr>
</table>
</form>
</body>
</html>
<%
	if request("botao") = "enviar" then
		'Cria o objeto para o envio de e-mail 
		Set objMail = 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") = "mail.softdiet.com.br" 
		'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")= 60
		objCDOSYSCon.Fields.update
		'Atualiza a configuração do CDOSYS para o envio do e-mail 
		Set objMail.Configuration = objCDOSYSCon
		'Set key properties 
		objMail.From = "softdiet@softdiet.com.br" 
		objMail.To = request.form("to")
		objMail.Subject= request.form("subject")
		objMail.TextBody = request.form("body")
		'Send the email 
		return = objMail.Send ####Linha 54 ##### AQUI DA O ERRO
		'Notify user
		if return <> 0 then
			response.write "Erro: " & return
		else
			response.write "Mensagem enviada com sucesso."
		end if
		'Clean-up mail object
		Set objMail = Nothing
	end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cirrus D. Pont    0

Cirrus D. Pont
Postado

Amigo,

 

O endereço "mail.softdiet.com.br" é um servidor SMTP e permite que você envie e-mails sem autenticação?

 

Este código me parece feito para enviar a partir de localhost, a mesma máquina onde está sendo executada a página.

 

Cirrus.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

pode ser uma instabilidade do serviço

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fauze    0

Fauze
Postado

Amigo,

 

O endereço "mail.softdiet.com.br" é um servidor SMTP e permite que você envie e-mails sem autenticação?

 

Este código me parece feito para enviar a partir de localhost, a mesma máquina onde está sendo executada a página.

 

Cirrus.

Amigo,

 

Quanto a primeira pergunta, não sei te responder, vou me informar, referente a segunda, ocorre o mesmo erro quando rodo localmente!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Verifique o 

objMail.To = request.form("to")
se for um email inválido/incorreto, ele pode dar erro,agora, rodando localmente, você deve configurar o IIS para isso, pois, sendo local, você deve trocar o SMTP, mail.softdiet.com.br,senão naun vai mesmo,e verifique o tamanho da mensagem se é maior que 2048 kb

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