No sé si me expliqué bien, quiero decir si el mensaje va a ser, por ejemplo
![](//blob.todoexpertos.com/uploads/md/50a59369f80fe7ee75d79cfe3f278270.png)
Y si en algún control del formulario tienes lo que aparece en el asunto, que dependa de cada registro o no lo hay y el "asunto" va a ser para todos igual. Lo mismo para el mensaje
O si va a llevar algún archivo adjunto, por ejemplo
![](//blob.todoexpertos.com/uploads/md/2470842f617886bb504864f347680ad9.png)
Por ejemplo, supongamos que tengo el formulario
![](//blob.todoexpertos.com/uploads/md/10cc0c44632adcb285f8a51f793cc3b4.png)
Si pulso el botón
![](//blob.todoexpertos.com/uploads/md/28ac1fcd6b72a700833163f444d55a68.png)
El código del botón es
DoCmd.GoToRecord , , acFirst
For i = 1 To Me.Recordset.RecordCount
If Not IsNull([Email]) Then
DoCmd.SendObject acSendNoObject, , "MS-DOSText(*.txt)", " & Me.Email & ", , , "" & Me.Asunto & "", "" & Me.Mensaje & "", False
End If
DoCmd.GoToRecord , , acNext
Next
En caso de que no hayas esos campos, sólo el email
![](//blob.todoexpertos.com/uploads/md/635de4fb5fe72fa4b576718876540d8d.png)
Pulso el botón
![](//blob.todoexpertos.com/uploads/md/098e41ab4190b1d13ab16238c651e7f2.png)
El código es
DoCmd.GoToRecord , , acFirst
For i = 1 To Me.Recordset.RecordCount
If Not IsNull([Email]) Then
DoCmd.SendObject acSendNoObject, , "MS-DOSText(*.txt)", " & Me.Email & ", , , "Como te dije en veces anteriores", " Aquí se acaban las relaciones", False
End If
DoCmd.GoToRecord , , acNext
Next
Por eso te decía que si no concretas más, va a ser difícil.