如何製作E-mail連結

製作方法和連結超連結的方法差不多，也是使用api "ShellExecute"

例如：text1裡面有個E-mail的位子，然後用一個按鈕發送到text1裡面那個E-mail位子能嗎?

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 VbAppWinstyle) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "mailto:" & Text1.Text, vbNullString, vbNullString, vbNormalFocus
End Sub

上一頁