Wrox Home  
Search P2P Archive for: Go

  Return to Index  

asp_cdo thread: Error, please help me!!!


Message #1 by "Andre da Cunha Peixoto Xavier" <xavier@a...> on Thu, 5 Oct 2000 00:20:05 +0100
My Intranet is in the same server of Exchange server.

If I use this code everything goes ok, only one user get's error.

He receceive error in the line 26.

If I copy my Intranet to other server, I can logon and my code stop in the

line 26.

Please help me...



	strProfileInfo = "EXCHANGE" + vbLF + Usuario

  

    'Estabelece a sessao

    Set objSession = CreateObject("MAPI.Session")

    objSession.Logon "", "", False, True, 0, True, strProfileInfo  

    

	Set objInfoStores = objSession.InfoStores



	For i = 1 To objInfoStores.Count

		If objInfoStores.Item(i)= "Public Folders" Then

			Set objInfoStore=objInfoStores.Item(i)

			Exit For	

		End If

	Next



	bstrPublicRootID = objInfoStore.Fields.Item( CDO_ROOT_ID ).Value

<-- line 26

	Set objTopFolder = objSession.GetFolder(bstrPublicRootID,

objInfoStore.ID)



	Set objFolders = objTopFolder.Folders

Message #2 by "Anand" <anand@s...> on Thu, 5 Oct 2000 15:22:59 +0800
Well, Check that the user you are using for creating the MAPI session(Based

on the profile information) have sufficient rights to the top folder.



Reg

</Anand>

--



-----Original Message-----

From: Andre da Cunha Peixoto Xavier [mailto:xavier@a...]

Sent: Thursday, October 05, 2000 7:20 AM

To: ASP CDO

Subject: [asp_cdo] Error, please help me!!!





My Intranet is in the same server of Exchange server.

If I use this code everything goes ok, only one user get's error.

He receceive error in the line 26.

If I copy my Intranet to other server, I can logon and my code stop in the

line 26.

Please help me...



	strProfileInfo = "EXCHANGE" + vbLF + Usuario



    'Estabelece a sessao

    Set objSession = CreateObject("MAPI.Session")

    objSession.Logon "", "", False, True, 0, True, strProfileInfo



	Set objInfoStores = objSession.InfoStores



	For i = 1 To objInfoStores.Count

		If objInfoStores.Item(i)= "Public Folders" Then

			Set objInfoStore=objInfoStores.Item(i)

			Exit For

		End If

	Next



	bstrPublicRootID = objInfoStore.Fields.Item( CDO_ROOT_ID ).Value

<-- line 26

	Set objTopFolder = objSession.GetFolder(bstrPublicRootID,

objInfoStore.ID)



	Set objFolders = objTopFolder.Folders





Message #3 by =?iso-8859-1?Q?Andr=E9_da_Cunha_Peixoto_Xavier?=-- <Xavier@a...> on Thu, 5 Oct 2000 09:44:56 -0300
This message is in MIME format. Since your mail reader does not understand

this format, some or all of this message may not be legible.



------_=_NextPart_001_01C02ECA.10C2FEA0

Content-Type: text/plain;

	charset="iso-8859-1"



Every one have. But I only change the web server. The exchange server is the

same, but the web server is not in the same server that the Exchange like it

was in the past when everything is ok.

I didn't change anything in the code and in the permission.



What I have done wrong?



-----Original Message-----

From: Anand [mailto:anand@s...]

Sent: quinta-feira, 5 de outubro de 2000 04:23

To: ASP CDO

Subject: [asp_cdo] RE: Error, please help me!!!





Well, Check that the user you are using for creating the MAPI session(Based

on the profile information) have sufficient rights to the top folder.



Reg

</Anand>

--



-----Original Message-----

From: Andre da Cunha Peixoto Xavier [mailto:xavier@a...]

Sent: Thursday, October 05, 2000 7:20 AM

To: ASP CDO

Subject: [asp_cdo] Error, please help me!!!





My Intranet is in the same server of Exchange server.

If I use this code everything goes ok, only one user get's error.

He receceive error in the line 26.

If I copy my Intranet to other server, I can logon and my code stop in the

