Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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> 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 ifCarregando comentários...