...guarda se ti può tornare utile....
ciao


codice:
option explicit
' da inserire nell'option explicit

    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


'lancio la funzione con un'indirizzo di mia scleta
Private Sub mnu_personalizza_Click()
OpenEmailProgram ("mioindirizzo@posta.it")
End Sub


'funzione

Public Function OpenEmailProgram(ByVal EmailAddress As String) As Boolean
    Dim res As Long
    res = ShellExecute(0&, "open", "mailto:" & EmailAddress, vbNullString, _
        vbNullString, vbNormalFocus)
    OpenEmailProgram = (res > 32)
End Function