line 26.

Please help me...



	strProfileInfo = "EXCHANGE" + vbLF + Usuario



    'Estabelece a sessao

    Set objSession = CreateObject("MAPI.Session")

    objSession.Logon "", "", False, True, 0, True, strProfileInfo



	Set objInfoStores = objSession.InfoStores



	For i = 1 To objInfoStores.Count

		If objInfoStores.Item(i)= "Public Folders" Then

			Set objInfoStore=objInfoStores.Item(i)

			Exit For

		End If

	Next



	bstrPublicRootID = objInfoStore.Fields.Item( CDO_ROOT_ID ).Value

<-- line 26

	Set objTopFolder = objSession.GetFolder(bstrPublicRootID,

objInfoStore.ID)



	Set objFolders = objTopFolder.Folders







---

To place your message here, or to sponsor this list, please e-mail

mailto:p2pinfo@w...?subject=MediaPack, remembering to provide contact

details for yourself. We will e-mail you a Media Pack within 24 hours.



You are currently subscribed to asp_cdo 


---




Message #4 by "Anand" <anand@s...> on Fri, 6 Oct 2000 09:08:08 +0800
This is a multi-part message in MIME format.



------=_NextPart_000_000C_01C02F74.F1FF5C10

Content-Type: text/plain;

	charset="iso-8859-1"

Content-Transfer-Encoding: 8bit



RE: [asp_cdo] RE: Error, please help me!!!Well, as far as this scenario is

concerned, MAPI Session is created on the local web server. So check that

the web server has log on locally rights on the exchange server.

  -----Original Message-----

  From: André da Cunha Peixoto Xavier [mailto:Xavier@a...]

  Sent: Thursday, October 05, 2000 8:45 PM

  To: ASP CDO

  Subject: [asp_cdo] RE: Error, please help me!!!





  Every one have. But I only change the web server. The exchange server is

the same, but the web server is not in the same server that the Exchange

like it was in the past when everything is ok.



  I didn't change anything in the code and in the permission.



  What I have done wrong?



  -----Original Message-----

  From: Anand [mailto:anand@s...]

  Sent: quinta-feira, 5 de outubro de 2000 04:23

  To: ASP CDO

  Subject: [asp_cdo] RE: Error, please help me!!!







  Well, Check that the user you are using for creating the MAPI

session(Based

  on the profile information) have sufficient rights to the top folder.



  Reg

  </Anand>

  --



  -----Original Message-----

  From: Andre da Cunha Peixoto Xavier [mailto:xavier@a...]

  Sent: Thursday, October 05, 2000 7:20 AM

  To: ASP CDO

  Subject: [asp_cdo] Error, please help me!!!







  My Intranet is in the same server of Exchange server.

  If I use this code everything goes ok, only one user get's error.

  He receceive error in the line 26.

  If I copy my Intranet to other server, I can logon and my code stop in the

  line 26.

  Please help me...



          strProfileInfo = "EXCHANGE" + vbLF + Usuario



      'Estabelece a sessao

      Set objSession = CreateObject("MAPI.Session")

      objSession.Logon "", "", False, True, 0, True, strProfileInfo



          Set objInfoStores = objSession.InfoStores



          For i = 1 To objInfoStores.Count

                  If objInfoStores.Item(i)= "Public Folders" Then

                          Set objInfoStore=objInfoStores.Item(i)

                          Exit For

                  End If

          Next



          bstrPublicRootID = objInfoStore.Fields.Item( CDO_ROOT_ID ).Value

  <-- line 26

          Set objTopFolder = objSession.GetFolder(bstrPublicRootID,

  objInfoStore.ID)



          Set objFolders = objTopFolder.Folders









  ---

  To place your message here, or to sponsor this list, please e-mail

mailto:p2pinfo@w...?subject=MediaPack, remembering to provide contact

details for yourself. We will e-mail you a Media Pack within 24 hours.



  You are currently subscribed to asp_cdo


  ---



  ---

  To place your message here, or to sponsor this list, please e-mail

mailto:p2pinfo@w...?subject=MediaPack, remembering to provide contact

details for yourself. We will e-mail you a Media Pack within 24 hours.



  You are currently subscribed to asp_cdo


  ---






