E-mails Through Visual Basic..... ??

[Keithuk]

Put your email address in the lblEmail.Caption. Just click the email label and it will send using Outlook or Outlook Express.

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
 
Const SW_SHOW = 5
 
Private Sub lblEmail_Click()
 
ShellExecute Me.hwnd, "open", "mailto:" & lblEmail.Caption & "? _
subject=" & App.Title, vbNullString, vbNullString, SW_SHOW
 
End Sub

This as been asked a few times on here.