Problemas enviar email CDONTS

[Isaac Sá 0]

Bom dia pessoal, já quebrei a cabeça aqui e tentei um monte de coisas, já ta atrasado 2 dias a entrega dessa parte e não vejo mais o que fazer e vim recorrer a vcs programadores experientes http://forum.imasters.com.br/public/style_emoticons/default/pinch.gif

 

vamos lá, o que eu preciso fazer é simples, verificar quais clientes não viram que tem arquivos novos no sistema a mais de 3 dias e enviar um email avisando, ele passa o código todo, não dá nenhum erro, mas o email não chega, vamos ao código.

 

Eu fiz 2 tentativas, vamos a elas:

 

Tentativa 01

<!--#include file="abre_conexao.inc"--> 'Ta conectando ao banco beleza

<%

SQL="SELECT" 'Cortei o select mas ele ta pegando os dados direitinho

Set RsConfirmaLeitura = ObjCon.Execute(SQL)

 

cont = 0

do until RsConfirmaLeitura.EOF 'loop em todos os arquivos não lidos

data1 = formatdatetime(RsConfirmaLeitura("datainc"),2)

dataH = formatdatetime(now(),2)

if cont < 4 then 'coloquei isso pra testar, enviar 4 emails soh

if DateDiff("d", data1, dataH) = 3 then 'verificando se o arquivo faz 3 dias que não foi lido

 

SQL = "select" 'aqui pega o email do cliente, ta funcionando tb

Set RsCliente = Objcon.Execute(SQL)

 

if Trim(RsCliente("email") & "") <> "" then 'verificando se tem email cadastrado

 

Set objNewMail = CreateObject("CDONTS.NewMail")

With objNewMail

.To = "Isaac" & "<newtonblack@gmail.com>" 'por enquanto estou enviando pro meu email do gmail pra testar, ja tentei enviar pra outros emails tb

.From = "Tecnologia Kaisen" & "<suporte@tecnologiakaisen.com.br>"

.Subject = "Você tem arquivos não vistos a 3 dias"

.BodyFormat = CdoBodyFormatHTML

.MailFormat = CdoMailFormatMime

.Body = "testando envio email"

.Send

End With

Set objNewMail = Nothing

response.Flush()

cont = cont + 1

response.Write("Email "&cont&" enviado<br>") 'coloquei isso pra saber se ta enviando

 

end if

end if

end if

RsConfirmaLeitura.movenext

loop

 

response.Write("<br>Enviados "&cont&" emails<br><b>fim</b>")

%>

<!--#include file="fecha_conexao.inc"-->

 

Tentativa 02

<!--#include file="abre_conexao.inc"--> 'Ta conectando ao banco beleza

<%

SQL="SELECT" 'Cortei o select mas ele ta pegando os dados direitinho

Set RsConfirmaLeitura = ObjCon.Execute(SQL)

 

cont = 0

do until RsConfirmaLeitura.EOF 'loop em todos os arquivos não lidos

data1 = formatdatetime(RsConfirmaLeitura("datainc"),2)

dataH = formatdatetime(now(),2)

if cont < 4 then 'coloquei isso pra testar, enviar 4 emails soh

if DateDiff("d", data1, dataH) = 3 then 'verificando se o arquivo faz 3 dias que não foi lido

 

SQL = "select" 'aqui pega o email do cliente, ta funcionando tb

Set RsCliente = Objcon.Execute(SQL)

 

if Trim(RsCliente("email") & "") <> "" then 'verificando se tem email cadastrado

ObjEmail.From = "suporte@tecnologiakaisen.com.br"

ObjEmail.To = "newtonblack@gmail.com" 'usando meu email do gmail pra teste

ObjEmail.Subject = "Você tem arquivos não vistos a 3 dias"

ObjEmail.Body = "teste envio email"

ObjEmail.Importance = 1

ObjEmail.BodyFormat = 0

ObjEmail.MailFormat = 0

ObjEmail.Send

response.Flush()

cont = cont + 1

response.Write("Email "&cont&" enviado<br>") 'coloquei isso pra saber se ta enviando

 

end if

end if

end if

RsConfirmaLeitura.movenext

loop

 

response.Write("<br>Enviados "&cont&" emails<br><b>fim</b>")

%>

<!--#include file="fecha_conexao.inc"-->

 

por favor, algm tem algum ideia? :huh:

[Isaac Sá 0]

Só mais algumas informações, o componente de email instlado no servidor eh o CDONTS mesmo...

nas outras páginas estão usando

 

Set objNewMail = CreateObject("CDONTS.NewMail")

With objNewMail

.To = "Isaac" & "<newtonblack@gmail.com>" 'por enquanto estou enviando pro meu email do gmail pra testar, ja tentei enviar pra outros emails tb

.From = "Tecnologia Kaisen" & "<suporte@tecnologiakaisen.com.br>"

.Subject = "Você tem arquivos não vistos a 3 dias"

.BodyFormat = CdoBodyFormatHTML

.MailFormat = CdoMailFormatMime

.Body = "testando envio email"

.Send

End With

Set objNewMail = Nothing

 

pra enviar email e ta funcionando beleza, marcação cmg :angry:

[Mário Monteiro 179]

no primeiro código você testou se realmente está entrando no if que envia o email?

 

porque colocou inúmeros ifs um dentro do outro e talvez a sua logica não esteja correta e não este já chagado lá

 

pode testar colocando um response.write lá para começar a cercar as possibilidades de erro

[xanburzum 169]

hoje o CDONTS, foi descontinuado, tenho varias aplicacoes com CDONTS, algumas estavam naun enviando o email, ok fiz foi trocar pelo CDOSYS, e configurar certinho o smtp etc, beleza...

dá uma procurada no la. de scripts k tem exemplos.