Notificación por e-mail

El equipo de Méjisoft Studios, Inc.: Ha indagado sobre el contenido de su pregunta, por lo cual esperando ser de utilidad para usted, anexamos el código en el mismo.
NOTA01: Colóquelo en el área que desee del programa para que realice la tarea indicada.
NOTA02: Punte dependiendo del contenido de la respuesta.
Atentamente
Méjisoft Studios, Inc (P) 2003
---------------------------------------
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
Private Sub lblLink_Click(Index As Integer)
Dim sLink As String
If Index = 0 Then
'e-mail
sLink = "[email protected]"
ShellExecute 0, vbNullString, "mailto:" & sLink, vbNullString, _
vbNullString, vbNormalFocus
Else
'web
sLink = "http://www.mejisoft.com"
ShellExecute 0, vbNullString, sLink, vbNullString, _
vbNullString, vbNormalFocus
End If
End Sub