CodeItBetter Programming Another VB Programming Blog

'Controls - How to create a email link in your form
'Create a Label (Label1), set its Caption to an e-mail address, and add the following code:

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
 
Private Sub Form_Load()
    Label1.AutoSize = True
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = vbButtonText
    Label1.Font.Underline = False
End Sub
 
Private Sub Label1_Click()
    Call ShellExecute(0, vbNullString, "mailto:" & Label1.Caption, vbNullString, _
        vbNullString, vbNormalFocus)
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = vbBlue
    Label1.Font.Underline = True
End Sub