Buenos d?as a todos,

Antes de nada, agradecer vuestra ayuda y daros las gracias por vuestro tiempo.

Os cuento mi problema.Tengo creado un Informe en Access, que recoge los datos de una consulta, entre ellos un campo de email.

A mayores de esto, tengo creado una bot?n en un formulario, que lo que deber?a hacer es enviar un informe por cada registro a su email especificado.

El c?digo del evento es el siguiente:

C?digo: Sub Comando71_Click()
Dim rst As DAO.Recordset
Dim strSql As String
Dim Correo As String

strSql = "SELECT * FROM [tabla]"
Set rst = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)

rst.MoveFirst

Do Until rst.EOF
Correo = rst!E_Mail
DoCmd.SendObject acSendForm, "Informe-1", acFormatHTML, Correo, , , _
"Asunto: Envio de Informe ", , True
rst.MoveNext
Loop

rst.Close

End Sub

El problema es que se me estan generando todos los informes (un informe por registro), y lo est? enviando al primer email del primer registro, no a su correspondiente.

?Me podr?ais ayudar?

Muchas gracias de nuevo y un saludo a todos.