Cdonts - O que pode ser!
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
Discussão (4)
Carregando comentários...