如何用VB在应用程序中使用本地默认的电子邮件程序发送邮件？？望高手指教

Question

用api函數ShellExecute吧！
我很笨，不會更簡單的方法！︰）

Answer 1

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然后使用类似这样的语句：
ShellExecute Me.hwnd, vbNullString, "mailto:yourmail", vbNullString, vbNullString, 0&或者可以用更简单的方法：
shell "start.exe mailto:yourmail",vbNormalFocusCheers?

Answer 2

shell "explorer mailto:邮件地址",vbnormalfocus
我试过了，没有问题的

Answer 3

附件呢？如果我指定一个已有的HTML文件作为正文呢？如何写代码？

Answer 4

附件名称须要加引号：
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 Command1_Click()
    ShellExecute Me.hwnd, "", "mailto:[email protected]?subject=hello&body=student&attachment= ""c:\temp.htm""", "", "", 0
End Sub