Cdonts - O que pode ser!

[ythalorossy 0]

Olá Amigos!

 

Estou com o Cdonts instalador em meu computar, passei a semana inteira enviando emails na legal, mas quando foi ontem...

 

Parece que ele nãoenvia mais nada, pode ser erro no IIS, ou pode ser no código que desenvolvi:

 

[SIZE=1]<%		If not EnviarEmail.EOF Then        'Verifica se existe dados no BD, dependendo da seleção acima    Do While not EnviarEmail.EOF      'Criei um loop para enviar todos os email do BD.  set objMail = server.createobject("CDONTS.NewMail")	'Criamos Objeto de Email.  objMail.From = "letsgodesigner@bol.com.br" 	 'Quem esta enviando o Email.  objMail.To = EnviarEmail("Email")   	 'Quem vai receber o Email.  objMail.Subject = "Projeto Resposta"    'Titulo do Email.  objMail.Body = "<table border=0 cellpadding=0 cellspacing=0 width=350>" & _  "<tr>" & _  "<td><img name='index_r1_c1' src='http://www.projetoresposta.kit.net/email/natal_feliz2003/images/index_r1_c1.gif' width='117' height='125' border='0'></td>" & _  "<td><img name='index_r1_c2' src='http://www.projetoresposta.kit.net/email/natal_feliz2003/images/index_r1_c2.gif' width='117' height='125' border='0'></td>" & _  "<td><img src='http://www.projetoresposta.kit.net/email/natal_feliz2003/images/index_r1_c3.gif' name='index_r1_c3' width='116' height='125' border='0' usemap='#index_r1_c3Map'></td>" & _  "</tr>" & _  "<tr>" & _  "<td><img name='index_r2_c1' src='http://www.projetoresposta.kit.net/email/natal_feliz2003/images/index_r2_c1.gif' width='117' height='125' border='0' ></td>" & _  "<td><img src='http://www.projetoresposta.kit.net/email/natal_feliz2003/images/index_r2_c2.gif name=index_r2_c2' width='117' height='125' border='0' usemap='#index_r2_c2Map'></td> " & _  "<td><img src='http://www.projetoresposta.kit.net/email/natal_feliz2003/images/index_r2_c3.gif' name='index_r2_c3' width='116' height='125' border='0' usemap='#index_r2_c3Map'></td>" & _  "</tr>" & _  "</table>" & _  "<map name='index_r1_c3Map'>" & _  "<area shape='rect' coords='43,99,117,114' href='http://www.projetoresposta.kit.net/email/natal_feliz2003/popup.htm' target='_blank' alt='Informações!!!'>" & _  "</map>" & _  "<map name='index_r2_c3Map'>" & _  "<area shape='rect' coords='-38,111,102,169' href='http://www.projetoresposta.kit.net' target='_blank alt=Projeto Resposta'>" & _  "</map>" & _  "<map name='index_r2_c2Map'>" & _  "<area shape='rect' coords='75,110,145,137' href='http://www.projetoresposta.kit.net' target='_blank' alt='Projeto Resposta'>" & _  "</map>"        objMail.BodyFormat = 0        'Indica o Formato do corpo Email.  objMail.MailFormat = 0          objMail.Send  EnviarEmail.MoveNext        'Aqui faço com que ele pule para o próximo regitro.  Loop            'Aciona o loop para reiniciar o enviou do Email.  Response.write "<center><font size='2' color='#c1c1c1' face='verdana'><br><br>"  Response.Write "Mensagens Enviadas<br>"  Response.write "<a href=enviar.asp>Enviar novamente</a>"  Response.write "</font></center>"  set objMail = Nothing        'Aqui descarto o Objeto de Email da memoria.  	Else           	 'Caso não escontre dados no BD.    response.write("Nenhum Email Cadastrado!!!")  'Mensagem de Falta de Dados no BD.  	End If           	 'Fim da condição de seleção acima.%>[/SIZE]

 

Se for com o IIS, alguem pode explicar, tipo alguma configuração especial...

 

Ythalo Rossy

[ythalorossy 0]

Amigos!Ajudem !!!!!!!Ythalo Rossy

[Marhault 1]

Esse código estava funcionando antes...

[cfuser 0]

Veja se os emails não foram parar na pasta c:\inetpub\mailroot\pickup.Caos haja problemas no envio, elas vão parar aí....Sugiro que você verifique se não tem problemas com o serviço smtp que está rodando na sua máquina, ou se o mesmo está desconfigurado....Valeu...

[WebASP 0]

Verifique se esta dando algum erro caso de informe aiE o cdonts esta instalado ?