MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Enviar todo os Arquivos de Uma Pasta Via E-mail

    Compartilhe

    silvrod
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/12/2011

    [Resolvido]Enviar todo os Arquivos de Uma Pasta Via E-mail

    Mensagem  silvrod em Ter 23 Jun - 9:13

    Bom dia,

    Gostaria da ajuda de vocês.

    Tenho uma ferramenta e estou precisando enviar todos os arquivos de uma determinada pasta por e-mail de uma única vez.

    É tudo PDF.

    Alguém tem alguma ideia de como fazer?

    Preciso só da parte de anexar, as demais linhas do código já está OK.

    Rodrigo

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Enviar todo os Arquivos de Uma Pasta Via E-mail

    Mensagem  JPaulo em Qua 24 Jun - 5:03

    Ola;

    Espero que o ajude, aqui funfa a mil;

    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\"
    '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 = "Teste"
        .Body = "teste de envio"
        .To = "jpaulo65@gmail.com"
    '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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Enviar todo os Arquivos de Uma Pasta Via E-mail

    Mensagem  JPaulo em Qui 25 Jun - 11:09

    Aguardo seu retorno para encerrar o tópico.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    silvrod
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/12/2011

    Re: Enviar todo os Arquivos de Uma Pasta Via E-mail

    Mensagem  silvrod em Qui 25 Jun - 11:54

    JPaulo,

    Muito obrigado, perfeito como sempre. Funcionou do jeito que eu queria.

    Estou finalizando o tópico.

    E abrindo mais um com outra dúvida..rsrs

    Rodrigo

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Enviar todo os Arquivos de Uma Pasta Via E-mail

    Mensagem  JPaulo em Qui 25 Jun - 16:58

    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sex 2 Dez - 23:35