G
Gordon Prince, MCP
I can't get the following to work. I've looked at the online help as well as the newsgroup history and it appears other people are using this. What am I doing wrong?
--------------------------------------------------------------------------------
Set olExplorer = olContactsFolder.GetExplorer(OlFolderDisplayMode.olFolderDisplayNoNavigation)
With olExplorer
.CurrentView = strViewName
If .Selection.Count = 0 Then
.Close
Else
.Activate
End If
End With
--------------------------------------------------------------------------------
Set olExplorer = olContactsFolder.GetExplorer(OlFolderDisplayMode.olFolderDisplayNoNavigation)
With olExplorer
.CurrentView = strViewName
If .Selection.Count = 0 Then
.Close
Else
.Activate
End If
End With