CDONTS - O QUE HA DE ERRADO NESSE CODIGO?

MAFACILITY 02/09/2009 15:39:04
#321720
Tenho uma rotina fale conosco, minha hospedagem tem suporte ao componente cdonts, coloco o meu código no servidor ele funciona sem dar erro nenhum e diz que enviou a mensagem com sucesso, porem a mensagem não chega. Dê uma olhada no código veja se está faltando alguma coisa.
obs: já liguei para a hospedagem e não precisa habilitação do componente para uso.

[ô] FORMULÁRIO
</font></em></strong></font></div></td>
</tr>
<tr valign=[Ô]top[Ô] bgcolor=[Ô]#FFFFFF[Ô]>
<td height=[Ô]7%[Ô] colspan=[Ô]2[Ô] bgcolor=[Ô]#F7F7F[Ô]>
<div align=[Ô]center[Ô]></div></td>
</tr>
<tr bgcolor=[Ô]#FFFFFF[Ô]>
<td width=[Ô]26%[Ô] height=[Ô]8%[Ô] bgcolor=[Ô]#F7F7F[Ô]> <div align=[Ô]center[Ô]><strong><font face=[Ô]Arial, Helvetica, sans-serif[Ô]><em><font color=[Ô]#000000[Ô] size=[Ô]2[Ô]>Nome:</font></em></font></strong></div></td>
<td width=[Ô]74%[Ô] bgcolor=[Ô]#F7F7F[Ô]> <font color=[Ô]#00FFFF[Ô]>
<input name=[Ô]txt_nome[Ô] type=[Ô]text[Ô] id=[Ô]txt_nome3[Ô] size=[Ô]25[Ô]>
</font></td>
</tr>
<tr bgcolor=[Ô]#FFFFFF[Ô]>
<td height=[Ô]24[Ô] bgcolor=[Ô]#F7F7F[Ô]>
<div align=[Ô]center[Ô]><strong><font face=[Ô]Arial, Helvetica, sans-serif[Ô]><em><font color=[Ô]#000000[Ô] size=[Ô]2[Ô]>Email:</font></em></font></strong></div></td>
<td bgcolor=[Ô]#F7F7F[Ô]> <font color=[Ô]#00FFFF[Ô]>
<input name=[Ô]txt_email[Ô] type=[Ô]text[Ô] id=[Ô]txt_email3[Ô] size=[Ô]25[Ô]>
</font></td>
</tr>
<tr bgcolor=[Ô]#FFFFFF[Ô]>
<td height=[Ô]8%[Ô] bgcolor=[Ô]#F7F7F[Ô]> <div align=[Ô]center[Ô]><strong><font face=[Ô]Arial, Helvetica, sans-serif[Ô]><em><font color=[Ô]#000000[Ô] size=[Ô]2[Ô]>Assunto:</font></em></font></strong></div></td>
<td bgcolor=[Ô]#F7F7F[Ô]> <font color=[Ô]#00FFFF[Ô]>
<input name=[Ô]txt_assunto[Ô] type=[Ô]text[Ô] id=[Ô]txt_assunto3[Ô] size=[Ô]25[Ô]>
</font></td>
</tr>
<tr bgcolor=[Ô]#FFFFFF[Ô]>
<td height=[Ô]7%[Ô] colspan=[Ô]2[Ô] bgcolor=[Ô]#F7F7F[Ô]><strong><em><font color=[Ô]#000000[Ô] size=[Ô]2[Ô] face=[Ô]Arial, Helvetica, sans-serif[Ô]> </font></em></strong></td>
</tr>
<tr bgcolor=[Ô]#FFFFFF[Ô]>
<td height=[Ô]44%[Ô] bgcolor=[Ô]#F7F7F[Ô]> <div align=[Ô]center[Ô]><strong><font face=[Ô]Arial, Helvetica, sans-serif[Ô]><em><font color=[Ô]#000000[Ô] size=[Ô]2[Ô]>Mensagem:<br>
</font></em></font></strong></div></td>
<td bgcolor=[Ô]#F7F7F[Ô]> <font color=[Ô]#00FFFF[Ô]>
<textarea name=[Ô]txt_mensagem[Ô] cols=[Ô]26[Ô] rows=[Ô]5[Ô] id=[Ô]textarea3[Ô]></textarea>
</font></td>
</tr>
<tr bgcolor=[Ô]#F7F7F[Ô]>
<td height=[Ô]10%[Ô] colspan=[Ô]2[Ô]> <div align=[Ô]center[Ô]><font color=[Ô]#00FFFF[Ô]>
<input type=[Ô]reset[Ô] name=[Ô]Submit2[Ô] value=[Ô]Limpar[Ô]>
  
<input type=[Ô]submit[Ô] name=[Ô]Submit[Ô] value=[Ô]Enviar[Ô]>
</font></div></td>
</tr>
<tr bgcolor=[Ô]#F7F7F[Ô]>
<td height=[Ô]10%[Ô] colspan=[Ô]2[Ô]>
<div align=[Ô]center[Ô]><font color=[Ô]#F7F7F[Ô]>.</font></div></td>
</tr>
</table></td>
</tr>
</table>
</div>
<div align=[Ô]center[Ô]></div>
</form>
</body>
</html>


[ô] ENVIA EMAIL
<title>envia_email.asp</title>
<%
[ô]Vamos recuperar os valores do formulário
nome = Request.Form([Ô]txt_nome[Ô])
email = Request.Form([Ô]txt_email[Ô])
assunto = Request.Form([Ô]txt_assunto[Ô])
mensagem = Request.Form([Ô]txt_mensagem[Ô])

[ô]Agora vamos criar o objeto Cdonts e enviar a mensagem
Set msg = Server.CreateObject([Ô]CDONTS.NewMail[Ô])
msg.From = email
[ô]Coloque o e-mail que receberá as mensagens
msg.To = [Ô]laportimoveis@laportimoveis.com.br[Ô]
msg.Subject = assunto
texto = [Ô]O usuário [Ô]&nome&[Ô] lhe envio a mensagem abaixo:[Ô]
texto = texto & mensagem
msg.Body = texto
msg.Send
Set msg = Nothing

[ô]Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.Write [Ô]Mensagem enviada com sucesso! - Em breve entraremos em contato[Ô]
%>
FERRONICARDOSO 04/09/2009 21:50:24
#322039
Pelo que percebi não existe nada de errado.
Olha o meu, eu criei um função para enviar.

   
Function EnviarNewsletter(vFrom, vTo, vBcc, vSubject, vBody)
	Set ObjMail = server.CreateObject([Ô]CDONTS.NewMail[Ô])
	ObjMail.BodyFormat = 0 [ô]cdoBodyFormatHTML
	ObjMail.MailFormat = 0 [ô]cdoMailFormatMIME
	ObjMail.From = vFrom
	ObjMail.To = vTo
	ObjMail.Bcc = vBcc
	ObjMail.Subject = vSubject
	objMail.Body = vBody
	
	ObjMail.Send
	Set ObjMail = Nothing
End Function
USUARIO.EXCLUIDOS 09/09/2009 11:24:57
#322380
Desculpe a pergunta, mas porque você não usa CDOsys? além de mais atual e sem bugs, funciona em qualquer lugar, já que os objetos instanciados são nativos do Windows.
veja um exemplo aqui.
MAFACILITY 09/09/2009 12:01:01
#322387
valeu FERRONICARDOSO e JOAONETO vou dar uma analisada, depois posto a solução.
Tópico encerrado , respostas não são mais permitidas
Voltar