Synchronizacja wybranego konta email kodem VBA

by vbatools on Jul.14, 2011, under Outlook, Porady

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: