菜鸟求助：怎样将Outlook里的图片用VB存到指定文件夹

经常发现在word，excel，outlook中的图片不能点击另存为
只有powerpoint中的图片可以另存为图片。
所以想用vb实现把word，excel，outlook中的图片另存到指定文件夹的功能

初步想的是用剪贴板来存
Private Sub Command1_Click()
    Picture1.Picture = Clipboard.GetData()
    SavePicture Clipboard.GetData(), "D:\temp.jpg"
    MsgBox "OK"
End Sub

但是这样只能存word，excel，PowerPoint里的图片
outlook里别人发过来的邮件里的图片好像是嵌在文件里的（我不是说附件哈，我说的是直接显示在邮件里的）
我用运行clipbrd打开剪贴板查看了
用word，excel或者是outlook里的图片复制的时候，剪贴板里面都有
但是为啥outlook里的图片存不了呢，一存就出错 runtime error 380
                                            invalid property value

求达人指点，不想用拷到画图里，再另存的方式


outlook2003也支持vba的，查查msdn实现吧。 。。。。。不会
有人帮帮忙吗
就在刚才才注册的论坛，所有没有分
只能把帖子开成非技术贴。。
有好人在吗
还是没人回复挖，要沉了，有好心人在没啊

补充：VB ,  非技术类