Message #5 by =?iso-8859-1?Q?Andr=E9_da_Cunha_Peixoto_Xavier?=-- <Xavier@a...> on Mon, 9 Oct 2000 14:19:01 -0300
This message is in MIME format. Since your mail reader does not understand

this format, some or all of this message may not be legible.



------_=_NextPart_001_01C03215.0477B570

Content-Type: text/plain;

	charset="iso-8859-1"

Content-Transfer-Encoding: quoted-printable



Yes, I have checked and it has locally rights.

Check the error that that user gets:



Collaboration Data Objects error '000003f6'



[Collaboration Data Objects - [E_OUTOFMEMORY(8007000E)]]







-----Original Message-----

From: Anand [mailto:anand@s...]

Sent: quinta-feira, 5 de outubro de 2000 22:08

To: ASP CDO

Subject: [asp_cdo] RE: Error, please help me!!!





Well, as far as this scenario is concerned, MAPI Session is created on 

the

local web server. So check that the web server has log on locally 

rights on

the exchange server.



-----Original Message-----

From: Andr=E9 da Cunha Peixoto Xavier [mailto:Xavier@a...]

Sent: Thursday, October 05, 2000 8:45 PM

To: ASP CDO

Subject: [asp_cdo] RE: Error, please help me!!!







Every one have. But I only change the web server. The exchange server 

is the

same, but the web server is not in the same server that the Exchange 

like it

was in the past when everything is ok.



I didn't change anything in the code and in the permission.



What I have done wrong?



-----Original Message-----

From: Anand [ mailto:anand@s... <mailto:anand@s...> ] 



Sent: quinta-feira, 5 de outubro de 2000 04:23

To: ASP CDO

Subject: [asp_cdo] RE: Error, please help me!!!





Well, Check that the user you are using for creating the MAPI 

session(Based

on the profile information) have sufficient rights to the top folder.



Reg

</Anand>

--



-----Original Message-----

From: Andre da Cunha Peixoto Xavier [ mailto:xavier@a...

<mailto:xavier@a...> ]

Sent: Thursday, October 05, 2000 7:20 AM

To: ASP CDO

Subject: [asp_cdo] Error, please help me!!!





My Intranet is in the same server of Exchange server.

If I use this code everything goes ok, only one user get's error.

He receceive error in the line 26.

If I copy my Intranet to other server, I can logon and my code stop in 

the

line 26.

Please help me...



        strProfileInfo =3D "EXCHANGE" + vbLF + Usuario



    'Estabelece a sessao

    Set objSession =3D CreateObject("MAPI.Session")

    objSession.Logon "", "", False, True, 0, True, strProfileInfo



        Set objInfoStores =3D objSession.InfoStores



        For i =3D 1 To objInfoStores.Count

                If objInfoStores.Item(i)=3D "Public Folders" Then

                        Set objInfoStore=3DobjInfoStores.Item(i)

                        Exit For

                End If

        Next



        bstrPublicRootID =3D objInfoStore.Fields.Item( CDO_ROOT_ID 

).Value

<-- line 26

        Set objTopFolder =3D objSession.GetFolder(bstrPublicRootID,

objInfoStore.ID)



        Set objFolders =3D objTopFolder.Folders







---

To place your message here, or to sponsor this list, please e-mail

mailto:p2pinfo@w...?subject=3DMediaPack

<mailto:p2pinfo@w...?subject=3DMediaPack> , remembering to provide 

contact

details for yourself. We will e-mail you a Media Pack within 24 hours.



You are currently subscribed to asp_cdo


---



---

To place your message here, or to sponsor this list, please e-mail

mailto:p2pinfo@w...?subject=3DMediaPack, remembering to provide 

contact

details for yourself. We will e-mail you a Media Pack within 24 hours.



You are currently subscribed to asp_cdo


---



---

To place your message here, or to sponsor this list, please e-mail

mailto:p2pinfo@w...?subject=3DMediaPack, remembering to provide 

contact

details for yourself. We will e-mail you a Media Pack within 24 hours.



You are currently subscribed to asp_cdo


---







  Return to Index