Проверка открытия определенного окна Outlook 2000. - VB

Формулировка задачи:

Privet, esli kto znaet, ochen' proshu ne plenitsya i cherknut' paru strok. Problema sleduushaya: Outlook 2000, sleva yarliki: papka 'vhodyashie', 'kalendar'', i t.p. Est' tam yarlik 'Outlook segodnya' (vo vsyakom sluchae takoy doslovniy perevod nemezkoy versii), kotoriy otkrivaut webstranichku s linkami na drugie papki 'vhodyashie', 'uhodyashie' i t.p. Kak ya mogu v svoem module na VB proverit' ne otkrita li imenno eta straniza? Toest' kogda naprimer otkrita papka 'Contacts' ya proveryau myOutlook.ActiveExplorer.CurrentFolder.DefoultItemType i poluchau znachenie, a po nemu opredelya kto eto (est' konstanti), no esli otkrita eta grebannaya stranichka, otvet viglyadit tak, buddto eto papka s pismami. Eto ochen' vagno, esli kto-to znaet, budu ochen' blagodaren. I krome togo, tam mogno eshe obichnie dokumenti i papki otrivat' kak v 'Explorer'. Kak mne opredelit', chto imenno eta hren' otkrita. Spasibo. Roman Soobshenie nomer 777

Решение задачи: «Проверка открытия определенного окна Outlook 2000.»

textual
                            Листинг программы 
                        

                            'esli papka pustaya
If objOutlook.ActiveExplorer.CurrentFolder.Items.Count < 1 Then
        On Error GoTo myErr
        If Len  (objOutlook.ActiveExplorer.CurrentFolder.Description)> -1 Then
            MsgBox 'eto papka Outlook segodnya'  'RomaTemp
            Exit Sub
        End If
myErr:
        MsgBox 'This folder is empty'  'RomaTemp
        Exit Sub
End If
                        