Cdonts

fabianots · Novembro 5, 2003

Pessoal,

Fiz uma pagina para testar o uso do cdonts. Aparentemente Ela excuta direitinho, só que o destinatário não recebe as mensagens. Estou usando na minha máquina windows 2000 professional com iis instalado, numa rede local com acesso a internet.

Na pasta c:\inetpub\mailroot\drop não tem nenhuma mensagem.

Já na pasta c:\inetpub\mailroot\Badpmail tem 3 arquivos com as extensões .bad ; .bdp e .bdr.

Na pasta c:\inetpub\mailroot\queue tem um arquivo chamado:

NTFS_b964f5e601c3a3e200000006.EML

Por favor me ajudem !

Segue abaixo o código !!!

<html>

<head>

<title>SMSsend.asp</title></head>

<td>

<tr>

s

</td>

</tr>

<tr>

<%

Set objmail = Server.CreateObject("CDONTS.NewMail")

objmail.from = de_email

objmail.to = para_email

objmail.subject = assunto

objmail.body = texto

objmail.send

Set Mailer = Server.CreateObject("CDONTS.NewMail")

Mailer.From = "fabianots@tj.rj.gov.br"

Mailer.To= Request.Form("emailpara")

Mailer.Subject = Request.Form("assunto")

Mailer.Body = Request.Form("mensagem")

Mailer.Importance = 1

Mailer.BodyFormat = 0

Mailer.MailFormat = 0

Mailer.Send

'Mailer.RemoteHost = "smtp.ig.com.br"

'Mailer.Priority = 1

'Mailer.AddRecipient Request.Form("NomePara"), Request.Form("emailpara")

'if Mailer.SendMail then

msgenv=1

'else

'msgenv=0

'errol=Chr(34)& Mailer.Response &Chr(34)

'end if

if msgenv=1 then

%> <br>

<font face="Verdana, Arial, Helvetica, sans-serif" size="3"> A sua

mensagem foi enviada com sucesso para o n.º <%=session("Numero")%>.<br>

Aproveite também para <a href="default.htm"><font size="3"><u>enviar</u></font></a>

a outra pessoa.<br>

</font><font color="#022941">

<%

else

%>

</font></font></p>

<font color="#022941"><font face="Verdana, Arial, Helvetica, sans-serif" size="3">Ocorreu

um erro ao enviar a mensagem.<br>

O erro foi:</font><font color="#022941"><%=errol%></font><font face="Verdana, Arial, Helvetica, sans-serif">.<br>

Se este erro persistir reporte-o ao webmaster, usando o botão

que se segue.<br>

Desde já obrigado.<br>

<br>

<% response.write "NomePara: " & Request.Form("NomePara")

response.write "emailPara: " & Request.Form("emailpara")

%>

<br>

<br>

</font>.</font> <br>

</form>

<%

end if

' Muito importante !!! convém ter isto no final, pois assim acaba com qualquer sessão !! e liberta o servidor...

session.abandon

%>

</td>

</tr>

</table>

</td>

</tr>

</table>

<br>

</body>

Decio · Novembro 5, 2003

Tenta este exemplo que eu testei e sei que está funcionando:

<%

on error resume next

Dim objMail

Dim Message

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.To = "xxxxx@xxxx.com.br"

objMail.From = "xxxx@xxxxx.com.br"

objMail.Subject = "teste."

Message="teste do sistema"

objMail.Body = Message

objMail.Importance = 2

objMail.bcc = "xxxx@xxx.com.br"

objMail.BodyFormat = 0

objMail.MailFormat = 0

objMail.Send

Set objMail = Nothing

if err.number <> 0 then

Response.Write err.number & " - " & err.description

else

Response.Write "ENVIO DE E-MAIL ok"

end if

%>

fabianots · Novembro 5, 2003

O código que eu postei esta funcionando !! Só que o IIS está armazenando na pasta c:\inetpub\mailroot\queue e não envia !!! Por que será ?

Decio · Novembro 5, 2003

Este código eu fiz por estar com um problema parecido, que não dava erro mas não enviava o e-mail. Quando eu fiz o código de tratamento de erro apareceu o motivo. No seu código o tratamento de erro está estranho , você define "msgenv=1"

e depois "if msgenv=1 then " = ok . Desta forma sempre vai ser ok não é verdade?

fabianots · Novembro 5, 2003

fiz isso porque antes usava o componente aspmail. nele, dava para testar se o envio de mensagem foi feito com sucesso. Como não consegui, tentei usar o Cdonts, porém não tem como fazer teste de envio com cdonts né ?! Ou tem ?

Decio · Novembro 6, 2003

Sei la, aparentemente com o "err" você consegue pegar o erro .Eu uso, mas acho o Cdonts muito fraco.

já aconteceu de enviar um email e ele chegar dois dias depois ao destinatário...

fabianots · Novembro 10, 2003

moderador, já resolvi o problema. Fique a vontade para fechar o tópico !

Abril 4, 2007

moderador, já resolvi o problema. Fique a vontade para fechar o tópico !

Fabianots,

Estou com o problema exatamento igual ao seu. Você poderia postar como você solucionou o caso? já estou há três dias brigando com esse problema

bareta · Abril 4, 2007

o cdonts está extinto ... em mtos lugares não funciona mais....

o ideal é usar o cdosys......

Entrar

Cdonts

Pergunta

fabianots

Link para o comentário

Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

Decio

Link para o comentário

Compartilhar em outros sites

fabianots

Link para o comentário

Compartilhar em outros sites

Decio

Link para o comentário

Compartilhar em outros sites

fabianots

Link para o comentário

Compartilhar em outros sites

Decio

Link para o comentário

Compartilhar em outros sites

fabianots

Link para o comentário

Compartilhar em outros sites

Guest Hugoss

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades