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)
Const SW_SHOWNORMAL = 1
Private Sub lblEmail_Click()
Dim szEmailAddy As String
szEmailAddy = Me.lblEmail.Caption
ShellExecute 0&, "open", "mailto:" & szEmailAddy, _
vbNullString, vbNullString, SW_SHOWNORMAL
Unload Me
End Sub
Sub ShowEmailForm()
frmEmail.Show
End Sub
|