Error at GetDefaultFolder(cdoDefaultFolderCalendar) in Windows 2003 Server

[avis_sivakumar]

Hi,

I have a Visual Basic application built with CDO.dll, which updates
appointments to OUTLOOK from a SQL db. The application is working perfectly
fine in PCs which has WINDOWS XP, but fails in a PCs with WINDOWS 2003 Server.
Below are three different scenarios, which I have used to test the
application to connect with the EXCHANGE SERVER, from the said WINDOWS 2003
Server PC thru VBA coding.

Scenario 1 : Scenario in which the error occurs
-------------------
The below function returns an error at the statement Set oCalendar = oSession.
GetDefaultFolder(CdoDefaultFolderCalendar), whereas the same statement
executes perfectly fine if the code is, as in SCENARIO 3.

Public Function MapiLogon(ExchangeId As String, ExchangeServer As String) As
MAPI.Session
   
   On Error GoTo ErrorHandler
   
   Dim sMsg As String
   Dim oSession As MAPI.Session
   Dim oCalendar As MAPI.Folder
   Dim sProfileInfo As String
   
   Set oSession = New MAPI.Session
   sProfileInfo = ExchangeServer & vbLf & ExchangeId
   Call oSession.Logon(, , False, , , , sProfileInfo)
   
   ' Verify that logon was successful
   
   Set oCalendar = oSession.GetDefaultFolder(CdoDefaultFolderCalendar)
   Set MapiLogon = oSession
   Exit Function

ErrorHandler:
   txtResult = txtResult & vbCrLf & Err.Description
   Set oSession = Nothing
   
End Function

Scenario 2 : Scenario with no error
-------------------
The below function executes perfectly fine, if the GetDefaultFolder
(CdoDefaultFolderInbox) is used.

Public Function MapiLogon(ExchangeId As String, ExchangeServer As String) As
MAPI.Session
   
   On Error GoTo ErrorHandler
   
   Dim sMsg As String
   Dim oSession As MAPI.Session
   Dim oCalendar As MAPI.Folder
   Dim sProfileInfo As String
   
   Set oSession = New MAPI.Session
   sProfileInfo = ExchangeServer & vbLf & ExchangeId
   Call oSession.Logon(, , False, , , , sProfileInfo)
   
   ' Verify that logon was successful
   
   Set oCalendar = oSession.GetDefaultFolder(CdoDefaultFolderInbox)
   Set MapiLogon = oSession
   Exit Function

ErrorHandler:
   txtResult = txtResult & vbCrLf & Err.Description
   Set oSession = Nothing
   
End Function

Scenario 3 : Scenario with no error
-------------------
The below function executes perfectly fine, if the statement Call oSession.
Logon(, , True) is used, rather than the statement Call oSession.Logon(, ,
False, , , , sProfileInfo).

Public Function MapiLogonwithProfileSelection(ExchangeId As String,
ExchangeServer As String) As MAPI.Session
   
   On Error GoTo ErrorHandler
   
   Dim sMsg As String
   Dim oSession As MAPI.Session
   Dim oCalendar As MAPI.Folder
   Dim sProfileInfo As String
   
   Set oSession = New MAPI.Session
   Call oSession.Logon(, , True)
   
   ' Verify that logon was successful
   
   Set oCalendar = oSession.GetDefaultFolder(CdoDefaultFolderCalendar)
   Set MapiLogonwithProfileSelection = oSession
   Exit Function

ErrorHandler:
   txtResult = txtResult & vbCrLf & Err.Description
   Set oSession = Nothing
   
End Function

I understand that this issue is due to CDO in WINDOWS 2003 Server, but not
sure of why and what has to be done to rectify this error. I am a novice, so
please briefly explain of, how this can be resolved.

[Hack]

What is the specific error that you get?

[avis_sivakumar]

[Collaboration Data Objects - [MAPI_E_NOT_FOUND(8004010F)]]

[avis_sivakumar]

can anyone help me on this?

[avis_sivakumar]

Any help?