Problemo Com Cdonts
#1
Posted 02/08/2006, 14:16
E adivinha só! Qdo abri o msm estavam lá todos os emails que 'pareciam' ser enviado (não reportava erro nenhum) porém, nunca chegavam ao destino! Isso representa que tenho algum problema com o componente em si e não com o código não é verdade !? Alguem já teve este problema e pode me ajudar?
Grato
Abraço!
#2
Posted 02/08/2006, 16:26
Verifica se no codigo não tem algo como
On err resume next
isso faz com que se houver algum erro ele o ignore ao inves de mostra-lo ...
Valeu
Ta com dúvida pergunta aqui no fórum...
Grato
#3
Posted 02/08/2006, 17:33
Mas ai vai...
form
<form name="form1" method="post" action="exemail.asp">
<table width="548" border="1" align="center" bordercolor="#FFFFFF">
<tr>
<td width="73" class="style1"><div align="right">Seu Nome </div></td>
<td width="459"><label>
<input name="nome" type="text" id="nome" size="40">
</label></td>
</tr>
<tr>
<td class="style1"><div align="right">Seu Email </div></td>
<td><label>
<input name="email" type="text" id="email" size="40">
</label></td>
</tr>
<tr>
<td class="style1"><div align="right">Assunto</div></td>
<td><label>
<input name="assunto" type="text" id="assunto" size="40">
</label></td>
</tr>
<tr>
<td class="style1"><div align="right">Comentários</div></td>
<td><label>
<textarea name="comentarios" cols="50" rows="7" id="comentarios"></textarea>
</label></td>
</tr>
</table>
<div align="center">
<label>
<input type="submit" name="Submit" value="Enviar">
</label>
<br>
</div>
</form>
exemail.asp
<%
dim email, msgbody
Set email = Server.CreateObject("CDONTS.NewMail")
email.to="sandino_rs@hotmail.com"
email.from=request.form("email")
email.subject=request.Form("assunto")
msgbody= "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu uma mensagem de <b>" & request.form("nome") & "</b>, e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & request.Form("comentarios") & "</b></font></p>" _
& "</body>" _
& "</html>"
email.body = msgbody
email.importance=1
email.send
response.Redirect "mailenviado.asp"
%>
Alguem já teve problemas com portas no SMTP ? Acho que seja um problema relacionado a isto!
Aguardoo...
Abraço
Edição feita por: sandino, 02/08/2006, 17:34.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)