[Resolvido]Listar e-mails não entregues

Amigos: enviamos periodicamente mensagens para clientes. São cerca de 16 mil mensagens. Retornam por volta de 2 mil mensagens por erros diversos. O servidor do outlook envia de volta uma mensagem individual para cada entrega não concretizada. É inviável o manuseio dessas 2 mil mensagens para identificar os endereços daquelas não recebidas, porém preciso de algo que me auxilie a "limpar" meu banco de dados.

O ideal seria o outlook tabular esses endereços indevidos, mas ele não faz isso.

Penso em uma rotina que capture nessas mensagens devolvidas o endereço do e-mail e o insira em uma tabela access.

Alguém pode me ajudar???

Se você criar ou o outlook, um arquivo txt, poderá criar um Procedimento de importação para arquivo dessa extensão e assim será inserido na tabela que você criar.

O que acha?

Caro Leandro:
Talvez eu não tenha sido feliz na redação do tópico. Apesar de ainda não ter feito, acho que não terei muitas dificuldades para exportar a mensagem para txt. A minha maior dificuldade está sendo criar uma rotina para identificar o endereço de e-mail dentro do txt, porque endereços de e-mail não têm tamanhos definidos, podem conter algarismos e alguns caracteres especiais. O único padrão para um endereço de e-mail é o símbolo @ (arroba).
A minha dificuldade é criar uma rotina que leia o texto e, baseado na existência do símbolo @ dentro de uma sequência de caracteres, entenda que essa sequência é um endereço de e-mail, e aí o captura e insira numa tabela access.
Entendeu minha dificuldade?

Aguardo sugestões.

Procure pelas instruções de string.

"InStr", "InStrRev", "Left", "Mid", "Right".

Sds,

Caro Nilson Rocha, arranje maneira de exportar para .txt, o resto eu faço-lhe aqui um código para isso,

Nilson, conforme prometido;


Public Sub FicheiroTextoLer()
'By JPaulo ® Maximo Access
'2012-07-10
'Função que encontra uma @ numa frase e importa o endereço de email para tabela
Dim strFicheiro As Integer
Dim CaminhoFicheiro As String
Dim strLinha As String
Dim ContadorDaLinha As Long

On Error GoTo 1

'Configura a leitura do Ficheiro
strFicheiro = FreeFile
CaminhoFicheiro = "C:\teste.txt"

'Abre o Ficheiro para leitura
Open CaminhoFicheiro For Input As strFicheiro
ContadorDaLinha = 1

'Lê o conteúdo do Ficheiro linha a linha
Do While Not EOF(strFicheiro)
Line Input #strFicheiro, strLinha

Dim strMatriz As String
'string a procurar
strMatriz = "@"

'ver se tem @
Dim idxArroba As Integer
idxArroba = InStr(1, strLinha, strMatriz, vbTextCompare)
If idxArroba > 0 Then
'se uma frase contiver a @, encontrar os delimitadores | à esquerda e à direita
Dim idxSepEsq As Integer, idxSepDta As Integer, email As String
idxSepEsq = InStrRev(strLinha, "|", idxArroba, vbTextCompare)
idxSepDta = InStr(idxArroba, strLinha, "|", vbTextCompare)
email = Trim(Mid(strLinha, idxSepEsq + 1, idxSepDta - idxSepEsq - 1))
'se uma frase contiver a @, faz insert na tabela temporaria
CurrentDb.Execute "Insert Into SuaTabela (SeuCampoEmail) values ('" & email & "')"
Else

End If
Loop

'Fecha o ficheiro
Close strFicheiro

Exit Sub
'trata o erro
1:
MsgBox "Erro número : " & Str$(Err.Number) & " --> Ficheiro não encontrado!!! ", vbCritical
Exit Sub
End Sub

Toda longa caminhada começa com um simples passo, mas todos os passos são importantes para nos levar ao nosso destino. Agradeço a cada um pela contribuição dada, principalmente ao JPaulo que postou a resposta às 5 da manhã. Muito obrigado mesmo!!!
Fui convocado para uma viagem em cima da hora e não tive tempo de me preparar para a mesma, mas logo ao retornar testarei a rotina.
Um abraço a todos.

Obrigado pelo retorno.