Hi,
I have a Word VBA macro that lists all the Outlook Contact folders in a
UserForm, and then lets the end user pick contacts from one of the folders to
place in Word documents.

It's working swimmingly on many many computers. However. Recently on two
computers I get the following error when it tries to get the Outlook contact
folder names. Ironically, one person getting the error is the administrator
who has the most "rights" of all. (I am told).

Error message:
Run-time error -1767636707 (96a4o11d)':
The Information Store could not be opened.

Below is the code that generates the error. Specifically, I believe it's
the middle line where I get the error, but I'm no longer at that machine and
not su

For Each fFolder In oNspc.Folders
If fFolder.Folders.Count 0 Then
For Each subFolder In fFolder.Folders

The user has a personal contacts folder and access to a public contacts
folder.
Any ideas on why this is happening? ANd how I can get that list of folders?!

Thanks so much.
Laura

I think, it would be helpful for you to know what Store it is.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am Tue, 13 Mar 2007 22:09:00 -0700 schrieb Laura:

Hi,
I have a Word VBA macro that lists all the Outlook Contact folders in a
UserForm, and then lets the end user pick contacts from one of the folders
to
place in Word documents.

It's working swimmingly on many many computers. However. Recently on two
computers I get the following error when it tries to get the Outlook
contact
folder names. Ironically, one person getting the error is the
administrator
who has the most "rights" of all. (I am told).

Error message:
Run-time error -1767636707 (96a4o11d)':
The Information Store could not be opened.

Below is the code that generates the error. Specifically, I believe it's
the middle line where I get the error, but I'm no longer at that machine
and
not su

For Each fFolder In oNspc.Folders
If fFolder.Folders.Count 0 Then
For Each subFolder In fFolder.Folders

The user has a personal contacts folder and access to a public contacts
folder.
Any ideas on why this is happening? ANd how I can get that list of
folders?!

Thanks so much.
Laura

I guess I don't know enough about Outlook to even know what that means!? I
got the code from the help of other programmers.

These users have Outlook and Word 2003 and are using MS Exchange with their
Outlook. The macro opens outlook and attempts to look through the list of
folders, but gets the error as soon as it tries to look in the folders
collection. This macro is working on hundreds of computers at different
clients of mine, but has this error on two computers at this one client site,
and had it on one computer at another client site in the past.

Would it help if I posted more of the code I am using? I don't even know
what a "Store" is...

"Michael Bauer [MVP - Outlook]" wrote:



I think, it would be helpful for you to know what Store it is.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am Tue, 13 Mar 2007 22:09:00 -0700 schrieb Laura:

Hi,
I have a Word VBA macro that lists all the Outlook Contact folders in a
UserForm, and then lets the end user pick contacts from one of the folders
to
place in Word documents.

It's working swimmingly on many many computers. However. Recently on two
computers I get the following error when it tries to get the Outlook
contact
folder names. Ironically, one person getting the error is the
administrator
who has the most "rights" of all. (I am told).

Error message:
Run-time error -1767636707 (96a4o11d)':
The Information Store could not be opened.

Below is the code that generates the error. Specifically, I believe it's
the middle line where I get the error, but I'm no longer at that machine
and
not su

For Each fFolder In oNspc.Folders
If fFolder.Folders.Count 0 Then
For Each subFolder In fFolder.Folders

The user has a personal contacts folder and access to a public contacts
folder.
Any ideas on why this is happening? ANd how I can get that list of
folders?!

Thanks so much.
Laura

A store is a PST file for instance, or your Exchange mailbox etc. All of the
Folder objects in Namespace.Folders are stores.

Does the error occur for every Store on that computers or just for a
specific one?

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Quick-Cats - The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am Thu, 15 Mar 2007 00:36:08 -0700 schrieb Laura:

I guess I don't know enough about Outlook to even know what that means!?
I
got the code from the help of other programmers.

These users have Outlook and Word 2003 and are using MS Exchange with
their
Outlook. The macro opens outlook and attempts to look through the list of
folders, but gets the error as soon as it tries to look in the folders
collection. This macro is working on hundreds of computers at different
clients of mine, but has this error on two computers at this one client
site,
and had it on one computer at another client site in the past.

