MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Enviar e-mail automaticamente a Clientes

    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Enviar e-mail automaticamente a Clientes Empty [Resolvido]Enviar e-mail automaticamente a Clientes

    Mensagem  Samuel Ribeiro 18/7/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 18/7/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
    Samuel Ribeiro
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Samuel Ribeiro 18/7/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 18/7/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
    Samuel Ribeiro
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Samuel Ribeiro 18/7/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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 19/7/2016, 22:38

    Olá!

    veja se este exemplo atende:

    http://www.redeaccess.com.br/viewtopic.php?f=7&t=902

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Samuel Ribeiro 20/7/2016, 15:54

    Bom dia

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


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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 19:25