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

    Enviar relatorios por email em PDF para destinatários

    Compartilhe

    tfpassos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/08/2014

    Enviar relatorios por email em PDF para destinatários

    Mensagem  tfpassos em Seg 11 Ago 2014, 01:05

    Pessoal,

    Sou novo aqui e principiante em access. Preciso que ao clickar no botão de comando ele envie relatoios em PDF pelo outlook para destinatario do campo email. tetei o código abaixo e deu erro em tempo de execução 5 argumento ou chamada de procedimento inválido inválido. If Me.Dirty Then o que pode estar errado. Este é um codigo do Avelino que pesquisei

    rivate Sub Comando24_Click()
    Dim strArquivo As String
    Dim strLocal As String
    Dim stDocName As String
    Dim str_criterio As String
    Dim objOut As Object
    Dim objmail As Object
    Dim objAnexo As Object
    Const olMailItem = 0
    Const olByValue = 1

    If IsNull(Me!EMAIL) Then Exit Sub
    Set objOut = CreateObject("Outlook.application")
    Set objmail = objOut.CreateItem(olMailItem)
    Set objAnexo = objmail.Attachments
    stDocName = "RELATORIO ESTRUTURA"
    str_criterio = "[COD AGENCIA]=" & Me![EMAIL]
    DoCmd.OpenReport stDocName, acViewPreview, , , acHidden, str_criterio
    strArquivo = "C:\Relatorio.pdf"
    strLocal = "C:\Relatorio.pdf"
    If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
    DoCmd.OutputTo acOutputReport, "RELATORIO ESTRUTURA", acFormatPDF, "C:\Relatorio.pdf"
    DoCmd.Close acReport, "RELATORIO ESTRUTURA"
    objAnexo.Add strLocal, olByValue, 1
    objmail.Display
    Set objAnexo = Nothing
    Set objmail = Nothing
    Set objOut = Nothing

    End Sub

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: Enviar relatorios por email em PDF para destinatários

    Mensagem  JPaulo em Seg 11 Ago 2014, 09:34

    Ola seja bem vindo ao fórum.

    Aqui funcionou, mas esse código apenas salva o report em PDF e anexa-o ao Outlook, não envia nem monta o email com destinatários.

    Diga-nos qual a versão do seu Office.

    Se preferir um pouco mais completo, faça por favor uma busca aqui mesmo, que tem muita coisa dessa para si.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

    tfpassos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/08/2014

    Re: Enviar relatorios por email em PDF para destinatários

    Mensagem  tfpassos em Ter 12 Ago 2014, 04:36


    Usei este código para gerar o PDF do relatório "RELATORIO SUP" e anexar ao outlook e disparar para os e-mails armazenados no campo [EMAIL],porem o relatório tem vários registros com destinatários diferentes e ele só dispara para o 1º destinatário do relatório. Gostaria que ele disparasse para todos os destinatários do relatório.

    Private Sub Comando79_Click()
    On Error Resume Next

    Dim stDocName As String
    Dim contact As String

    stDocName = "RELATORIO SUP"
    contact = Me![EMAIL]
    DoCmd.SendObject acReport, stDocName, acFormatPDF, contact

    Exit_Comando79_Click:
    Exit Sub

    Err_Comando79_Click:
    Dim erro As String
    erro = MsgBox("Esse contato não possui e-mail cadastrado.", vbOKOnly)
    Resume Exit_Comando79_Click

    End Sub

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: Enviar relatorios por email em PDF para destinatários

    Mensagem  JPaulo em Qua 13 Ago 2014, 15:22

    Veja no link "102 Códigos VBA Gratuitos..." na minha assinatura, o código de nome "Email para Varios Destinatários".


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

    tfpassos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/08/2014

    Re: Enviar relatorios por email em PDF para destinatários

    Mensagem  tfpassos em Qui 14 Ago 2014, 05:46

    Pezado JPaulo, apresenta o seguinte erro:

    erro em tempo de execução 3061

    parametros insuficientes eram esperados 1

    quando apronto para a tabela ele funciona perfeitamente. Mas quando aponto para a consulta apresenta este erro

      Data/hora atual: Sex 09 Dez 2016, 13:29