¿Cómo poner en access un botón para mandar un e-mail?

Vamos a ver...
He probado el enlace y a mí me lleva a la respuesta que di. Y la respuesta no es sobre Outlook, es sobre Access y automatización a través de Outlook.
De todas maneras te copio y pego aquí la respuesta del mensaje que te comentaba:
<<--------------------------------------------------------------------------------------------------------
Hola!
Te paso el código que debes poner para poder enviar un mail. Como te comentaba, debes tener el Outlook en funcionamiento para que la cosa te marche.
Si has seguido el ejemplo que te recomendaba este código debes ponerlo en lugar del msgbox, cuando se cumple la condición de fechas.
Te marcaré en negrita las cosas que tú debes cambiar para adaptarlo a tu BD.
El código es el siguiente:
---
Private Sub Comando0_Click()
'Creamos una instancia de Outlook
Dim Olk As Outlook.Application
Set Olk = CreateObject("Outlook.Application")
'Creamos un nuevo mensaje de Outlook
Dim OlkMsg As Outlook.MailItem
Set OlkMsg = Olk.CreateItem(olMailItem)
'Creamos la información del mail
With OlkMsg
Dim OlkDestinatario As Outlook.Recipient
Set OlkDestinatario = .Recipients.Add("[email protected]")
OlkDestinatario.Type = olTo
.Subject = "Asunto"
.Body = "Cuerpo del mensaje"
.Send
End With
Set Olk = Nothing
Set OlkMsg = Nothing
Set OlkDestinatario = Nothing
End Sub
---
Respecto a lo que me comentabas del tema de los destinatarios de otra tabla debes crear un recordset que te vaya recorriendo los registros. Te indico grosso modo como sería, partiendo de las siguientes suposiciones:
TDatos es el nombre de la tabla
[mail] Es el nombre del campo donde tienes las direcciones
---
Dim rst As Recordset
Dim vDest as string
Set rst = CurrentDb.OpenRecordset("TDatos")
rst.MoveFirst
Do until rst.EOF
vDest = rst.Fields("mail").Value
'Aquí iría el código anterior de enviar el mail. El único cambio que debes hacer está en
'la línea --- Set OlkDestinatario = .Recipients.Add("[email protected]") ---, donde deberías
'poner --- Set OlkDestinatario = .Recipients.Add(vDest) ---
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
---
Y eso es todo. Ya me dirás.
Te invito a visitar mi web y a hacer las sugerencias, comentarios y aportaciones que creas convenientes. Serán todas bienvenidas.
Un saludo, y suerte!
------------------------------------------------------------------------------------------------------->>
Y eso es todo, amigos! ;)
Ya me dirás qué tal te ha ido.