Hello,

in OL 2000 sql queries are unnormally slow. The following code
sometimes take more then 1 second to finnish (without logon):

Option Explicit

Dim g_objRDOSession As Object

Public Sub Test()

Dim objFolder As Object
Dim sglStart As Single
Dim sglEnd As Single

If g_objRDOSession Is Nothing Then
Set g_objRDOSession = CreateObject("Redemption.RDOSession")
Call g_objRDOSession.Logon("", "", False, False, 0)
End If

Set objFolder = Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Debug.Print ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"

End Sub

Public Function ExecuteSQL(ByVal objFolder As Object) As String

Dim objTable As Object
Dim objRecordSet As Object
Dim strSQL As String

Set objTable = CreateObject("Redemption.MAPITable")

objTable.Item = g_objRDOSession.GetFolderFromID(objFolder.EntryID,
_
objFolder.Parent.StoreID).Items

strSQL = "SELECT Subject FROM Folder WHERE (Subject '')"

Set objRecordSet = objTable.ExecSQL(strSQL)

ExecuteSQL = "TEST"

End Function

I tried this code with OL 2000/SP3 on a Win 2000/SP4 machine and an
Exchange Server 2003. I also tried it without Exchange and a local pst
file. Seems to be a little bit faster but not significant. On 2002 and
higher it works fine (tried on XP and Vista machines).

So the question is: Is this a known issu from OL/WIN 2000 or may be
the redemption can cause the problem?

Thanks for any hints.

Peter

--
Infos, workshops & software for
Outlook(R): www.outlook-stuff.com

Redemption version is 4.5.0.780 but I think to remember I tested it
with 730 too.

On 18 Nov., 15:10, Peter Marchert wrote:
Hello,

in OL 2000 sql queries are unnormally slow. The following code
sometimes take more then 1 second to finnish (without logon):

Option Explicit

Dim g_objRDOSession As Object

Public Sub Test()

Dim objFolder As Object
Dim sglStart As Single
Dim sglEnd As Single

If g_objRDOSession Is Nothing Then
Set g_objRDOSession = CreateObject("Redemption.RDOSession")
Call g_objRDOSession.Logon("", "", False, False, 0)
End If

Set objFolder = Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Debug.Print ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"

End Sub

Public Function ExecuteSQL(ByVal objFolder As Object) As String

Dim objTable As Object
Dim objRecordSet As Object
Dim strSQL As String

Set objTable = CreateObject("Redemption.MAPITable")

objTable.Item = g_objRDOSession.GetFolderFromID(objFolder.EntryID,
_
objFolder.Parent.StoreID).Items

strSQL = "SELECT Subject FROM Folder WHERE (Subject '')"

Set objRecordSet = objTable.ExecSQL(strSQL)

ExecuteSQL = "TEST"

End Function

I tried this code with OL 2000/SP3 on a Win 2000/SP4 machine and an
Exchange Server 2003. I also tried it without Exchange and a local pst
file. Seems to be a little bit faster but not significant. On 2002 and
higher it works fine (tried on XP and Vista machines).

So the question is: Is this a known issu from OL/WIN 2000 or may be
the redemption can cause the problem?

Thanks for any hints.

Peter

--
Infos, workshops & software for
Outlook(R):www.outlook-stuff.com

How many items does that folder contain? Is Outlook 2000 using online mode
vs cached in the odler versions of Outlook.
1 second sounds very much reasonable to me...

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message
...
Hello,

in OL 2000 sql queries are unnormally slow. The following code
sometimes take more then 1 second to finnish (without logon):

Option Explicit

Dim g_objRDOSession As Object

Public Sub Test()

Dim objFolder As Object
Dim sglStart As Single
Dim sglEnd As Single

If g_objRDOSession Is Nothing Then
Set g_objRDOSession = CreateObject("Redemption.RDOSession")
Call g_objRDOSession.Logon("", "", False, False, 0)
End If

Set objFolder = Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Debug.Print ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"

End Sub

Public Function ExecuteSQL(ByVal objFolder As Object) As String

Dim objTable As Object
Dim objRecordSet As Object
Dim strSQL As String

Set objTable = CreateObject("Redemption.MAPITable")

objTable.Item = g_objRDOSession.GetFolderFromID(objFolder.EntryID,
_
objFolder.Parent.StoreID).Items

