VBA Tools

W niektórych przypadkach konieczne jest ograniczenie wymuszenia synchronizacji dla pobrania nowych wiadomości. Przyczyną taką jest nadużywanie przez użytkowników przycisku Wyślij/Odbierz.

Można w tym przypadku wykonać w trzech krokach.

• Wyłączyć przycisk na pasku Standardowym

Sub Lista_przycisków_Outlooka()
 Dim oCBC As Office.CommandBarControl, oCB As Object
 For Each oCB In Application.ActiveExplorer.CommandBars
 For Each oCBC In oCB.Controls
 Debug.Print oCB.Name & " -> " & _
 oCBC.Caption & " = " & _
 oCBC.id
 If oCBC.Caption = "W&yślij/Odbierz" Then oCBC.Enabled = False
 Next oCBC
 Next oCB
End Sub

• Wyłączyć opcje Menu/Narzędzia/Wyślij Odbierz

 Sub Wylacz_wyslij_z_menu()
 'MVP OShon from VBATools.pl
 Dim oBar As Office.CommandBar
 Dim myControl As CommandBarButton
 Dim item As Object, x&
 Set oBar = Outlook.ActiveExplorer.CommandBars.item("Menu Bar")

 For Each item In oBar.Controls
 On Error Resume Next 'reszta elementów menu
 For x = 1 To oBar.Controls.Count
 Debug.Print item.Caption & " -> " & item.Controls(x).Caption
 If item.Controls(x).Caption = "W&yślij/Odbierz" Then _
 item.Controls(x).Enabled = False
 Next x
 Next
 Set oBar = Nothing
End Sub

• Wyłączyć przycisk [F9], który wymusza synchronizacje z serwerem

Można to wykonać przy pomocy skrótu klawiszowego Ctrl+LAlt+S

Mimo wprowadzeniu powyższych ograniczeń Outlook zachowuje się normalnie i w zakładanym cyklu realizuje połączenia z kontem użytkownika (należy przetestować czy opcja nr 3 nie zawiesi transmisji w konfiguracji IMAP).

(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.