Copia el siguiente código en la parte de declarasiones del modulo:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Agrega una Etiqueta (o un boton, o lo que quieras, yo lo hice con una etiqueta) llamada lblMail y pega el código siguiente.
Private Sub lblMail_Click()
Dim sLink As String
'hipervinculo con e-mail
sLink = "
[email protected]"
ShellExecute 0, vbNullString, "mailto:" & sLink, vbNullString, _
vbNullString, vbNormalFocus
End Sub
Listo, si tenes alguna duda escribime.
