小问题:如何启动outlook express并自动加载收信人地址??

Question

ShellExecute(Me.hWnd, vbNullString, "mailto:[email protected]", vbNullString, vbNullString, 1) 

Answer 1

use win32 API
======================
ShellExecute Me.hwnd, "open", "mailto:[email protected]?subject=主题&body=" & "内容" & vbCrLf & "懂了吗？", vbNullString, vbNullString, 0

Answer 2

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 LongPrivate Sub Command4_Click()
ShellExecute Me.hwnd, "open", "mailto:[email protected]?subject=主题在这里&body=" & "内容在这里", "", App.Path, 1
End Sub'或
'不用API
Private Sub Command1_Click()
    Shell "start.exe mailto:[email protected]?subject=主题在这里&body=" & "内容在这里", vbHide
End Sub
'VB5.0+Win98Se 通过