strSQL = "SELECT Subject FROM Folder WHERE (Subject '')"

Set objRecordSet = objTable.ExecSQL(strSQL)

ExecuteSQL = "TEST"

End Function

I tried this code with OL 2000/SP3 on a Win 2000/SP4 machine and an
Exchange Server 2003. I also tried it without Exchange and a local pst
file. Seems to be a little bit faster but not significant. On 2002 and
higher it works fine (tried on XP and Vista machines).

So the question is: Is this a known issu from OL/WIN 2000 or may be
the redemption can cause the problem?

Thanks for any hints.

Peter

--
Infos, workshops & software for
Outlook(R): www.outlook-stuff.com

Thanks for your reply, Dmitry.

How many items does that folder contain?
The folder is empty (I`m only testing).


Is Outlook 2000 using online mode?

I´m not sure. Right now I`m testing without an Exchange Server.

Here some results:
1 seconds
0,64 seconds
0,61 seconds
0,54 seconds
0,57 seconds
0,77 seconds

Peter

On 18 Nov., 17:00, "Dmitry Streblechenko" wrote:
How many items does that folder contain? Is Outlook 2000 using online mode
vs cached in the odler versions of Outlook.
1 second sounds very much reasonable to me...

Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message

...



Hello,

in OL 2000 sql queries are unnormally slow. The following code
sometimes take more then 1 second to finnish (without logon):

Option Explicit

Dim g_objRDOSession As Object

Public Sub Test()

Dim objFolder As Object
Dim sglStart As Single
Dim sglEnd As Single

If g_objRDOSession Is Nothing Then
Set g_objRDOSession = CreateObject("Redemption.RDOSession")
Call g_objRDOSession.Logon("", "", False, False, 0)
End If

Set objFolder = Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Debug.Print ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"

End Sub

Public Function ExecuteSQL(ByVal objFolder As Object) As String

Dim objTable As Object
Dim objRecordSet As Object
Dim strSQL As String

Set objTable = CreateObject("Redemption.MAPITable")

objTable.Item = g_objRDOSession.GetFolderFromID(objFolder.EntryID,
_
objFolder.Parent.StoreID).Items

strSQL = "SELECT Subject FROM Folder WHERE (Subject '')"

Set objRecordSet = objTable.ExecSQL(strSQL)

ExecuteSQL = "TEST"

End Function

I tried this code with OL 2000/SP3 on a Win 2000/SP4 machine and an
Exchange Server 2003. I also tried it without Exchange and a local pst
file. Seems to be a little bit faster but not significant. On 2002 and
higher it works fine (tried on XP and Vista machines).

So the question is: Is this a known issu from OL/WIN 2000 or may be
the redemption can cause the problem?

Thanks for any hints.

Peter

--
Infos, workshops & software for
Outlook(R):www.outlook-stuff.com- Zitierten Text ausblenden -

- Zitierten Text anzeigen -

Some more information: If I run the code in a loop:

For lngLoop = 1 To 25
Set objFolder =
Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Call ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"
Next lngLoop

It takes for every loop nearly exactly 1 second to finnish.

Peter

On 18 Nov., 18:23, Peter Marchert wrote:
Thanks for your reply, Dmitry.

How many items does that folder contain?

The folder is empty (I`m only testing).

Is Outlook 2000 using online mode?

I´m not sure. Right now I`m testing without an Exchange Server.

Here some results:
1 seconds
0,64 seconds
0,61 seconds
0,54 seconds
0,57 seconds
0,77 seconds

Peter

On 18 Nov., 17:00, "Dmitry Streblechenko" wrote:



How many items does that folder contain? Is Outlook 2000 using online mode
vs cached in the odler versions of Outlook.
1 second sounds very much reasonable to me...

Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message

...

Hello,

in OL 2000 sql queries are unnormally slow. The following code
sometimes take more then 1 second to finnish (without logon):

Option Explicit

Dim g_objRDOSession As Object

Public Sub Test()

Dim objFolder As Object
Dim sglStart As Single
Dim sglEnd As Single

If g_objRDOSession Is Nothing Then
Set g_objRDOSession = CreateObject("Redemption.RDOSession")
Call g_objRDOSession.Logon("", "", False, False, 0)
End If

Set objFolder = Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Debug.Print ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"

End Sub

Public Function ExecuteSQL(ByVal objFolder As Object) As String

Dim objTable As Object
Dim objRecordSet As Object
Dim strSQL As String

Set objTable = CreateObject("Redemption.MAPITable")

objTable.Item = g_objRDOSession.GetFolderFromID(objFolder.EntryID,
_
objFolder.Parent.StoreID).Items

strSQL = "SELECT Subject FROM Folder WHERE (Subject '')"

Set objRecordSet = objTable.ExecSQL(strSQL)

ExecuteSQL = "TEST"

End Function

I tried this code with OL 2000/SP3 on a Win 2000/SP4 machine and an
Exchange Server 2003. I also tried it without Exchange and a local pst
file. Seems to be a little bit faster but not significant. On 2002 and
higher it works fine (tried on XP and Vista machines).

So the question is: Is this a known issu from OL/WIN 2000 or may be
the redemption can cause the problem?

Thanks for any hints.

Peter

--
Infos, workshops & software for
Outlook(R):www.outlook-stuff.com-Zitierten Text ausblenden -

- Zitierten Text anzeigen -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -

What id you take the GetDefaultFolder call from the loop?
Is Outlook 2000 installed in the C/W or IMO mode (see Help | About)?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message
...
Some more information: If I run the code in a loop:

For lngLoop = 1 To 25
Set objFolder =
Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Call ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"
Next lngLoop

It takes for every loop nearly exactly 1 second to finnish.

Peter

On 18 Nov., 18:23, Peter Marchert wrote:
Thanks for your reply, Dmitry.

How many items does that folder contain?

The folder is empty (I`m only testing).

Is Outlook 2000 using online mode?

I´m not sure. Right now I`m testing without an Exchange Server.

Here some results:
1 seconds
0,64 seconds
0,61 seconds
0,54 seconds
0,57 seconds
0,77 seconds

Peter

On 18 Nov., 17:00, "Dmitry Streblechenko" wrote:



How many items does that folder contain? Is Outlook 2000 using online
mode
vs cached in the odler versions of Outlook.
1 second sounds very much reasonable to me...

Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message

...

Hello,

in OL 2000 sql queries are unnormally slow. The following code
sometimes take more then 1 second to finnish (without logon):

Option Explicit

Dim g_objRDOSession As Object

Public Sub Test()

Dim objFolder As Object
Dim sglStart As Single
Dim sglEnd As Single

If g_objRDOSession Is Nothing Then
Set g_objRDOSession = CreateObject("Redemption.RDOSession")
Call g_objRDOSession.Logon("", "", False, False, 0)
End If

Set objFolder = Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Debug.Print ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"

End Sub

Public Function ExecuteSQL(ByVal objFolder As Object) As String

Dim objTable As Object
Dim objRecordSet As Object
Dim strSQL As String

Set objTable = CreateObject("Redemption.MAPITable")

objTable.Item = g_objRDOSession.GetFolderFromID(objFolder.EntryID,
_
objFolder.Parent.StoreID).Items

strSQL = "SELECT Subject FROM Folder WHERE (Subject '')"

Set objRecordSet = objTable.ExecSQL(strSQL)

ExecuteSQL = "TEST"

End Function

I tried this code with OL 2000/SP3 on a Win 2000/SP4 machine and an
Exchange Server 2003. I also tried it without Exchange and a local pst
file. Seems to be a little bit faster but not significant. On 2002 and
higher it works fine (tried on XP and Vista machines).

So the question is: Is this a known issu from OL/WIN 2000 or may be
the redemption can cause the problem?

Thanks for any hints.

Peter

--
Infos, workshops & software for
Outlook(R):www.outlook-stuff.com-Zitierten Text ausblenden -

- Zitierten Text anzeigen -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -

Hmm, sorry I don`t know which id you mean.

OL is installed in the IMO.

Peter

On 19 Nov., 07:40, "Dmitry Streblechenko" wrote:
What id you take the GetDefaultFolder call from the loop?
Is Outlook 2000 installed in the C/W or IMO mode (see Help | About)?

Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message

...
Some more information: If I run the code in a loop:

For lngLoop = 1 To 25
Set objFolder =
Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Call ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"
Next lngLoop

It takes for every loop nearly exactly 1 second to finnish.

Peter

On 18 Nov., 18:23, Peter Marchert wrote:



Thanks for your reply, Dmitry.

How many items does that folder contain?

The folder is empty (I`m only testing).

Is Outlook 2000 using online mode?

I´m not sure. Right now I`m testing without an Exchange Server.

Here some results:
1 seconds
0,64 seconds
0,61 seconds
0,54 seconds
0,57 seconds
0,77 seconds

Peter

On 18 Nov., 17:00, "Dmitry Streblechenko" wrote:

How many items does that folder contain? Is Outlook 2000 using online
mode
vs cached in the odler versions of Outlook.
1 second sounds very much reasonable to me...

Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message

....

Hello,

in OL 2000 sql queries are unnormally slow. The following code
sometimes take more then 1 second to finnish (without logon):

Option Explicit

Dim g_objRDOSession As Object

Public Sub Test()

Dim objFolder As Object
Dim sglStart As Single
Dim sglEnd As Single

If g_objRDOSession Is Nothing Then
Set g_objRDOSession = CreateObject("Redemption.RDOSession")
Call g_objRDOSession.Logon("", "", False, False, 0)
End If

Set objFolder = Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Debug.Print ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"

End Sub

Public Function ExecuteSQL(ByVal objFolder As Object) As String

Dim objTable As Object
Dim objRecordSet As Object
Dim strSQL As String

Set objTable = CreateObject("Redemption.MAPITable")

objTable.Item = g_objRDOSession.GetFolderFromID(objFolder.EntryID,
_
objFolder.Parent.StoreID).Items

strSQL = "SELECT Subject FROM Folder WHERE (Subject '')"

Set objRecordSet = objTable.ExecSQL(strSQL)

ExecuteSQL = "TEST"

End Function

I tried this code with OL 2000/SP3 on a Win 2000/SP4 machine and an
Exchange Server 2003. I also tried it without Exchange and a local pst
file. Seems to be a little bit faster but not significant. On 2002 and
higher it works fine (tried on XP and Vista machines).

So the question is: Is this a known issu from OL/WIN 2000 or may be
the redemption can cause the problem?

Thanks for any hints.

Peter

--
Infos, workshops & software for
Outlook(R):www.outlook-stuff.com-ZitiertenText ausblenden -

- Zitierten Text anzeigen -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -

On 19 Nov., 08:12, Peter Marchert wrote:

OL is installed in the IMO.

Ups! It was in CW-Mode with an pop account. Now I changed to IMO and
it works.

But on the other vpc (Exhange C/W) the problem still exists.

Peter

--
Infos, workshops & software for
Outlook(R): www.outlook-stuff.com

I mean "if":
What if you take the GetDefaultFolder call from the loop?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message
...
Hmm, sorry I don`t know which id you mean.

OL is installed in the IMO.

Peter

On 19 Nov., 07:40, "Dmitry Streblechenko" wrote:
What id you take the GetDefaultFolder call from the loop?
Is Outlook 2000 installed in the C/W or IMO mode (see Help | About)?

Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message

...
Some more information: If I run the code in a loop:

For lngLoop = 1 To 25
Set objFolder =
Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Call ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"
Next lngLoop

It takes for every loop nearly exactly 1 second to finnish.

Peter

On 18 Nov., 18:23, Peter Marchert wrote:



Thanks for your reply, Dmitry.

How many items does that folder contain?

The folder is empty (I`m only testing).

Is Outlook 2000 using online mode?

I´m not sure. Right now I`m testing without an Exchange Server.

Here some results:
1 seconds
0,64 seconds
0,61 seconds
0,54 seconds
0,57 seconds
0,77 seconds

Peter

On 18 Nov., 17:00, "Dmitry Streblechenko" wrote:

How many items does that folder contain? Is Outlook 2000 using online
mode
vs cached in the odler versions of Outlook.
1 second sounds very much reasonable to me...

Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message

...

Hello,

in OL 2000 sql queries are unnormally slow. The following code
sometimes take more then 1 second to finnish (without logon):

Option Explicit

Dim g_objRDOSession As Object

Public Sub Test()

Dim objFolder As Object
Dim sglStart As Single
Dim sglEnd As Single

If g_objRDOSession Is Nothing Then
Set g_objRDOSession = CreateObject("Redemption.RDOSession")
Call g_objRDOSession.Logon("", "", False, False, 0)
End If

Set objFolder =
Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Debug.Print ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"

End Sub

Public Function ExecuteSQL(ByVal objFolder As Object) As String

Dim objTable As Object
Dim objRecordSet As Object
Dim strSQL As String

Set objTable = CreateObject("Redemption.MAPITable")

objTable.Item =
g_objRDOSession.GetFolderFromID(objFolder.EntryID,
_
objFolder.Parent.StoreID).Items

strSQL = "SELECT Subject FROM Folder WHERE (Subject '')"

Set objRecordSet = objTable.ExecSQL(strSQL)

ExecuteSQL = "TEST"

End Function

I tried this code with OL 2000/SP3 on a Win 2000/SP4 machine and an
Exchange Server 2003. I also tried it without Exchange and a local
pst
file. Seems to be a little bit faster but not significant. On 2002
and
higher it works fine (tried on XP and Vista machines).

So the question is: Is this a known issu from OL/WIN 2000 or may be
the redemption can cause the problem?

Thanks for any hints.

Peter

--
Infos, workshops & software for
Outlook(R):www.outlook-stuff.com-ZitiertenText ausblenden -

- Zitierten Text anzeigen -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -

On 19 Nov., 08:26, "Dmitry Streblechenko" wrote:

I mean "if":

:-)

This makes no difference.

Peter

What if you take the GetDefaultFolder call from the loop?

Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message

...
Hmm, sorry I don`t know which id you mean.

OL is installed in the IMO.

Peter

On 19 Nov., 07:40, "Dmitry Streblechenko" wrote:



What id you take the GetDefaultFolder call from the loop?
Is Outlook 2000 installed in the C/W or IMO mode (see Help | About)?

Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message

...
Some more information: If I run the code in a loop:

For lngLoop = 1 To 25
Set objFolder =
Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Call ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"
Next lngLoop

It takes for every loop nearly exactly 1 second to finnish.

Peter

On 18 Nov., 18:23, Peter Marchert wrote:

Thanks for your reply, Dmitry.

How many items does that folder contain?

The folder is empty (I`m only testing).

Is Outlook 2000 using online mode?

I´m not sure. Right now I`m testing without an Exchange Server.

Here some results:
1 seconds
0,64 seconds
0,61 seconds
0,54 seconds
0,57 seconds
0,77 seconds

Peter

On 18 Nov., 17:00, "Dmitry Streblechenko" wrote:

How many items does that folder contain? Is Outlook 2000 using online
mode
vs cached in the odler versions of Outlook.
1 second sounds very much reasonable to me...

Dmitry Streblechenko (MVP)http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message

...

Hello,

in OL 2000 sql queries are unnormally slow. The following code
sometimes take more then 1 second to finnish (without logon):

Option Explicit

Dim g_objRDOSession As Object

Public Sub Test()

Dim objFolder As Object
Dim sglStart As Single
Dim sglEnd As Single

If g_objRDOSession Is Nothing Then
Set g_objRDOSession = CreateObject("Redemption.RDOSession")
Call g_objRDOSession.Logon("", "", False, False, 0)
End If

Set objFolder =
Outlook.Session.GetDefaultFolder(olFolderCalendar)
sglStart = Timer
Debug.Print ExecuteSQL(objFolder)
sglEnd = Timer
Debug.Print "Duration: " & sglEnd - sglStart & " seconds"

End Sub

Public Function ExecuteSQL(ByVal objFolder As Object) As String

Dim objTable As Object
Dim objRecordSet As Object
Dim strSQL As String

Set objTable = CreateObject("Redemption.MAPITable")

objTable.Item =
g_objRDOSession.GetFolderFromID(objFolder.EntryID,
_
objFolder.Parent.StoreID).Items

strSQL = "SELECT Subject FROM Folder WHERE (Subject '')"

Set objRecordSet = objTable.ExecSQL(strSQL)

ExecuteSQL = "TEST"

End Function

I tried this code with OL 2000/SP3 on a Win 2000/SP4 machine and an
Exchange Server 2003. I also tried it without Exchange and a local
pst
file. Seems to be a little bit faster but not significant. On 2002
and
higher it works fine (tried on XP and Vista machines).

So the question is: Is this a known issu from OL/WIN 2000 or may be
the redemption can cause the problem?

Thanks for any hints.

Peter

--
Infos, workshops & software for
Outlook(R):www.outlook-stuff.com-ZitiertenTextausblenden -

- Zitierten Text anzeigen -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -