' Since Users can create new folders of certain types, you don't want to rely on the Folder ' name to determine the folder type. Instead, you should determine the "DefaultItemType" ' property of the folder selected -- to determine what kind of folder it is.
Dim olApp as New Outlook.Application
Set myContactExpl = olApp.ActiveExplorer' Use Explorer object to read screen If myContactExpl.CurrentFolder.DefaultItemType = olMailItem Then
' you've identified a Mail folder ' do whatever End If
' Other choices are: ' olContactItem ' olAppointmentItem ' olNoteItem ' olPostItem ' olDistributionListItem ' olTaskItem ' olJournalItem