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


    [Resolvido]Diretório e SubDiretório

    Waltair M Souza
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Diretório e SubDiretório Empty [Resolvido]Diretório e SubDiretório

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

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    [Resolvido]Diretório e SubDiretório Empty Re: [Resolvido]Diretório e SubDiretório

    Mensagem  ahteixeira em 2/11/2018, 18:25

    Waltair M Souza
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Diretório e SubDiretório Empty Re: [Resolvido]Diretório e SubDiretório

    Mensagem  Waltair M Souza em 6/7/2019, 13:34

    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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    [Resolvido]Diretório e SubDiretório Empty Re: [Resolvido]Diretório e SubDiretório

    Mensagem  ahteixeira em 6/7/2019, 15:32

    Olá Waltair,

    Obrigado pelo retorno, o fórum agradece.

    cheers

    Conteúdo patrocinado

    [Resolvido]Diretório e SubDiretório Empty Re: [Resolvido]Diretório e SubDiretório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 16:43