Tengo problemas para enviar correos electrónicos de Outlook utilizando Excel VBA. Tengo el codigo para hacerloSendupdate - y funciona bien cuando ejecuto manualmente la macro. Mi segunda macroStartTimer está destinado a ejecutar lo anterior a una hora establecida cuando no estoy en mi escritorio.

Sin embargo, cuando la computadora está bloqueada, el correo electrónico no se envía. Cuando vuelvo a mi escritorio, el correo electrónico se cuelga allí como borrador y necesito hacer clic en elsend botón.

Aquí está mi 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>

¿Hay alguna forma de codificar la macro para asegurarnos de que el correo electrónico sea enviado?