Excel VBA -Электронная почта не отправляется, когда компьютер заблокирован

У меня проблемы с отправкой электронных писем Outlook с помощью Excel VBA. У меня есть код для этого -Sendupdate-, и он отлично работает, когда я запускаю макрос вручную. Мой второй макрос StartTimerпредназначен для выполнения вышеуказанного в установленное время, когда меня нет за рабочим столом.

Однако, когда компьютер заблокирован, электронная почта не отправляется. Когда я возвращаюсь к своему рабочему столу, электронное письмо висит там как черновик, и мне нужно нажать кнопку send.

Вот мой код.:

Sub SendUpdate()
Recipient = "x@y.com"
Subj = "update"
Dim msg As String
msg = "hello”

HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
    Application.Wait (Now + TimeValue("0:00:01"))
    Application.SendKeys "%s"
End Sub

Sub StartTimer()
Application.OnTime TimeValue("18:00:00"), "SendUpdate"

End Sub

Есть ли способ закодировать макрос, чтобы убедиться, что электронное письмо отправлено?