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]Gerar PDF e Enviar por Email

    Compartilhe

    spccastilho
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  spccastilho em 10/6/2014, 08: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

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Gerar PDF e Enviar por Email

    Mensagem  daniloreiis em 18/6/2014, 14: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!

    spccastilho
    Novato
    Novato

    Respeito às Regras 100%

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

    Gerar PDF e Enviar por Email

    Mensagem  spccastilho em 20/6/2014, 08:41

    Muito Obrigado , Danilo..

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

    Respeito às Regras 100%

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

    Re: [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  Noobezinho em 9/6/2015, 07: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







    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  daniloreiis em 9/6/2015, 08: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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  Noobezinho em 9/6/2015, 08: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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: 26/6/2017, 17:37