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]

Your code will need a rewrite then. I'll have a look when I have time.

 

[antokout]

Alright then Thanks a lot

 

[RoryA]

Something like this should work:

Sub CountInboxSubjects()

    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim olFldr As Outlook.MAPIFolder
    Dim propertyAccessor As Outlook.propertyAccessor
    Dim olItem As Object
    Dim dic As Dictionary
    Dim i As Long
    Dim Subject As String
    Dim data
    
    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
            Subject = olItem.Subject
            If dic.Exists(Subject) Then
                data = Split(dic(Subject), "|")
                data(0) = data(0) + 1
                If olItem.ReceivedTime > CDate(data(1)) Then data(1) = olItem.ReceivedTime
                dic(Subject) = Join(data, "|")
            Else
                dic(Subject) = 1 & "|" & olItem.ReceivedTime
            End If
        End If
    Next olItem

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

 

[antokout]

Yeah thanks a lot. Sorry for bothering you but do you know how can i do exactly this code for specific subfolders thats inside in my inbox? i should use different modules with the same code but different olFolderInbox?

 

[RoryA]

You could amend the code to take either a folder name, or an actual MAPIFolder object, as an argument and then just call it from several different macros using the folder you want.

 

[antokout]

You could amend the code to take either a folder name, or an actual MAPIFolder object, as an argument and then just call it from several different macros using the folder you want.

and this could work if i wanted to create different worksheets for each subfolder of my inbox?

 

[RoryA]

You'd need to amend it to either create a new sheet each time, or have your other macros create a new sheet and then call that code.

 

[antokout]

and which line i should change only to receive specific's inbox folder emails ?