Enviar relatorios por email em PDF para destinatários

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

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.

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

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

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