VB发送EMAIL的简单问题（一定给分）

Question

只要能触发事件的任何控件里都行啊：
比如：按钮控件：
Private Sub Command1_Click()
Shell "Mailto:[email protected]?subject=help me!&body=Thank you!"
End Sub不过要发信成功，你的SMTP服务要配置好才行

Answer 1

任何可以被vb程序执行到的函数和过程都可以
如
button的click事件里

Answer 2

我放在button的click事件里
可是错误是“文件未找到”
怎么回事阿？

Answer 3

条件，必须设置默认邮件工具！在Internet选项中可以设置

Answer 4

加一个标签，名为lblmail
然后编码如下：Const email = "[email protected]"Private Sub lblmail_Click()
   Call EmailMe
End SubPrivate Sub EmailMe()
Dim Success As Long
Success = ShellExecute(frmAbout.hwnd, vbNullString, "mailto:" & email, vbNullString, "C:\", SW_SHOWNORMAL)
End Sub