Buenos días a todos,
Antes de nada, agradecer vuestra ayuda y daros las gracias por vuestro tiempo.
Tengo creada 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.