请教，如何在excel下自动保存并通过office 的outlook2003发送邮件

公司里有份调查问卷是发给公司内部员工做调查的大概100份左右，想在表格上做个按钮，在做完问卷后只要按这个按钮就可以自动保存并把保存的问卷通过outlook2003发送回我的邮箱，请问该如何编写这个 宏。 先谢谢了！

Sub SAVE_Click()ThisWorkbook.SaveAs Filename:="c:\ask. xls" '保存当前的工作簿文件Shell "C:\Program Files\Outlook Express\msimn.exe", vbMaximizedFocus '打开Outlook 程序SendKeys "%mn", True '打开新邮件窗口SendKeys "ddddd@yahooo.com.cn", True '输入收件人地址SendKeys "{Tab}{Tab}", TrueSendKeys "aaa", True '输入邮件主题SendKeys "%ia", TrueSendKeys "c:\ ask. xls", True '插入指定的附件SendKeys "{enter}", TrueSendKeys "%s", True '发送邮件End Sub

按钮你会加的，很简单的代码： ActiveWorkbook.Save ActiveWorkbook.SendMail "张三@qq.com", "调查问卷" '发邮件，请改为自己的邮箱地址 ActiveWorkbook.Close 0