mais simples crie uma coluna no excel e com o nome das abas faça um useform com um cmbbox, e no row source coloque a coluna q vc fez os cadastros. ...

consegui!!! ( com ajdua de vcs) o que faltava era só item.delete ( bati 10x a cabeça na parede) segue meu código para salva anexo r-mail e deletar ...

vou estudar + entaum! vlw

E se criar uma regra resumidamente assim.... dim atmt as atachmment if atmt =xml then a rotina acima, tem consegue adaptar pq não conheço estes objeto...

Eu utilizo este porém ao invés de pastas eu colo somente células no corpo do e-mail , veja se dá pra adaptar Sub email1() ' ' Atalho do teclado: Ctrl+...

até consegui mas o problema persistiu , pois o specialcells com for each , também seleciona asvisiveis e não as selcionadas. Então seri amais ou menos...

Pensie nisso também , vou tentar vlw

funcionou!! vlw

receberam o anexo??? tentei enviar mas não sei se deu certo