Error after 380 CreateObject("M API.Session")

[Ottar]

Error: 80040108 after 380 CreateObject("M API.Session")

Function MAPI_Test2()
Dim i As Integer
Dim MySession As MAPI.Session

i = 0
While (i < 2000)
Set MySession = CreateObject("M API.Session")
Debug.Print i
i = i + 1
Set MySession = Nothing
DoEvents
Wend
End Function

Any ideas?

Best regards
Ottar

[Arvin Meyer]

You are Dim'ing MySeesion as MAPI.Session which you cannot do without
setting a reference. If you want to use early binding, set a reference. If
you want to use late binding, change your code to:

Dim MySession As Object

It should run fine, if you do that.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

"Ottar" <la*****@earthl ing.net> wrote in message
news:43******** *************** **@posting.goog le.com...

Error: 80040108 after 380 CreateObject("M API.Session")

Function MAPI_Test2()
Dim i As Integer
Dim MySession As MAPI.Session

i = 0
While (i < 2000)
Set MySession = CreateObject("M API.Session")
Debug.Print i
i = i + 1
Set MySession = Nothing
DoEvents
Wend
End Function

Any ideas?

Best regards
Ottar

[Ottar L. Osen]

No success unfornunatly, tried Dim MySession As Object same thing happens.

The code:

Dim MySession As MAPI.Session
Set MySession = CreateObject("M API.Session")

Is taken directly from Microsoft MSDN articles.

Any other suggestions? Could you try it on your PC? I've tried it on 3 PC's
with same result.

Best regards

Ottar

"Arvin Meyer" <[e-mail]> wrote in message
news:#3******** ******@TK2MSFTN GP09.phx.gbl... You are Dim'ing MySeesion as MAPI.Session which you cannot do without
setting a reference. If you want to use early binding, set a reference. If
you want to use late binding, change your code to:

Dim MySession As Object

It should run fine, if you do that.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

"Ottar" <la*****@earthl ing.net> wrote in message
news:43******** *************** **@posting.goog le.com...

Error: 80040108 after 380 CreateObject("M API.Session")

Function MAPI_Test2()
Dim i As Integer
Dim MySession As MAPI.Session

i = 0
While (i < 2000)
Set MySession = CreateObject("M API.Session")
Debug.Print i
i = i + 1
Set MySession = Nothing
DoEvents
Wend
End Function

Any ideas?

Best regards
Ottar

[Ottar]

No success unfornunatly, tried Dim MySession As Object; same thing happens.

The code:

Dim MySession As MAPI.Session
Set MySession = CreateObject("M API.Session")
Is taken directly from Microsoft MSDN articles.

Any other suggestions? Could you try it on your PC? I've tried it on 3 PC's
with same result.

Best regards

Ottar

"Arvin Meyer" <[e-mail]> wrote in message news:<#3******* *******@TK2MSFT NGP09.phx.gbl>. .. You are Dim'ing MySeesion as MAPI.Session which you cannot do without
setting a reference. If you want to use early binding, set a reference. If
you want to use late binding, change your code to:

Dim MySession As Object

It should run fine, if you do that.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

"Ottar" <la*****@earthl ing.net> wrote in message
news:43******** *************** **@posting.goog le.com...

Error: 80040108 after 380 CreateObject("M API.Session")

Function MAPI_Test2()
Dim i As Integer
Dim MySession As MAPI.Session

i = 0
While (i < 2000)
Set MySession = CreateObject("M API.Session")
Debug.Print i
i = i + 1
Set MySession = Nothing
DoEvents
Wend
End Function

Any ideas?

Best regards
Ottar

[Arvin Meyer]

"Ottar L. Osen" <la************ *@earthling.net > wrote in message
news:O3******** ******@TK2MSFTN GP12.phx.gbl...

No success unfornunatly, tried Dim MySession As Object same thing happens.

The code:

Dim MySession As MAPI.Session
Set MySession = CreateObject("M API.Session")

Is taken directly from Microsoft MSDN articles.

Any other suggestions? Could you try it on your PC? I've tried it on 3

PC's with same result.

I did try it on my PC, and it worked with the one change I showed.

I was able to generate 2000 counts in the debug window. Keep in mind that I
have a GB of memory, so I probably have enough to allocate to all those
instances of MAPI.
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access