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

    Gerar PDF e encaminhar por email em Access 2003

    L34NDR0
    L34NDR0
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    Gerar PDF e encaminhar por email em Access 2003 Empty Gerar PDF e encaminhar por email em Access 2003

    Mensagem  L34NDR0 18/6/2015, 15:44

    Colegas,

    Após pesquisar os vários tópicos relacionados, não consegui sair do chão...

    O quê eu preciso:

    Toda semana preciso encaminhar relatórios para prefeituras de alguns municípios.

    Alguém poderia me ensinar a fazê-los em PDF e encaminhá-los por email?

    Atualmente, estou gerando o relatório manualmente para cada município e anexando-o às mensagens uma de cada vez...


    thanks

    Leandro


    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4719
    Registrado : 20/04/2011

    Gerar PDF e encaminhar por email em Access 2003 Empty Re: Gerar PDF e encaminhar por email em Access 2003

    Mensagem  Silvio 18/6/2015, 20:26



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    L34NDR0
    L34NDR0
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    Gerar PDF e encaminhar por email em Access 2003 Empty Re: Gerar PDF e encaminhar por email em Access 2003

    Mensagem  L34NDR0 22/6/2015, 20:32

    é isso mesmo que eu quero Silvio... só que não funcionou.

    coloquei o código no evento ao clicar d um botão de comando.
    quando eu clico, abre uma janela de diálogo "Enviar" com várias opções de formatos para eu selecionar.
    já selecionei todas (e essa janela abre para cada registro) sem resultados.

    depois, abre uma mensagem do VBA dizendo que o destinatário da mensagem não foi reconhecido. Não gera o pdf e mail...

    fiz num banco zerado para teste e utilizei os mesmos nomes.
    na tabela, utilizei as nomenclaturas do codigo, ou seja, o campo onde está informado o email destino foi nomeado "emaildestino" e assim por diante...


    segue o código:


    Private Sub processarPDF_Click()
    '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
    L34NDR0
    L34NDR0
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    Gerar PDF e encaminhar por email em Access 2003 Empty Re: Gerar PDF e encaminhar por email em Access 2003

    Mensagem  L34NDR0 24/6/2015, 14:10

    Silvio/Colegas,
    Essa funcionalidade está fazendo muita falta para mim e sinto que falta apenas algum ajuste.
    se alguém puder me ajudar...

    Leandro
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4719
    Registrado : 20/04/2011

    Gerar PDF e encaminhar por email em Access 2003 Empty Re: Gerar PDF e encaminhar por email em Access 2003

    Mensagem  Silvio 24/6/2015, 14:14

    Bom dia...

    Leandro, essa semana não estou na minha cidade, estou atendendo a alguns clientes fora.
    Mas quando eu voltar, creio que no sábado, eu dou uma olhada nele.
    Até lá meu colega, estou sem muito tempo para analisar com calma, visto que eu estou mexendo com a infra estrutura de rede, acerto de servidores, acerto de parque de computadores e para variar...ensinando usuários.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    L34NDR0
    L34NDR0
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    Gerar PDF e encaminhar por email em Access 2003 Empty Re: Gerar PDF e encaminhar por email em Access 2003

    Mensagem  L34NDR0 24/6/2015, 14:40

    Ok, sem problemas
    Obrigado pela atenção
    até lá

    Leandro

      Data/hora atual: 17/4/2021, 17:46