VBATools

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