Synchronizacja wybranego konta email kodem VBA
napisane przez Oskar w dniu czwartek, 14 Lipiec, 2011, w kategorii Porady - Outlook
Pobieranie danych w Outlooku sprowadza się do wciśnięcia klawisza „Wyślij/Odbierz ..” lub wciśnięcia przycisku F9. Czasem jednak jest potrzeba aby odświeżyć tylko jedno konto.
W tym celu należy wybrać konto z Menu/Wysyłanie-odbieranie/Grupy wyślij-odbierz. Rodzi to pewne problemy wydajnościowe, ponieważ dotarcie do tego menu może być frustrujące ze względu na czas tej czynności.

Rys. 1. Pobieranie wiadomości z kont w Outlooku 2010
Aby tą czynność przyspieszyć należy stworzyć osobne grupy pobierania – oddzielne dla każdego konta.
Konfuguracja kont dostępna jest pod pow. menu definiowania grup lub pod skrótem klawiszowym Crtl+LAlt+S

Rys. 2. Konfiguracja grup synchronizacji kont pcztowych
Po przez edycje grupy „Wszystkie konta” i utworzenie osobnych grup, do których będą przypięte osobno konta tworzymy nowe grupy synchronizacji.
W ten sposób mamy do wyboru więcej elementów menu Wysyłanie/Odbieranie, co oczywiście w tej postaci nie przyśpieszy pracy:

Rys. 3. Pobieranie wiadomości z kont w Outlooku 2010 po modyfikacji.
Aby zrealizować cel przygotowałem makro, które będą wymuszały pobieranie danych z określonej grupy. Należy osadzić go w środowisku developerskim VBA. Alt+F11 Menu/insert/Module – wklejamy karto i modyfikujemy stosownie do ilości posiadanych grup synchronizacji.
Pobranie z kont podpiętych pod drugą grupę synchronizacji:
Sub polaczeni_z_2ga_grupa_maili()
Dim oNameSpace As NameSpace
Set oNameSpace = Application.GetNamespace("MAPI")
With oNameSpace.SyncObjects
If .Count >= 2 Then .item(2).Start
End With
Set oNameSpace = Nothing
End Sub
Jego modyfikacja na inne konta polega na zmianie cyfry numeru grupy (w pow przypadku nr 2 na inną).
Aby nie uruchamiać procedur z menu pod Alt+F8, można podpiąć je do przycisków menu „Pasku szybkiego uruchamiania” i wywoływać skrótem klawiszowym Alt+nr przycisku.
Jak przygotować klienta pocztowego pokazują poniższe zrzuty ekranowe:

Rys. 4. Modyfikacja paska szybkiego uruchamiania.

Rys. 5. Dodanie procedur do paska szybkiego uruchamiania w Outlooku 2010

Rys. 6. Wywołanie Alt+nrPrzysisku procedur synchronizacji kont.
(c) Shon Oskar – www.VBATools.pl
Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.


