Discussions
Categories
Groups
Community Home
Categories
INTERNAL ENABLEMENT
POPULAR
THRUST SERVICES & TOOLS
CLOUD EDITIONS
Quick Links
MY LINKS
HELPFUL TIPS
Back to website
Home
Web CMS (TeamSite)
Missing ContextItmes when using 8.5 sp3 client with word 2007
System
The following code is adapted for the desksite 8.5 sp3 client, but there are no contextitems in the Context object of the iManageExtensibility object. Any ideas why ?
Dim objCOMAddIn As Office.COMAddIn
Dim objWordApp As Word.Application
Dim objDoc As IManage.IManDocument
Dim myExtObject As WorkSiteAddinInterfaces.iManageExtensibility
Dim pContextItems As ContextItems
Dim pNRTDMS As IManage.ManDMS
Dim pSessions As IManage.IManSessions
Set objWordApp = Word.Application
Set objCOMAddIn = objWordApp.COMAddIns("WorksiteOffice2007Addins.Connect")
Set myExtObject = objCOMAddIn.Object
If myExtObject.CurrentMode = ConnectionMode_nrindeterminatemode Then
myExtObject.Connect
End If
If myExtObject.CurrentMode = ConnectionMode_nrConnectedMode Then
Set pContextItems = myExtObject.Context
If Not pContextItems Is Nothing Then
'the following fail as there are no Content items in the context object !!!!
Set pNRTDMS = pContextItems.Item("NRTDMS")
Set pSessions = pNRTDMS.Sessions
End If
End If
Set myExtObject = Nothing
Set objCOMAddIn = Nothing
Set objWordApp = Nothing
Find more posts tagged with
Comments
Arwin
You probably already found it, but I just came across the solution which was posted here:
http://worksitesupport.interwoven.com/forums/showthread.php?t=614
Always nice to wrap up a thread.