MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 Ter 10 Jun 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

    [Você precisa estar registrado e conectado para ver este link.]

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Gerar PDF e Enviar por Email

    Mensagem  daniloreiis em Qua 18 Jun 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!

    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 Sex 20 Jun 2014, 12:41

    Muito Obrigado , Danilo..

    ajudou e muito.. abraços

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  Noobezinho em Ter 09 Jun 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







    .................................................................................
    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 .

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  daniloreiis em Ter 09 Jun 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
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  Noobezinho em Ter 09 Jun 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


    .................................................................................
    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: Sex 09 Dez 2016, 11:31