MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Diretório e SubDiretório

    Compartilhe
    avatar
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 06/10/2012

    Diretório e SubDiretório

    Mensagem  Waltair M Souza em 27/9/2018, 15:06

    Olá meus amigos,

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

    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
    strCaminho = "C:\temp\" & me.pedido & "\"
    '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

      Data/hora atual: 15/10/2018, 19:49