re: Duet and Outlook Add-ins

Steven DB — Wed, 05 Aug 2009 10:35:17 GMT

In our environment I resolved the issue of the SAP Calendar by removing the addin programmatically during the installation of Duet.

Below are my changes to the Duet Sample Install Script.

'Remove SAP Calendar

Const SAPCalendarPATH = "\Addins\sapcalex.ecf"

'Modified function with ecf deletion

Function OfficeIsInstalled()

On Error Resume Next

OfficeIsInstalled = False

Dim O11, O12

App_Log "I: Checking for the installed Office Versions"

O11 = ""

O12 = ""

OfficeIsInstalled = False

App_Log "I: Checking for the installed Office Versions"

OfficePath = ""

O11 = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Common\InstallRoot\Path")

O12 = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\Common\InstallRoot\Path")

Err.Clear

If O11 <> "" and O12 = "" Then

App_Log "I: OfficeIsInstalled Office 2003 found."

OfficeVersion = "11"

set filesys = CreateObject ("Scripting.FileSystemObject")

On Error Resume Next

set sapecf = filesys.GetFile(O11 & SAPCalendarPATH)

sapecf.Delete true

OfficeIsInstalled = True

ElseIf O11 = "" and O12 <> "" Then

App_Log "I: OfficeIsInstalled Office 2007 found."

OfficeVersion = "12"

set filesys = CreateObject ("Scripting.FileSystemObject")

On Error Resume Next

set sapecf = filesys.GetFile(O12 & SAPCalendarPATH)

sapecf.Delete true

OfficeIsInstalled = True

ElseIf O11 <> "" and O12 <> "" Then

App_Log "E: OfficeIsInstalled Office 2003 and 2007 elements found - mixed installation not supported by Duet."

OfficeVersion = ""

OfficeIsInstalled = True

Else

App_Log "E: RC OfficeIsInstalled Office 2003/2007 was not found. ERROR: No Office Version could be detected on this machine"

OfficeVersion = ""

OfficeIsInstalled = False

End If

End Function