Search code examples
excelvbaoutlookoutlook-2010

Outlook MAPI folders not working in 2013, were as the same code is working good in 2007 version

I am using outlook 2013 and the below code gives me the error as given in the below screen shot.

Sub Testing()
    Dim olApp   As Outlook.Application
    Dim olNS    As Outlook.Namespace
    Dim olFol   As Outlook.Folder
    Dim abc
    Set olApp = New Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")

    'Set olFol = olNS.PickFolder

    Set abc = olNS.Folders.Item("Mailbox@domain.com")



End Sub

Error details is given below.

Run Time error '-2147221163 (80040155)'

Method 'Folders' of object '_NameSpace' failed

I have tried a lot of combination. this works in 2007 and below version.

Solution

  • The error is REGDB_E_IIDNOTREG.

    Is this a click-to-run Outlook 2013 installation?