Error: class does not support Automation or does not support expected interface

[antokout]

Guys I need help. I run a code on VBA in my work , and on some pc i could run it and on other i couldnt. I read some answers for that error and they said that maybe its service pack for windows i check it and it wasnt . Can someone help me?



Thank you

 

[RoryA]

Can someone help me?

Maybe, if you post the code that causes the error.

 

[antokout]

Maybe, if you post the code that causes the error.

Sub CountInboxSubjects()

    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim olFldr As Outlook.MAPIFolder
    Dim olMailItem As Outlook.MailItem
    Dim propertyAccessor As Outlook.propertyAccessor
    Dim olItem As Object
    Dim dic As Dictionary
    Dim i As Long
    Dim Subject As String
    
    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    Set olFldr = olNs.GetDefaultFolder(olFolderInbox)
    Set dic = New Dictionary
    
    For Each olItem In olFldr.Items
        If olItem.Class = olMail Then
            Set propertyAccessor = olItem.propertyAccessor
            Subject = propertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x0E1D001E")
            If dic.Exists(Subject) Then dic(Subject) = dic(Subject) + 1 Else dic(Subject) = 1
        End If
    Next olItem

    With ActiveSheet
        .Columns("A:B").Clear
        .Range("A1:B1").Value = Array("Count", "Subject")
        For i = 0 To dic.Count - 1
            .Cells(i + 2, "A") = dic.Items()(i)
            .Cells(i + 2, "B") = dic.Keys()(i)
        Next
    End With
End Sub

 

[antokout]

Maybe, if you post the code that causes the error.

But i dont think its only about the code because in mine pc and 2-3 others it works

 

[RoryA]

Which line causes the error and do all the computers have the exact same version of Office and Windows? (If you're actually retrieving the Subject, you don't need a PropertyAccessor as Subject is an exposed property of a MailItem.)

 

[antokout]

Which line causes the error and do all the computers have the exact same version of Office and Windows? (If you're actually retrieving the Subject, you don't need a PropertyAccessor as Subject is an exposed property of a MailItem.)

All computers have the same version office and windows. Line of propertyAccessor causes the error and how i could do this subject counting without propertyaccessor?

 

[RoryA]

Just replace this:

Set propertyAccessor = olItem.propertyAccessor
            Subject = propertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x0E1D001E")

with this:

            Subject = olItem.Subject

 

[antokout]

Yeah thanks mate... i quess propertyaccessor was the problem do you know how i could put and date on this code?

 

[RoryA]

What date?

 

[antokout]

What date?

I want to put and date with subject and counting in this code to show on 1st list count 2nd subject and on 3rd list show Date for example


count subject Date
3 Facebook 24/9/2018