Automation Access to Outlook using Exchange

[Victor Bravo]

The following code works on standalone PC running Office Pro 2003 with XP Pro
but when put onto a client/server system client PC running Office Pro 2003
and XP Pro where Outlook uses Exchange Server an 'Automation Error' occurs.

Code example in my function:
InitialiseOutlook() As Boolean
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
InitialiseOutlook = True
End Function

Am I right to assume the involvement of Exchange is the cause of the error
and how do I change my automation code?
Many thanks