Comparing 2 objects

[utahjzz98]

I have a program that goes through an Outlook folder and counts all of the email items in that folder and seperates it by date. However, I am running into type mismatch error if the program runs across a meeting request or any other object in the folder that's not a mail item. I tried using the CType function to compare the objects, but I wasn't able to get it to work (guessing it's not supported in VBA?). Any ideas for how to compare each item in the folder and determine if it's an email item, and if not disregard it?

For Each x In objFolder.Items
  Set objEmails(i) = x
  tmpDate = DateValue(objEmails(i).ReceivedTime)
  intDay = Day(tmpDate)
  
  If intDay >= 1 And intDay <= 31 Then
    If g_intMonth = Month(objEmails(i).ReceivedTime) And
      g_intYear = Year(objEmails(i).ReceivedTime) Then
      intCount(intDay) = intCount(intDay) + 1
    End If
  End If
Next

 

[fumei]

Have you tried using MailItem (rather than Item) to set items explicitly as mail items?

Gerry
See my Paintings and Sculpture

 

[PHV]

Test the x.Class property.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[TonyJollans]

Hi utahjzz98,

The usual way to check the type of an object is ..

[blue]If TypeOf x Is MailItem Then[/blue]

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[

 

[utahjzz98]

TonyJollans,

Thanks a lot, that's what I was looking for.

 

[fumei]

Is that not what I suggested...using MAILITEM?

Gerry
See my Paintings and Sculpture

 

[utahjzz98]

I didn't post that part of my code, but I am filling a collection with mailitem objects. The problem was when I went iterated through the folders I got a type mismatch error when it came across something that wasn't a mailitem. i.e. A meeting request. What I needed was something to determine what type of object I was currently looking at so I could determine if it was a mailitem or some other object. Which is what the TypeOf function helped me accomplish. Below is how my code looks now and it's working properly.

For Each x In objFolder.Items
  If TypeOf x Is MailItem Then
    Set objEmails(i) = x
    tmpDate = DateValue(objEmails(i).ReceivedTime)
    intDay = Day(tmpDate)
             
    If intDay >= 1 And intDay <= 31 Then
      If g_intMonth = Month(objEmails(i).ReceivedTime) And g_intYear = Year(objEmails(i).ReceivedTime) Then
        intCount(intDay) = intCount(intDay) + 1
      End If
    End If         
 End If
Next