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]

If you mean today's date, since you didn't answer my question, you could use:

.Cells(i + 2, "C").Value = date

 

[antokout]

If you mean today's date, since you didn't answer my question, you could use:

.Cells(i + 2, "C").Value = date

no i didnt mean todays date , i mean the date i received this email subject

 

[RoryA]

Then use:

olItem.Receivedtime

instead of Date.

 

[antokout]

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



something like this?

 

[RoryA]

Yes, although you can replace this:

.Range("A1:B1").Value = Array("Count", "Subject")
.Range("C1").Value = Array("Date")

with this:

.Range("A1:C1").Value = Array("Count", "Subject", "Date")

 

[antokout]

Yes, although you can replace this:

.Range("A1:B1").Value = Array("Count", "Subject")
.Range("C1").Value = Array("Date")

with this:

.Range("A1:C1").Value = Array("Count", "Subject", "Date")

yes but with this, it shows error in this line .Cells(i + 2,"C")=olItem.Receivedtime

 

[RoryA]

There is no way that change could affect the line you just posted.

 

[antokout]

Run time error '91'
Object variable or with block variable not set and on debug shows me this line .Cells(i + 2,"C")=olItem.Receivedtime

 

[RoryA]

What do you want the code to do if there are emails with the same subject but different dates?

 

[antokout]

Just to put the date that email received with the same subject . I quess if the counter wrote 4 emails with the same subject then next to the subject put the last email received date