Problem z wykonaniem instrukcji w Application_Quit

[OShon]

witaj michu

mam problema o dziwnym charakterze

Umieściłem instrukcje usunięcia paska menu w ThisOutlookSession/Application_Quit, którą buduje w Application_Startup, niestety nie działa poprawnie

instrukcja uruchomiona niezależnie usuwa pasek prawidłowo, z poziomu wyjścia z aplikacji już nie ;(

Kod: Zaznacz cały

Private Sub Application_Quit()
NazwaPaska = "pasek"

With Application.ActiveExplorer
    .CommandBars(NazwaPaska).Delete
End With
End Sub

czy wpada ci coś do głowy ?

[michu]

Być może w Application_Quit już nie można wykonywać tego typu operacji na interfejsie użytkownika.

Ale po co usuwać na wyjściu pasek, który dodałeś w Application_Startup?

[Shon Oskar]

Moim zamiarem jest:

(zadowolony użytkownik)
- Instalacja dodatku (Utworzony instalator w VB6)
- Aktywacja -jeżeli wcześniej jej nie było (alt F8 ) jedna jawna procedura
- Uruchomienie tworzy menu dodatku (funkcjanalność z poziomu przycisków menu) w prywatnych procedurach
-Opuszczenie Outlooka usuwa menu

(zamiana użytkownika lub usunięcie dodatku)
-Deinstalator (usunięcie wpisów rejestru oraz plików dodatku)

W takim szkielecie usunięcie aplikacji przez Deinstalatora powiedzie się ale zostanie pasek menu z nieaktywnymi przyciskami.

(może jest sposób aby z poziomu VB6 wyłączyć pasek?) jeżeli nie to jedyne co mi przychodzi do głowy to tworzenie w momencie uruchomienia i usuwanie podczas wyłączenia Outlooka. (przynajmniej z powodzeniem tak robię w VBA dla Excela)

[Shon Oskar]

ok - zrobiłem to w VB6 - i zadziałało ;]
pozd.

[michu]

W sensie, że dodawanie i usuwanie paska narzędzi zrobiłeś w programie instalacyjnym zamiast w samym programie/makrze?

[Shon Oskar]

Bardzo lubię zagadki a brak ich rozwiązania mnie trochę deprymuje wiec aby wyjść z głowa do góry musiałem jakoś zaradzić.

Na pierwszy rzut oka wydawało się to trudne, ale dlatego może ze próbowałem na siłę to zrobić w VBA. W tym momencie VB6 loguje się do Outlooka i wyłącza pasek.
Takie rozwiązanie mi w zupełności wystarczy; a Application_Quit wyczyszczę z instrukcji

[michu]

Dopiero teraz znalazłem kawałek kodu. Więc można robić to w ten sposób, że program instlacyjny instaluje/deinstaluje pasek narzędzi. Albo pasek może być tworzony przez sam program w Application_Startup. Trzeba tylko podczas tworzenia paska przy użyciu funkcji CommandBars::Add ustawić parameter Temporary na True. Wtedy pasek jest tymczasowy na czas trwania danej sesji Outlook'a i nie trzeba go usuwać w Application_Quit.

Nawet jeśli pasek jest tymczasowy, to i tak przed jego utworzeniem należy sprawdzić, czy już nie istnieje.

[Shon Oskar]

oo nie znałem tego parametru
Zresztą w Excelu i w Wordzie nie ma problemów z usunięciem paska procedury w auto_close

fajnie dzięki za podpowiedź
co prawda cel osiągnięty - ale przetestuje i ta metodę