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

    [Resolvido]Gerar PDF e Enviar por Email

    avatar
    spccastilho
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 14/04/2012

    [Resolvido]Gerar PDF e Enviar por Email Empty [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  spccastilho 10/6/2014, 12:14

    Bom dia a todos..

    sera que alguem pode me dar uma dica...

    gero um relatorio que quebro por codigo de cliente...

    preciso salvar cada quebra ( paginas referente a cada cliente ) em pdf e envia-lo como anexo de acordo com o e-mail ( outlook) de cada cliente.

    e quando enviar preciso que grave em uma tabelas a data de envio de cada um

    por favor me deem algumas dicas..

    muito obrigado

    spccastilho@gmail.com
    daniloreiis
    daniloreiis
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 14/02/2011

    [Resolvido]Gerar PDF e Enviar por Email Empty Gerar PDF e Enviar por Email

    Mensagem  daniloreiis 18/6/2014, 18:08

    Boa tarde!

    segue abaixo um código que uso aqui na empresa para gerar os relatorios de varios fornecedores diferentes, ou seja cada fornecedor em uma pagina. No seu caso é Cliente.

    Código:

    Private Sub processarPDF()
    'descobre quantos fornecedores tem na tbl fornec_pdf
    Dim linha
    Dim strSql2 As String
    Dim rst2 As DAO.Recordset
    strSql2 = "SELECT count(tbl_financeiro_devolucoes_lista_fornec_pdf.id_fornec) FROM tbl_financeiro_devolucoes_lista_fornec_pdf"
    Set rst2 = CurrentDb.OpenRecordset(strSql2)
    linha = rst2(0) ' marcador de registro

    Dim contar 'iniciar um marco 0 para entrar no loop, enquanto for menor que linha o contar não sai do loop
    Dim strSql As String
    Dim rst As DAO.Recordset
    strSql = "SELECT tbl_financeiro_devolucoes_lista_fornec_pdf.id_fornec FROM tbl_financeiro_devolucoes_lista_fornec_pdf"
    Set rst = CurrentDb.OpenRecordset(strSql)
    contar = 0 ' iniciar o loop
        Do While contar < linha
        'inicia a geração dos arquivos em pdf
        Txt_Fornec = rst(0)
        strPlanilha = "C:\FINANCEIRO\DEVOLUCAO\" & "NOTAS-DEV" & rst(0) & ".pdf"
        DoCmd.OutputTo acOutputReport, "con_financeiro_painel_Rel_Dev", acFormatPDF, strPlanilha
        rst.MoveNext ' pula para proximo fornec
        contar = contar + 1 ' adiciona proximo fornec
        Loop
        'fim a geração dos arquivos em pdf
    rst2.Close
    rst.Close  'fecha as tabelas
    Shell "explorer /select," & strPlanilha & "", vbNormalFocus 'aqui ele abre o diretorio com os arquivos gerados
    'fim do codigo
    End Sub



    se preferir codigo abaixo envia direto em pdf por e-mail.

    Código:


    'descobre quantos fornecedores tem na tbl fornec_pdf
    Dim linha
    Dim strSql2 As String
    Dim rst2 As DAO.Recordset
    strSql2 = "SELECT count(tbl_financeiro_devolucoes_lista_fornec_pdf.id_fornec) FROM tbl_financeiro_devolucoes_lista_fornec_pdf"
    Set rst2 = CurrentDb.OpenRecordset(strSql2)
    linha = rst2(0) ' marcador de registro

    Dim contar 'iniciar um marco 0 para entrar no loop, enquanto for menor que linha o contar não sai do loop
    Dim strSql As String
    Dim rst As DAO.Recordset
    strSql = "SELECT tbl_financeiro_devolucoes_lista_fornec_pdf.id_fornec FROM tbl_financeiro_devolucoes_lista_fornec_pdf"
    Set rst = CurrentDb.OpenRecordset(strSql)
    contar = 0 ' iniciar o loop
        Do While contar < linha
        'inicia a geração dos arquivos em pdf
        Txt_Fornec = rst(0)
        DoCmd.SendObject acSendReport, "seurelatorio", acFormatPDF, "emaildestino", "seuemail", "", "assunto", "mensagem", 0
        rst.MoveNext ' pula para proximo fornec
        contar = contar + 1 ' adiciona proximo fornec
        Loop
        'fim a geração dos arquivos em pdf
    rst2.Close
    rst.Close  'fecha as tabelas
    Shell "explorer /select," & strPlanilha & "", vbNormalFocus 'aqui ele abre o diretorio com os arquivos gerados
    'fim do codigo
    End Sub



    Espero ter ajudado.

    Sucesso!
    avatar
    spccastilho
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 14/04/2012

    [Resolvido]Gerar PDF e Enviar por Email Empty Gerar PDF e Enviar por Email

    Mensagem  spccastilho 20/6/2014, 12:41

    Muito Obrigado , Danilo..

    ajudou e muito.. abraços
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Gerar PDF e Enviar por Email Empty Re: [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  Noobezinho 9/6/2015, 11:44

    Olá Danilo

    Pesquisando no fórum, encontrei esse tópico e como nosso amigo
    não deu ele como resolvido, aproveito para perguntar:

    Você escreveu:

    "se preferir código abaixo envia direto em pdf por e-mail."

    Mas repetiu o  mesmo código na segunda caixa.

    E o código que envia o PDF por email?

    [ ]'s







    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    daniloreiis
    daniloreiis
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 14/02/2011

    [Resolvido]Gerar PDF e Enviar por Email Empty Re: [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  daniloreiis 9/6/2015, 12:30

    Olá meu amigo bom dia!

    desculpe eu não destaquei no codigo onde inicia o envio por e-mail mas segue abaixo:

    Código:

    DoCmd.SendObject acSendReport, "seurelatorio", acFormatPDF, "emaildestino", "seuemail", "", "assunto", "mensagem", 0



    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Gerar PDF e Enviar por Email Empty Re: [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  Noobezinho 9/6/2015, 12:40

    Olá Danilo

    Desculpas peço, eu , devo estar dormindo e não atentei para essa linha.

    Obrigado pela rapidez da resposta.

    Vou dar como resolvido esse tópico, já que até agora o autor dele não se manifestou.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1752
    Registrado : 23/01/2018

    [Resolvido]Gerar PDF e Enviar por Email Empty Re: [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  crysostomo 25/4/2019, 16:34

    Danilo bom dia . estou tentando fazer a algumas semana, achei o seu , mas não consigo adaptar está dando errro um atars do outro , queria que so você para 1 pessoa so. ou se preferir colocar mas , poderia me enviar esse arquivo por gentileza?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 25/7/2021, 03:18