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]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 2015, 14: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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Qua 24 Jun 2015, 10: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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Qui 25 Jun 2015, 16:09

    Aguardo seu retorno para encerrar o tópico.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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 2015, 16: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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Qui 25 Jun 2015, 21:58

    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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: Ter 21 Nov 2017, 00:53