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

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

Вот мой код:

<code>Sub SendUpdate()
Recipient = "[email protected]"
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
</code>

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