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


+2
Jair Martins
Almeidar
6 participantes

    Envio de e-mail pelo formulario

    Almeidar
    Almeidar
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 398
    Registrado : 03/03/2015

    Envio de e-mail pelo formulario Empty Envio de e-mail pelo formulario

    Mensagem  Almeidar 13/10/2016, 20:46

    Boa tarde!

    Amigos, estou tentando fazer uma aplicativo para ordem de serviço, mas gostaria que a solicitação fosse enviada por e-mail no fim do cadastro.Já vi algumas explicações dos prof. Avelino, só que o meu conhecimento em access é pequeno. Algum de vocês teria um link com video explicando como fazer ? desde já agradeço.

    Grande abraço.
    Jair Martins
    Jair Martins
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 23/03/2016

    Envio de e-mail pelo formulario Empty Re: Envio de e-mail pelo formulario

    Mensagem  Jair Martins 14/10/2016, 14:04

    Olá, Almeidar.

    Utilize o método DoCmd.SendObject.
    Verifique no help do Access as regras para configuração dos parâmetros.

    Abs.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Envio de e-mail pelo formulario Empty Re: Envio de e-mail pelo formulario

    Mensagem  FabioPaes 14/10/2016, 15:09

    Amigo, realize uma busca aqui no Fórum, pois existem inúmeros tópicos sobre o assunto. Varias formas com o mesmo objetivo.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Almeidar
    Almeidar
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 398
    Registrado : 03/03/2015

    Envio de e-mail pelo formulario Empty Ordem de serviço

    Mensagem  Almeidar 14/10/2016, 23:23

    Boa noite amigos!

     Agradeço a ajuda de todos.
    Percebi vendo alguns videos que o access tem a opção de enviar o relatório por e-mail. Mas não tem a opção de pdf. Teria como acrescentar a extensão .PDF no access ?
     Não tenho noção de programação e devido a isso queria fazer alguma coisa faz simples. Precisava mandar uma ordem de serviço por e-mail.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Envio de e-mail pelo formulario Empty Re: Envio de e-mail pelo formulario

    Mensagem  FabioPaes 15/10/2016, 14:06

    Sem programação acho difícil... Eu desconheço.

    Mas aqui no Fórum tem vários exemplos, onde vc gera o relatório/Ordem serviço, salva em PDF, anexa ele ao e-mail e envia...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    jomarmattos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 11/10/2013

    Envio de e-mail pelo formulario Empty Enviar E-mail com PDF

    Mensagem  jomarmattos 16/10/2016, 00:45

    Olá queridos,

    Segue link para baixar sistema.

    https://drive.google.com/open?id=0B-3RYkSYSCiPdmx4b01mQUVDaW8

    Gera PDF e enviar e-mail com o anexo.

    Abraço a todos.

    Jomar Mattos.
    Almeidar
    Almeidar
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 398
    Registrado : 03/03/2015

    Envio de e-mail pelo formulario Empty Gerar relatório em pdf

    Mensagem  Almeidar 17/10/2016, 23:07

    Amigos boa noite.
    Venho tentando gerar um relatório em pdf já a algum tempo devido a minha falta de conhecimento. Vento um aquivo do Avelino estou tentando sequir o mesmo, só que estou com o seguinte problema quando clico para gerar o pdf.

    (o formato para qual você esta tentando enviar o objeto não esta disponivel)

    Segue a linha do comando
    Private Sub bt_exporta_Click()
    Dim strarquivo As String
    Dim strlocal As String
    strarquico = "os" & ".pdf"
    strlocal = CurrentProject.Path & "\enviado\" & strlocal
    DoCmd.OutputTo acOutputReport, "Relatório1", acFormatPDF, strlocal (esta linha aqui fica em amarelho, podem me explicar porque)
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    Envio de e-mail pelo formulario Empty Envio de e-mail pelo formulário

    Mensagem  toyebom 17/10/2016, 23:20

    Boa noite,

    1.º não andes sempre a mudar o titulo das mensagens sempre que crias nova, torna-se confuso no forum.
    2.º Se é nova duvida deves criar novo tópico e não adicionar ao existente.
    3.º Ve um código que utilizo pode ser que ajude

    Private Sub Comando109_Click()
    Dim strArquivo As String
    Dim strLocal As String
    If Me.NewRecord Then Exit Sub
    Dim bytVias, bytLoop As Byte

     bytVias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 1)
     If bytVias <> "" And bytVias <= 6 Then
       For bytLoop = 1 To bytVias
         If bytLoop = 1 Then MsrVersao = "ORIGINAL"
         If bytLoop = 2 Then MsrVersao = "DUPLICADO"
         If bytLoop = 3 Then MsrVersao = "TRIPLICADO"
         If bytLoop = 4 Then MsrVersao = "QUADRUPLICADO"
         If bytLoop = 5 Then MsrVersao = "QUINTUPLICADO"
         If bytLoop = 6 Then MsrVersao = "SEXTUPLICADO"
    DoCmd.Save
    DoCmd.OpenReport "Guia de depósito_4", acViewPreview, , "[Index] = " & [Index]
    DoCmd.Maximize
    strArquivo = Replace(Me!Cliente, "/", "_") & "-" & Me![Index] & ".pdf"
    strLocal = CurrentProject.Path & "\Valor descritivo\" & strArquivo
    DoCmd.OutputTo acOutputReport, "Guia de depósito_4", acFormatPDF, strLocal
       DoCmd.PrintOut acPrintAll, , , acHigh
    DoCmd.Close
    Next
    End If
    Exit_Comando109_Click:
       Exit Sub

    Err_Comando109_Click:
       MsgBox Err.Description
       Resume Exit_Comando109_Click
    End Sub

    -----------------------------------------------------------------------

    Ve esta parte
    strLocal = CurrentProject.Path & "\Valor descritivo\" & strArquivo


    Última edição por toyebom em 17/10/2016, 23:25, editado 2 vez(es)


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    Envio de e-mail pelo formulario Empty Envio de e-mail pelo formulário

    Mensagem  toyebom 17/10/2016, 23:22

    No teu deve ser

    strlocal = CurrentProject.Path & "\enviado\" & strArquivo


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Almeidar
    Almeidar
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 398
    Registrado : 03/03/2015

    Envio de e-mail pelo formulario Empty Re: Envio de e-mail pelo formulario

    Mensagem  Almeidar 4/11/2016, 22:22

    Boa noite!
      Amigos, vendo as informações que o amigo Avelino deixou copiei as informações dele, só que na hora de fazer a o envio da minha ordem de serviço por email o relatório carregado não esta filtrando.E eu não entendi como ele foi filtrado nas informações do Avelino, não conheço muito de access. Esta aparecendo todas as solicitações da tabela movimentação, algum amigo poderia me ajudar com esse problema ?

    Desde já agradeço, vou deixar o meu bd aqui caso algum amigo possa me ajudar.
    Anexos
    Envio de e-mail pelo formulario AttachmentOrdem de Serviço.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (820 Kb) Baixado 28 vez(es)
    avatar
    Antonio Tavares
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 19
    Registrado : 22/02/2013

    Envio de e-mail pelo formulario Empty Re: Envio de e-mail pelo formulario

    Mensagem  Antonio Tavares 18/12/2016, 08:59

    Bom dia,

    Se bem percebi estavas a tentar criar um relatório de um registro não guardado.
    Coloquei no botão enviar o comando save e mais umas pequenas alterações no relatório. Espero ter ajudado Wink

    Abraço,
    Anexos
    Envio de e-mail pelo formulario AttachmentOrdem de Serviço.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (721 Kb) Baixado 21 vez(es)

    Conteúdo patrocinado


    Envio de e-mail pelo formulario Empty Re: Envio de e-mail pelo formulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2024, 18:20