Access - Enviar correo

Hola,
Tengo un formulario de Access donde en unos de los campos quiero guardar direcciones de correo electrònio. Lo que yo quiero hacer es enviar un correo electrónico des de el fomulario sin tener que cerrar el Access y entrar al programa de correo.
¿Cómo lo puedo hacer?
Grácias,
Imma

En le foro ya sa ha dado informacion al respecto, de todas formas aqui te mando el codigo que puedes usar:
´Inicio del programa
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
´Fin del programa

Saludos
Manuel
Venezuela

Me da un error cuando ejecuto el código me dice que outlook no reconoce alguno de los nombres.

.To=\" Aquien(es) se les envia el mensaje\" (Debo poner la dirección o el nombre que tenemos en la agenda del Outlook)
Si queremos poner el nombre que tenemos en la agenda del Outlook que pasa si la persona que tenemos en la b.d no esta memorizada en nuestra agenda. Podemos utilizar un campo donde tengamos las direcciones memorizadas.
Grácias,
Imma

despues del "TO" debes poner la direccion de correo, o una referencia a tu base de datos donde este esta direccion, pero no puedes utilizar los nombres que tienes en la libreta de direcciones.

La funcion hace el trabajo, por que yo la he utilizado.

Saludos
Manuel
Venezuela

Lo primero que puse fue la dirección del correo pero al ver que no daba mensaje de error y que el correo tampoco llegaba intente con el nombre del contacto.
Yo necesito poner la referencia de donde tengo las direcciones en la base de datos, pero primero quería ver como funcionaba el código directamente aunque aún no he conseguido enviar nada.
Grácias,
Imma

Imagina que tienes un campo de texto llamado "Email" donde tienes grabada la dirección de correo electrónico y, un botón llamado "btnCorreo", en el evento al hacer clic del botón pon la siguiente sintaxis:
Me.btnCorreo.HyperlinkAddress = "mailto:" & Email

He probado este código pero me sólo consigo que me abra el outlook , la dirección que hay no sale en el mensaje.
Grácias,
Imma

Si queires enviame una copia de la bd, pero solo con lo necesario para que esta funcion se pueda ejecutar, yo la reviso y te la mando.

Saludos
Manuel
Venezuela

Ya tienes la B.D.
gracias,
Imma

Buenos dias, Inma. Tengo la solución para lo que quieres hacer, pero es un poco larga, asi que te la envío a tu email, para que la pruebes. Yo la estoy utilizando y funciona perfectamente.
Saludos.

Imma, he intentado enviarte un correo pero me dice que tu dirrección no es correcta. Si quieres que te lo envie, dime donde.

Hola Alfman,
Mi dirección de correo es [email protected]
Grácias,
Imma

Ok. Te lo vuelvo a enviar.