Estou com problemas para enviar e-mails do Outlook usando o Excel VBA. Eu tenho o código para fazer isso -Sendupdate - e funciona bem quando eu manualmente executar a macro. Minha segunda macroStartTimer destina-se a executar o acima em um tempo definido quando não estou na minha mesa.

No entanto, quando o computador está bloqueado, o email não é enviado. Quando eu volto para minha mesa, o e-mail está pendurado como rascunho, e eu preciso clicar nosend botão.

Aqui está o meu código:

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

Existe uma maneira de codificar a macro para garantir que o email seja enviado?