Envio de email com vencimentos do mes

Ola,

tenho um arquivo em que gero mensalmente no email dos gerentes os vencimentos dos produtos (dia a dia) para que eles possam atuar durante o mes no dia de cada vencimento.

Essa parte ja está ok.

Eu gostaria de alem desse agendamento dia a dia fosse gerado um email com os dados de vencimentos mas um desses para cada gerente.

Pode ser um relatorio no email, um excel ou mesmo no corpo do email.

Procurei exemplos, mas nao achei nada que fosse exatamente nesse sentido.

Muito obrigado.

Tem centenas de exemplos aqui;

https://www.maximoaccess.com/t795-alerta-de-aniversariantes-envia-email-automatico

https://www.maximoaccess.com/t20633-resolvidoenviar-email-de-forma-automatica-pelo-outlook

Outro exemplo basico:

Código:

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