[Resolvido]Adicionar Relatorio como anexo automatizado

Olá, pessoal no topico anterior eu precisava desenvolver o código para o envio de um email para um grupo de destinatários.

Segue o codigo abaixo que está funcionando.

O que estou precisando agora é ao chamar um determinado Relatório, que este já caia direto no email como anexo,  atraves do codigo abaixo.

Estou estudando mais não estou conseguindo, gostaria de contar com a costumeira colaboração de vocês. Obrigado.

Código:

Option Compare Database
Private Sub EmailAviso_Click()


Dim varOutlook As Outlook.Application
Dim varEmail  As Outlook.MailItem
Dim varMensagem As String
Dim varNomeDoContato As String

varNomeDoContato = Nz(Forms![Clientes]![NomeDoContato])

If varNomeDoContato = "" Then
    
    MsgBox "Nenhum Cliente Está Sendo Exibido no Formulário!!!", _
            vbOKOnly + vbExclamation, "Nenhum Cliente Selecionado"
End If

Set varOutlook = GetObject(Class:="Outlook.Application")

If IsNull(Forms![Clientes]![Email]) Then
        
        MsgBox "Não há um email válido para este cliente. " _
            & "digite um e-mail válido antes de continuar.", _
            vbInformation
        Exit Sub
End If

Set varEmail = varOutlook.CreateItem(ItemType:=olMailItem)

varMensagem = Forms![Clientes]![NomeDoContato] & Chr(13) & Chr(13)
varMensagem = varMensagem & "msg" & Chr(13) & Chr(13)
varMensagem = varMensagem & "msg" & Chr(13) & Chr(13)

With varEmail

    .To = Forms![Clientes]![Email]
    .Subject = "XXXX"
    .BodyFormat = olFormatPlain
    .Body = varMensagem
    .Importance = olImportanceHigh
    .Send
    
End With
End Sub

Bom dia. 
 Fico so de acompanhamento pois estou tentando achar mais não encontro

Ola,

Já tentou a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search


https://www.maximoaccess.com/t16982-guardar-pdf-imprimir-e-enviar-por-email-via-outlook

Abraco

Olá

Pronto já consegui fazer anexar, algora falta só um detalhe: Que é adicionar um numero ao nome do anexo. Para ficar assim: nome arquivo & Numero.PDF. Esse item estou tentando mais não estou conseguindo.

A ação toda vem de um botão que ao clicar ele solicita esse numero para filtar o Relatorio e anexa no email

Alguem poderia me auxiliar de como adicionar esse numero ao nome do arquivo PDF? Por favor. (destacado em vermelho no codigo)

Aqui abaixo o codigo que está funcionando, adaptado de um código do Avelino Sampaio.

Código:

Private Sub EmailAviso_Click()
'by Avelino Sampaio

Dim strArquivo As String
Dim strLocal As String
Dim strAssunto As String
Dim strCorpo As String
Dim objOut As Object
Dim objmail As Object
Dim objAnexo As Object
Dim StrNumero As String

Const olMailItem = 0
Const olByValue = 1


If IsNull(Me!Email) Then
    MsgBox "Está faltando o endereço de email...", vbInformation, "Aviso"
    Exit Sub
End If

Set objOut = CreateObject("Outlook.application")
Set objmail = objOut.CreateItem(olMailItem)
Set objAnexo = objmail.Attachments
[color=#ff6633]strArquivo = "nomearquivo" & ".pdf"[/color]
strLocal = CurrentProject.Path & "\enviados\" & strArquivo
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Etiquetas1via", acViewPreview, , , acHidden
DoCmd.OutputTo acOutputReport, "Etiquetas1via", acFormatPDF, strLocal
objAnexo.Add strLocal, olByValue, 1

strAssunto = "XXXXXX "
strCorpo = "Olá! <br><br> XXXXXX "
strCorpo = strCorpo & "XXXXX "



objmail.To = Me!Email 'destinatário
'objmail.CC = Nz(Me!txCc, "") 'com cópia
'objmail.BCC = Nz(Me!TxCco, "") 'Com cópia oculta
objmail.Subject = strAssunto
objmail.HTMLBody = strCorpo

objmail.Display 'para enviar direto, altere esta linha para objmail.send

FileSystem.Kill (strLocal)

Set objAnexo = Nothing
Set objmail = Nothing
Set objOut = Nothing
End Sub

Aqui comigo esta dando erro.
Eu não seu como é esse código , mas você pode fazer um listbox com os pdf salvos e ao clicar em cima do nome ele joga o nome no campo.
Teixeira, ja sim , pesquisei repositório e outros não consegui encontrar

Olá @crysostomo, em primeiro obrigado pela dica.

Mais com a criação de combbox para clicar na lista, vai tornar mais complicado.

O codigo acima está funcionado com todos os paramentros do e-mail e fazendo a adição do anexo.

A unica coisa que me falta é na hora de gravar o anexo, que ele contenha no nome do arquivo o numero que é o campo utilizado na pesquisa para abrir  relatório.

Agradeço antecipadamente.

No caso nessa linha do codigo:   strArquivo = "nomedoarquivo" & ".pdf"

Olá a todos,

Jesualdo, estou no tablet, no código não vejo referencia do número que pretende.

Caso seja o número do cliente e o campo seja ClienteNr ficaria assim por exemplo:

strArquivo = "nomedoarquivo" & me.ClienteNr & ".pdf"

Abraço

@ahteixeira, em primeiro obrigado.

O número    é um campo com esse mesmo nome na tabela,  e quando chamo o relatório que será enviado o filtro solicita o numero.

Eu já havia feito igual essa sintaxe mais não funcionou.

Durante a digitação do codigo apos o "." em Me. não carrega "Numero" na lista de propriedade.

O codigo está sendo usado em clicar de botão em um formulário. Nesta ação, vai puxar e salvar o Relatorio como PDF à ser anexado no e-mail.

Agradeço se puder me auxiliar com outra forma.

Olá a todos,

Jesualdo, como referiu é nesta parte que deve incluir o numero

Código:

strArquivo = "nomearquivo" & ".pdf"

No entanto como desconhecemos os seu projeto, não lhe podemos ajudar a dizer qual o campo, variavel ou objeto que tem o numero para associar ao código acima.
Se a dúvida se mantiver o melhor será montar pequeno exemplo funcional da parte envolvida na dúvida e partilhar.

Assim fica mais fácil parar qualquer membro ajudar

Abraço

Ola @ahteixeira, em primeiro obrigado.

Então com essa sintaxe não funciona pois o Numero esta no relatório que será o anexo e não esta aberto,  ou seja o codigo esta em um botão em um formulario,  então o item "Numero"  não faz parte deste formulario não aparece nas propriedades   de "Me."

O Relaório está sendo chamado para se tornar o anexo.  E este ao ser chamado é filtrado pelo "Numero"

Então o que eu preciso é coleta o Numero da caixa do filtro do relatório (anexo) é isso que não sei fazer.

Agradeço antecipadamente.



O Mestre Avelino, me ensinou de como coletar direto do Relatório.

Foi adicionada a linha abaixo:

strArquivo = "nomedoarquivo" & reports!nomedorelatorio!campo & ".pdf"

Gratidão.

Finalizado funcionando.