Access - Enviar correos

Hola!! Un saludo a todos..
Alguien tiene un código para enviar correos con archivos adjuntos desde access??
Gracias =)

Aqui esta la funcion, solo tienes que tener referenciado tú programa a la librería de Microsoft Outlook

Sub Correos()
Dim Correo As New Outlook.Application
Dim Mensaje As Outlook.MailItem
Set Mensaje = Correo.CreateItem(olMailItem)
With Mensaje 'lleno mensaje
.To = ‘Aquien(es) se les envia el mensaje
.Subject = 'Asunto del mensaje
.Body = 'Cuerpo del mensaje
.Attachments.Add ‘poner ruta y archivo a adjuntar
.Importance = olImportanceHigh
.Send
End With
Set Mensaje = Nothing 'Limpia mensaje
Set Correo = Nothing 'cierra sesión de Correo
end sub

Saludos
Manuel
Venezuela

Funciona perfecto, gracias

Hola, estoy viendo tu respuesta y está muy buena.
Yo te pregunto porque necesito estos datos para una aplicación que estoy terminando: como puedo obtener la dirección de correo predeterminado del gestor de correos la máquina actual, el valor del puerto SMTP y la condición de conexión SSL
Desde ya muchas gracias por tu respuesta.

Librero08