email usando Server.CreateObject("Persits.MailSender")

Question

como faço para acessar uma lista de email e colocar uma condição se tiver um email inválido salta para próximo.

codigo

 

 

For j = 0 to  ubound(matriz,2)

Set Mail = Server.CreateObject("Persits.MailSender") 

 

If Mail.Send Then

reponse.write "email ocm sucesso!"

Else

reponse.write "email com erro!"

End if

 

Set Mail = Nothing

 

next

 

 

Answer 1

Olá,

bom... o que vou dizer é uma pratica condenada, quando usada sem comtrole. Mas....
você pode utilizar o:

on error resume next
  'tentafazer isso

if Err.number <> 0 then
    'deu erro, faz isso
end if

 

Espero ter ajudado

---

Michel Guilherme Ferreira http://www.lehcim.com