vba Anexar arquivos pdf ao e-mail (Outlook) usando VBA

[mmmuraro]

Boa Tarde a todos, 

Estou com uma dúvida referente ao algoritimo para anexar arquivos em formato .pdf no e-mail (Outlook) utilizando VBA. Mudei a versão do Office para a 2013 e o algortitimo que antes funcionava perfeitamente, parou de funcionar. 

O Objetivo do código é procurar o nome de um arquivo específico como mostrado abaixo, caso ele não encontre o arquivo com final 04.pdf, por exemplo, ele tenta o próximo nome com final 03.

Encontrado o arquivo 03, o contador passa de 0 para 1 e volta para veriricar se existem mais arquivos com o final 03.

On Error Resume Next
                            Mail.Attachments.Add DIRETORIO "\" & Numero & "04.pdf"
                            If Mail.Attachments.Count > C Then GoTo continua

On Error Resume Next
                            Mail.Attachments.Add DIRETORIO "\" & Numero & "03.pdf"
                            If Mail.Attachments.Count > C Then GoTo continua

continua:
               C = C + 1

Alguém poderia me ajudar fornecendo um algoritimo parecido com a abordagem a cima ou algum solução para o problema?