使用自动化对象来实现:
dim myOlApp as object
on error resume next 
Set myOlApp = CreateObject("Outlook.Application")
if err.number = 0 then  没错,有安装
   msgbox  myOlApp .version   这个就是版本了。
else 没有安装软件end if

解决方案 »

  1.   

    wangbin_CSDN(轻舞飞狼) :
    非常感谢你的回答,马上加分。我还有最后一个问题:
       因为我程序中是事先绑定引用的OUTLOOK9.0,如何在我判断出OUTLOOK版本的情况下,自动引用现在的版本,就是动太绑定啊,万分感谢。
      

  2.   

    上面不是告诉你得到了一个outlook对象了吗?
    我没有搞懂你的意思?实在不行就给我发email吧,不过可能要明天才能给你答复[email protected]