Cómo iniciar el correo electrónico con código vb

Opción explícita

Función de declaración privada ShellExecute Lib "shell32.dll "alias" ShellExecuteA " \u

(ByVal hWnd es Long, ByVal lpOperation es String, ByVal lpFile es String, _

ByVal lpParameters es String, ByVal lpDirectory es String, ByVal nShowCmd es Long) es Long

Constante privada SW_SHOW = 5

Dibuje un correo electrónico con un valor de título para usted y su flujo de eventos de clic es:

Subpestaña privada 2_Click()

Etiqueta 2. ForeColor = & ampH800080

Llamar a ShellExecute(Me.hWnd, "open", "mailto:gshan@etang.com", "", "", SW_SHOW)

Finalizar conector

¿Es fácil?