In VB to achieve the method of super connection! and send mail directly!

Send an email

Create a new module
Then add the following code:
Option Explicit

Public Const email = "support@online.com"
Public Const URL = "http://blog.csdn.net/flm2003/"
Public Declare Function ShellExecute Lib "Shell32.dll" Alias "Shellexecutea" (ByVal hwnd as Long, ByVal lpoperation as Str ING, ByVal lpfile As String, ByVal lpparameters as String, ByVal lpdirectory as String, ByVal nShowCmd as long) as long
Public Const Sw_shownormal = 1
Public Sub Gotoweb ()
Dim Success as Long

Success = ShellExecute (0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub
Public Sub SendEmail ()
Dim Success as Long

Success = ShellExecute (0&, vbNullString, "mailto:" & email, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub
And then it's easy!
In the form you want to make a hyperlink, such as a hyperlink that implements a label
Then in the label click event to add Gotoweb or sendemail can!