使用自动化对象来实现:
dim myOlApp as object
on error resume next
Set myOlApp = CreateObject("Outlook.Application")
if err.number = 0 then 没错,有安装
msgbox myOlApp .version 这个就是版本了。
else 没有安装软件end if
dim myOlApp as object
on error resume next
Set myOlApp = CreateObject("Outlook.Application")
if err.number = 0 then 没错,有安装
msgbox myOlApp .version 这个就是版本了。
else 没有安装软件end if
非常感谢你的回答,马上加分。我还有最后一个问题:
因为我程序中是事先绑定引用的OUTLOOK9.0,如何在我判断出OUTLOOK版本的情况下,自动引用现在的版本,就是动太绑定啊,万分感谢。
我没有搞懂你的意思?实在不行就给我发email吧,不过可能要明天才能给你答复[email protected]