以后如何在函数中使用.dll提供的方法
<OBJECT id=ViewCtl1 codebase=http://activex.microsoft.com/activex/controls/office/outlctlx.cab#ver=9,0,0,3203 height="80%" width="100%"
classid=clsid:0006F063-0000-0000-C000-000000000046><PARAM NAME="Folder" VALUE="\\个人文件夹\联系人">
<PARAM NAME="DeferUpdate" VALUE="0">
</object>
Function IsFHP()
On Error Resume Next
Set g_objOL = ViewCtl1.OutlookApplication //我取不到该值
IF Err Then
IsFHP = False
ElseIf Not g_objOL is Nothing then
IsFHP = true
else
IsFHP = true
End If
End Function