Would it help if I posted more of the code I am using? I don't even know
what a "Store" is...

"Michael Bauer [MVP - Outlook]" wrote:



I think, it would be helpful for you to know what Store it is.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am Tue, 13 Mar 2007 22:09:00 -0700 schrieb Laura:

Hi,
I have a Word VBA macro that lists all the Outlook Contact folders in a
UserForm, and then lets the end user pick contacts from one of the
folders
to
place in Word documents.

It's working swimmingly on many many computers. However. Recently on
two
computers I get the following error when it tries to get the Outlook
contact
folder names. Ironically, one person getting the error is the
administrator
who has the most "rights" of all. (I am told).

Error message:
Run-time error -1767636707 (96a4o11d)':
The Information Store could not be opened.

Below is the code that generates the error. Specifically, I believe
it's
the middle line where I get the error, but I'm no longer at that machine
and
not su

For Each fFolder In oNspc.Folders
If fFolder.Folders.Count 0 Then
For Each subFolder In fFolder.Folders

The user has a personal contacts folder and access to a public contacts
folder.
Any ideas on why this is happening? ANd how I can get that list of
folders?!

Thanks so much.
Laura

Hi,
Thanks.

First -- I think the issue is resolved.

They are using MS Exchange and this user had some PST files opening too.
They also had a custom contact form that everyone on their network could open
except this one person.

When stepping through the code, the error would occur as soon as it said
(paraphrasing)

"For each folder in namespace.folders"

(so I guess that was the store) I don't know if it could not look in the
folders period, or if the first folder it saw caused the error.

Their network guy messed around with her copy of outlook for the longest
time to get the contact form to work and when he was done, my macro also
worked. Usually. Sometimes it got an error that said "You do not have
permissions to access this..." so I added "On error resume next" prior to
that. I know that's considered sloppy but I specifically read that as a fix
for the intermittent "permissions" error -- and it DID seem to work!

I did find another users mailbox listed on her folder tree that when I
clicked on it, I received and error in Outlook ('cause it no longer exists)
but that didn't seem to be the cause of the problem. (I removed it anyhow.)

Someone else told me it might be a corrupt profile.

Thanks for coming back to my post to answer my (rather lame) "what's a
store?" question!


"Michael Bauer [MVP - Outlook]" wrote:



A store is a PST file for instance, or your Exchange mailbox etc. All of the
Folder objects in Namespace.Folders are stores.

Does the error occur for every Store on that computers or just for a
specific one?

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Quick-Cats - The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am Thu, 15 Mar 2007 00:36:08 -0700 schrieb Laura:

I guess I don't know enough about Outlook to even know what that means!?
I
got the code from the help of other programmers.

These users have Outlook and Word 2003 and are using MS Exchange with
their
Outlook. The macro opens outlook and attempts to look through the list of
folders, but gets the error as soon as it tries to look in the folders
collection. This macro is working on hundreds of computers at different
clients of mine, but has this error on two computers at this one client
site,
and had it on one computer at another client site in the past.

Would it help if I posted more of the code I am using? I don't even know
what a "Store" is...

"Michael Bauer [MVP - Outlook]" wrote:



I think, it would be helpful for you to know what Store it is.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am Tue, 13 Mar 2007 22:09:00 -0700 schrieb Laura:

Hi,
I have a Word VBA macro that lists all the Outlook Contact folders in a
UserForm, and then lets the end user pick contacts from one of the
folders
to
place in Word documents.

It's working swimmingly on many many computers. However. Recently on
two
computers I get the following error when it tries to get the Outlook
contact
folder names. Ironically, one person getting the error is the
administrator
who has the most "rights" of all. (I am told).

Error message:
Run-time error -1767636707 (96a4o11d)':
The Information Store could not be opened.

Below is the code that generates the error. Specifically, I believe
it's
the middle line where I get the error, but I'm no longer at that machine
and
not su

For Each fFolder In oNspc.Folders
If fFolder.Folders.Count 0 Then
For Each subFolder In fFolder.Folders

The user has a personal contacts folder and access to a public contacts
folder.
Any ideas on why this is happening? ANd how I can get that list of
folders?!

Thanks so much.
Laura