Gdzie jestem

Pytania, problemy, uwagi związane ze starszymi wersjami Microsoft Outlook 2003, 2002 (XP), 2000, 98

Moderator: Moderatorzy

Gdzie jestem

Postprzez OShon » N 09.03.2008 11:47

Witaj Michu
Mam prośbę.

Potrzebuje automatycznie przechwytywać jako parametr, nazwę folderu w którym sie znajdujemy, tak aby przypuśćmy otrzymać Msgbox'a z jego nazwą;
oczywiście po przejściu na inny folder, kalendarz lub np kontakty automatycznie otrzymać nazwę tego folderu w następnym Msgboxie.
Obrazek
Oskar Shon - MVP Office Dev. 11/20, 3x MCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 10448
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Projekt autorski VBATools.pl

Postprzez michu » Pn 10.03.2008 08:47

Skorzystaj ze zdarzenia FolderSwitch obiektu Explorer. Przykład z MSDN wygląda tak:

Kod: Zaznacz cały
Public WithEvents myOlExp As Outlook.Explorer

Public Sub Application_Initialize()
    Set myOlExp = Application.ActiveExplorer
End Sub

Private Sub myOlExp_FolderSwitch()
    Select Case myOlExp.CurrentFolder.Name
        Case "Inbox"
            myOlExp.CurrentView = "Messages"
        Case Else
    End Select
End Sub
Pozdrawiam
Michu
michu
 
Posty: 4190
Dołączył(a): N 05.02.2006 17:49
Lokalizacja: Jelenia Góra

Postprzez Shon Oskar » Pn 10.03.2008 13:22

Bardzo dziękuje.

Znikało mi Menu podczas Gdy Outlook nie do końca sie wyłączał (zostawał w procesach), a użytkownik uruchamiał go ponownie. Niepokojącym objawem było brak ponownego uruchomienia Autostartu. (jednakże inne procedury działały - uruchomione ręcznie). Dzięki temu wymuszę, podczas przechodzeniu po folderach sprawdzenie czy Menu jest widoczne na pasku. (poza tym dołączę znikanie modułów gdy nie są one konieczne np w kalendarzu czy zadaniach (przeznaczone tylko dla wiadomości)).
O'Shon
Shon Oskar
 
Posty: 182
Dołączył(a): Pn 16.10.2006 09:05
Lokalizacja: Veracomp S.A.


Powrót do Microsoft Outlook

Kto przegląda forum

Użytkownicy przeglądający ten dział: Google [Bot] i 7 gości