Hola, te digo como lo hago yo.
Meto una etiqueta (label) en la que el caption es mi dirección de correo.
A esa etiqueta le meto este codigo:
Private Sub LabelMAIL_Click()
Dim nFile As Integer
'****************************************************************
' ESTA INSTRUCCION SIRVE PARA HACER QUE ENVIE UN E-MAIL
'****************************************************************
' Desarrollada por Jesús Salavera
' E-MAIL:
[email protected]
'****************************************************************
'CREA UN ARCHIVO TEMPORAL
nFile = FreeFile
Open App.Path & "\TEMP.URL" For Output As #nFile
Print #nFile, "[InternetShortcut]"
Print #nFile, "URL=" & "mailto:" & LabelMAIL.Caption
Close #nFile
'EJECUTA EL PROGRAMA DE CORREO PREDETERMINADO
Shell "rundll32.exe shdocvw.dll,OpenURL " & App.Path & "\temp.url", vbNormalFocus
'ELIMINA EL ARCHIVO TEMPORAL
Kill App.Path & "\TEMP.URL"
End Sub
Espero sirva de ayuda.