Access - macro correo electrónico

Hola foro.
tengo una base de datos creada con access, uno de los campos "Correo Electrónico del Programador" donde voy introduciendo los datos del correo electrónico.

Me gustaría crear una macro que al pinchar en este campo se abriera un correo nuevo en el outlook con la dirección del campo que he pinchado.

He estado buscando en el foro pero no encuentro nada que me funcione. también podría ser un botón que tomara la dirección de correo electrónico que tengo en el campo "Correo Electrónico del Programador" a alguien se le ocurre algo que pueda funcionar???

Saludos y Gracias.

Prueba de esta manera

Private Sub cmdEmail_Click()
On Error GoTo error_cancelar

DoCmd.SendObject , , , txtEmail

error_cancelar:
If Err.Number = 2501 Then
Exit Sub
Else
MsgBox Err.Description, vbCritical, "Error Nº: " & Err.Number
Exit Sub
End If
End Sub

Gracias, he copiado y pegado en la macro y no funciona. imagino que tengo que cambiar algún texto del código, o quizá este código es para un botón?

DoCmd.SendObject ... txtEmail

Tengo que cambiar algo en esta línea o en cualquier otra?


saludos.

El código es para un botón. Tienes que cambiar txtEmail por el nombre del campo donde tengas la dirección de correo.

Saludos

He hecho lo que me has dicho y nada, no funciona, te pego el texto que me aparece en MVB

Correo Electrónico del Programador es el nombre del campo que contiene la dirección del correo.

Este es el código que aparece en el comando del botón.

Private Sub Comando232_Click()
Private Sub cmdEmail_Click()
On Error GoTo error_cancelar

DoCmd.SendObject , , , Correo Electrónico del Programador

error_cancelar:
If Err.Number = 2501 Then
Exit Sub
Else
MsgBox Err.Description, vbCritical, "Error Nº: " & Err.Number
Exit Sub
End If
End Sub

Gracias y saludos

En el botón, en la ficha eventos, evento al hacer click, seleccionas procedimiento de evento.
A la derecha te sale un cuadradito con tres puntos (...), lo pulsas. El cursor se queda en medio de :

Private sub loquesea_Click()
Aquí se queda el cursor
End Sub

En ese espacio de enmedio tienes que poner esto:

On Error GoTo error_cancelar

DoCmd.SendObject , , , [Correo Electrónico del Programador]

error_cancelar:
If Err.Number = 2501 Then
Exit Sub
Else
MsgBox Err.Description, vbCritical, "Error Nº: " & Err.Number
Exit Sub
End If

Saludos