Runtime error 91 on Outlook.Application.ActiveInspector

[ArrayON_56]

I would like to create a VBA script in excel that analyzes Subject of currently viewed mail in Outlook, parse it and put some info from it to excel cell.
However when I want to read the subject from Outlook by Outlook.Application.ActiveInspector, it gives me runtime error 91 to line "Set Inspector = OutlookApp.ActiveInspector" - Object variable or With block variable not set.
But I have initialised the variable it and I am trying to set it to be ActiveInspector of Outlook.

Here is my code:

Sub TestFunction()
Dim OutlookApp As Outlook.Application
Dim Inspector As Outlook.Inspector 'I initialise the variable here
Dim Item As Outlook.Inspector
Set Inspector = OutlookApp.ActiveInspector 'This is the error 91 line
Set Item = Inspector.CurrentItem
End Sub

What am I doing wrong?
Thanks in advance

 

[ArrayON_56]

I tried both your codes and the error about non-email item was really triggered.

But I have outlook open with a message selected and opened.

Just in case I tried your codes both in Excel and Outlook, with the same result.
What am I doing wrong?

 

[ZVI]

Hi,

Thank you for the testing details.

Well, first try to test the code in Outlook but replace the Set OutlookApp = GetObject(, "Outlook.Application")
with Set OutlookApp = Application

If it works then the issue is security/privilege for the GetObject().
To resolve this issue, try to run both Excel and Outlook as administrator.

 

[ArrayON_56]

Still doesn't work. It raises the same error. I changed OutlookApp value to Application and ran Outlook as Administrator.
Just in case i'm sending the code:

Sub TestFunction()
  Dim OutlookApp As Outlook.Application
  Dim Inspector As Outlook.Inspector
  Dim Item As Outlook.MailItem
  Set OutlookApp = Application
  Set Inspector = OutlookApp.ActiveInspector
  On Error Resume Next
  If Inspector.CurrentItem.Class <> olMail Then
    MsgBox "Current Iten is not open email", vbExclamation, "Exit"
    Exit Sub
  End If
  On Error GoTo 0
  Set Item = Inspector.CurrentItem
  Debug.Print Item.Subject
End Sub

PS: I was running the code in Outlook, not in Excel.

 

[ZVI]

Test this code in Outlook:

Sub TestFunction1()
  Dim OutlookApp As Outlook.Application
  Dim Inspector As Outlook.Inspector
  Dim Item As Outlook.MailItem
  Set OutlookApp = Application
  Set Inspector = OutlookApp.ActiveInspector
  'On Error Resume Next
  If Inspector.CurrentItem.Class <> olMail Then
    MsgBox "Current Iten is not open email, its class = " & Inspector.CurrentItem.Class, vbExclamation, "Exit"
    Exit Sub
  End If
  'On Error GoTo 0
  Set Item = Inspector.CurrentItem
  MsgBox "Subject: " & vbLf & Item.Subject
End Sub

If it shows the class number of the open object, then select olMail , press F2 and find that number in the shown list to understand that class name.