Enviar e-mail

Galera,
Tenho uma tabela com os seguintes campos no access
para, assunto, corpo_email e obs.
queria ajuda com uma macro para realizar envios de e-mail linha a linha (cada um registro em uma e-mail separado) onde utilizasse os campos da tabela como referência para enviar os e-mail.

Tenho esse código abaixo, mas o mesmo envia o "para" tudo junto, queria um e-mail para cada linha e que utilizasse os campos da tabela como assunto e os demais campos no corpo do e-mail.
Gostaria de uma adaptação onde pudesse escolher o opção (Send ou Display)

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

Boa noite,
Private Sub SeuBotao_Click()
On Error Resume Next
Dim rst As DAO.Recordset

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

Do Until rst.EOF
DoCmd.SendObject , , , rst("CampoEmailDestino"), _
, , rst("CampoTitulo"), rst("CampoCorpo"), True, False

rst.MoveNext
Loop

rst.Close
Set rst = Nothing
End Sub