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:
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.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
¿Me podríais ayudar?
Muchas gracias de nuevo y un saludo a todos.