Problem Checking the available stores in my Inbox (Outlook VBA)

su_80 1

Hello, Triying to use a macro in a shared store in Outlook, I received this error:

"Run-time error '-1698234242 (9ac7007e)' Automation Error.

Then I did a "test" for Check the available stores in my Inbox but stopped in "Next oStore" and I receive this error (similar to the previous):

Run-time error -941162370 (c7e7007e) Automation Error.

Sub Test()
Dim myNameSpace As Outlook.NameSpace
Dim oStore As Outlook.Store
Set myNameSpace = Application.GetNamespace("MAPI")
For Each oStore In myNameSpace.Stores
Debug.Print oStore.DisplayName
Next oStore
End Sub

I don't know where is the problem... I already have Stores in my Inbox. The error is not in the code. Someone for helping me? Thanks in advance.

JeffYang-MSFT 6,241 Reputation points Microsoft Vendor

2021-01-06T02:01:59.83+00:00

Hi @su_80 ,
Seems that you encountered Outlook develop issues, right? Please kindly understand that Outlook tag here we mainly focus on general issues about Outlook desktop client and know little about develop. So, in order to better solve your issue, I added more dev-related tags to your issue so that other partners who read the forums regularly can either share their knowledge or learn from your interaction. Thanks for your understanding and hope your question will be resolved soon.
su_80 1 Reputation point

2021-01-07T10:17:26.05+00:00

Thanks Jeff. I've added more tags. This is part of the code (it's too long). I was using before I did the test for checking the available stores, It's stopped in Next oStore. I can't find a solution.

Public Sub NewInbox_Su()
Dim myNameSpace As Outlook.NameSpace
Dim oStore As Outlook.Store
Dim myInbox As Outlook.Folder
Dim myItem As MailItem
Dim lngCount As Long
Set myNameSpace = Application.GetNamespace("MAPI")
For Each oStore In myNameSpace.Stores
If oStore.DisplayName = "WORKGROUP" Then
Set myInbox = oStore.GetRootFolder.folders("Inbox")
MsgBox myInbox.UnReadItemCount
...
DoEvents
Next lngCount
End If
Exit For
End If
Next oStore
Set oStore = Nothing
Set myNameSpace = Nothing
Set myInbox = Nothing
Set myItem = Nothing
End Sub

1 answer

Tom van Stiphout 1,696 Reputation points MVP

2021-01-09T20:47:54.227+00:00

The help page on Store object says you should check using IsOpen before accessing a store. Try that.

Your simple code works just fine for me.
Please sign in to rate this answer.
Jade Liang-MSFT 9,976 Reputation points Microsoft Employee

2021-01-15T10:32:59.673+00:00

Hi @su_80 ,
Did your issue has any update after so long? Have you tried the suggestion as TvanStiphout mentioned?
If your issue has any update, please feel free to post back.
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.

Share via

Problem Checking the available stores in my Inbox (Outlook VBA)

1 answer

Your answer