[Resolvido]Diretório e SubDiretório

Olá meus amigos,

Estou usando o código abaixo do J.Paulo para enviar anexos alguns pdf's de uma pasta:

CÓDIGO:

Código:

Function EnvioAutomaticoDeEmail()
'By JPaulo Maximo Access
'Requer que a referencia VBA
'Microsoft Outlook xx.0 Object Library
'seja marcada
Dim strAplicacao As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strCaminho As String
Dim strFicheiros As String

'Caminho da pasta onde se encontram os PDF`s
[b]strCaminho = "C:\temp\" & me.pedido & "\"
[/b]'Pesquisa apenas por ficheiros PDF
strFicheiros = Dir(strCaminho & "*.pdf")
'Cria uma noca instância no Outlook
Set strAplicacao = New Outlook.Application
Set objMail = strAplicacao.CreateItem(olMailItem)
'Monta o email
With objMail
   .Subject = "Projeto p/ aprovação"
   .Body = "Segue os referidos Desenhos para vossa apreciação"
   .To = ""
'Percorre e adiciona todos os ficheiros
Do While Len(strFicheiros) > 0
       .Attachments.Add (strCaminho & strFicheiros)
   strFicheiros = Dir
Loop
   
   On Error Resume Next
   '.Send
   .Display

   If Err.Number = 287 Then
       End
   End If
End With
End Function

Isso já roda top... O que preciso agora, é que as pasta do subdiretório sejam varridas também e os pdf's nelas contidas sejam enviados

Grato a todos os colegas

Usando Windows 10 64 Bits e Acess 2013 32 Bits

Olá Waltair,

Veja se ajuda:
https://www.maximoaccess.com/t14255-resolvidoler-diretorios

Abraço

Olá a todos este caso foi resolvido com a dica do mestre Teixeira. Alias o link que ele ele passou aqui é top para este assunto. grato.

Olá Waltair,

Obrigado pelo retorno, o fórum agradece.