Macro para enviar emails

Criei uma base de dados em Acces para gerir as quotizações de sócios de uma coletividade em que sou Presidente.
Queria elaborar uma macro para enviar a todos os sócios com endereços de email na sua ficha, um relatório com o histórial da suas quotas.
Obrigado pela possivel ajuda
Sérgio

Boa tarde, sergio, e bem-vindo ao fórum
Procure pelos vários temas abordados sobre envio de mensagens. Este, por exemplo

crie uma tabela com os dados, uma consulta, e um relatório que puxe os dados dessa consulta.

Depois crie uma macro com a ação EnviarObjeto, e escolha o formato do relatório

espero ter ajudado.

tenho essa que manda uma tabela em anexo por vba

 DoCmd.SendObject acTable, "Tabela_Produtos", "MicrosoftExcelBiff8(*.xls)", "fulano@gmail.com", "", "", "assunto", "corpo do email", False, ""


ou essa que manda para vários usuários, infelizmente não tenho o criador dessa rotina

Private Sub SeuBotao_Click()
Dim rst As DAO.Recordset
Dim strDestinatarios
Dim strTitulo
Dim strMensagemCorpoDoEmail

Set rst = CurrentDb.OpenRecordset("SuaTabela ou SuaConsulta")

Do Until rst.EOF
   strDestinatarios = strDestinatarios & rst("CampoEmailDestino") & ";"
   rst.MoveNext
Loop
   
   strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1)
   strTitulo = "teste"
   strMensagemCorpoDoEmail = "Obrigado"
   
On Error Resume Next
   DoCmd.SendObject , , , strDestinatarios, _
   , , strTitulo, strMensagemCorpoDoEmail, True, False
   
rst.Close
Set rst = Nothing
End Sub