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

    Compartilhe
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6260
    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
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6260
    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
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3384
    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!
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    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: Qua 26 Jul 2017, 17:32