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

    avatar
    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 Empty [Resolvido]Gerar PDF e Enviar por Email

    Mensagem  spccastilho em 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 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 em 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 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 em 20/6/2014, 12:41

    Muito Obrigado , Danilo..

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

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 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





    daniloreiis
    daniloreiis
    Avançado
    Avançado

    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 em 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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 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
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  crysostomo em 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.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 16:45