Testing DataTypes

[InvisibleDuncan]

Is there a function for testing the actual datatype of an object? I have an application that should run a certain procedure whenever an Outlook.MailItem is opened, by passing the Inspector.CurrentItem into the procedure as a parameter. However, if the user actually opened a read-receipt, this causes an error because the Inspector.CurrentItem is now an Outlook.ReportItem instead.

Is there a way of saying something like:

If DataType(Inspector.CurrentItem) = Outlook.MailItem Then

TIA...

[plenderj]

Well there's the TypeName() function.
But I dont know if it'll work with these sorts of types.

If it doesnt, then you could infer what sort of data type it is.
Something like :

Private Function GetDataType(myObj As Variant) As String
    'check the different properties of the control and infer what it is
End Function

[InvisibleDuncan]

Jamie,

Didn't know about the TypeName function, but it works a treat. Thanks.

[plenderj]

Or you could try passing the variable to a set of functions, each one of which is expecting a specific data type.

You catch the errors, and check which one didnt throw an error.

Then you know what type it is.
I think this is how I would do it.