Aspmail - Como Deletar Emails!?

[RAFBRASIL]

Pessoal, to com um galho aii para deletar emails pelo asmaiil depois que eu capturo-o para o meu banco de dados. esse script antes funcionava, mas agora não deleta mas email nenhum.

Vejam que façço um loop no numero de emails, ponho cada um no banco de dados e mando deletar o email "i". So que ao deletar oo email "i" acho que os outros mudam o numero de ordem. So que parece que tem mais coisa errada, pois tenho notado que o script não deleta mais nada agora. E o material do asmail qe consegui, inclusive no site do fabricante não tratam do problema.

Alguém ai teria uma dica??

Valeuuuu!!

 nummens = Mailer.MessageCount

 For i = 1 to nummens
   'Abre a conexão POP3
   Mailer.OpenPop3
   Mailer.Retrieve i

       NEImpID = Right("000000" + CStr(ProximoNEIMPid),6)
    ProximoNEIMPid = ProximoNEIMPid + 1

       b = Mailer.BodyText

       'Insere o registro em "NEIMP"
       strSql = ""
       strSql = strSql & " INSERT INTO NEIMP ( NI_ID, NI_CONTEUDO,
NI_DATAINSERCAO, NI_TIPO, NI_CADASTRADA ) "
       strSql = strSql & " VALUES '"&NEImpID&"', '"&b&"', '"&Hoje&"', '"&tipone&"', 'N') "
      ExecutaConexao(strSql)

     Mailer.Delete i
 Next
 Mailer.ClosePop3

[RAFBRASIL]

Ai pessoal!

Já que ninguém me respondeu mesmo, comunico que achei a solução. Bastou usar o laço For em ordem decrecente (step -1) que funcionou beleza!

[hicarocastro]

Oi amigo,

Gostaria de saber se conseguiu acessar uma conta pop3 com o aspmail e como fazer isso?

[bareta]

Ai pessoal!

Já que ninguém me respondeu mesmo, comunico que achei a solução. Bastou usar o laço For em ordem decrecente (step -1) que funcionou beleza!

posta seu codigo todo ai pra nois...