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 e-mail automaticamente a Clientes

    Compartilhe

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    Registrado : 05/02/2011

    [Resolvido]Enviar e-mail automaticamente a Clientes

    Mensagem  Samuel Ribeiro em Seg 18 Jul 2016, 17:36

    Boa Tarde

    Com base a um tópico que encontrei neste fórum, tenho um sistema onde eu faço abertura de Ordem de serviço e imprimo, agora referente a este tópico estou tentando enviar um e-mail aos clientes com a ordem de serviços aberta no nome dele com o código que tirei do tópico em questão criado pelo mestre JPaulo, mas não estou conseguindo puxar o arquivo que se encontra na pasta enviados onde eu nomeei de seguinte forma numerododoc+OrdemServiços(486OrdemServiços).

    Segue o código


    Código:
    Option Compare Database
    Option Explicit

    Function EnvioAutomaticoDeEmail()
    'By JPaulo ® Maximo Access
    Dim strAplicacao As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim strFicheiro As String

    Set strAplicacao = New Outlook.Application
    Set objMail = strAplicacao.CreateItem(olMailItem)
    strFicheiro = "D:\Sistema_Consulta_Produtos_Dips\Enviados\"
    With objMail
    .Subject = "Ordem de Serviços"
    .Body = "Segue em Anexo Ordem de Serviços"
    .To = "Me.EMAIL"
    .Attachments.Add (strFicheiro)

    On Error Resume Next
    .Display

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

    Se alguém tiver uma ideia, e poder me ajudar

    eu Agradeço


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5890
    Registrado : 05/11/2009

    Re: [Resolvido]Enviar e-mail automaticamente a Clientes

    Mensagem  Alexandre Neves em Seg 18 Jul 2016, 19:16

    Boa tarde,
    Tem de completar o nome do ficheiro
    strFicheiro = "D:\Sistema_Consulta_Produtos_Dips\Enviados\486OrdemServiços"
    O código da função não está completo


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    Registrado : 05/02/2011

    Re: [Resolvido]Enviar e-mail automaticamente a Clientes

    Mensagem  Samuel Ribeiro em Seg 18 Jul 2016, 19:27

    Boa tarde Alexandre Neves

    Muito Obrigado pelo Retorno
    O numero na frente é o numero da ordem de serviços.
    Teria como eu filtrar por este numero, e ele puxar o PDF?
    Para todo momento não ter que ir a função e mudar o nome do documento?



    Dede ja agradeço


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5890
    Registrado : 05/11/2009

    Re: [Resolvido]Enviar e-mail automaticamente a Clientes

    Mensagem  Alexandre Neves em Seg 18 Jul 2016, 21:17

    tem de saber onde o procurar e construir a expressão
    strFicheiro = "D:\Sistema_Consulta_Produtos_Dips\Enviados\" & TxtOrdem & "OrdemServiços"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    Registrado : 05/02/2011

    Re: [Resolvido]Enviar e-mail automaticamente a Clientes

    Mensagem  Samuel Ribeiro em Seg 18 Jul 2016, 21:42

    Boa tarde Alexandre

    Infelizmente não funcionou, a função não reconhece o nome do arquivo.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Enviar e-mail automaticamente a Clientes

    Mensagem  Avelino Sampaio em Ter 19 Jul 2016, 22:38

    Olá!

    veja se este exemplo atende:

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

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    Registrado : 05/02/2011

    Re: [Resolvido]Enviar e-mail automaticamente a Clientes

    Mensagem  Samuel Ribeiro em Qua 20 Jul 2016, 15:54

    Bom dia

    Muito Obrigado Avelino, tópico resolvido, conforme link enviado por você.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro

      Data/hora atual: Sab 10 Dez 2016, 04:55