在EXCEL里点按钮通过OUTLOOK发送邮件，急！谢谢您了

如何写一个代码能够，在EXCEL里面点一下按钮，就通过OUTLOOK2003，按照我上传附件里面的要求发送邮件呢？
难点是
1 要发送给好几个人
2 要把excel里面的透视表和分析图复制粘贴到邮件内容里面，而不是附件
自己研究好久了，总是不行，所以在这里求救了。谢谢老师的回答！！！

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
Private Sub CommandButton2_Click()
Dim mystr As String
mystr = "mailto:" & Sheets("查询表").TextBox1.Text
If mystr = vbNullString Then
    MsgBox "对不起，邮件地址不能为空！"
Else
    Call ShellExecute(0&, vbNullString, mystr, vbNullString, vbNullString, vbNormalFocus)
End If
End Sub
试试这个，变通下。

http://club.excelhome.net/viewth ... hlight=%D5%B3%CC%F9

这个帖子参考一下。

多用用论坛的搜索。