Microsoft Office OutLook и VBA

[sev_baikal]

Прошу сильно не ругать и камнями не закидывать
Такая вот делема, в оутлуке есть макрос который имитирует нажатие клавиши scr LK, нужно это для того что бы не включалась блокировка экрана, отключать нельзя из-за политики безопастности, а постоянно дергать мышь или тыкать по клавке не получается. Так вот макрос работает все нормально, но есть одно но, во время его работы нельзя коректно просматривать почту, чтоб просмотреть письмо надо либо двойным кликом открыть его в другом окне, либо вначале правой кнопкой а потом левой и тогда он открывается на просмотр. Тоже как-то не порусски и не совсем удобно. Это можно как-нибудь исправить?

Sub TimerProc()
    Do While Offer = False
        Call Command1_Click
        Pause 1
    Loop

Sub Pause(Sec As Single)
    Dim Start As Single
    Start = Timer
    Do While Timer < Start + Sec * 2
      WaitMessage
        DoEvents
    Loop
End Sub

Private Sub Command1_Click()
Call keybd_event(&H91, 0, 0, 0)
Call keybd_event(&H91, 0, KEYEVENTF_KEYUP, 0)
Call Sleep(100)
Call keybd_event(&H91, 0, 0, 0)
Call keybd_event(&H91, 0, KEYEVENTF_KEYUP, 0)
End Sub
End Sub