Mam problemy z wysyłaniem wiadomości e-mail programu Outlook za pomocą programu Excel VBA. Mam kod do zrobienia -Sendupdate - i działa dobrze, gdy ręcznie uruchamiam makro. Moje drugie makroStartTimer ma na celu wykonanie powyższego o określonej godzinie, gdy nie jestem przy moim biurku.

Jednak gdy komputer jest zablokowany, wiadomość e-mail nie jest wysyłana. Kiedy wrócę na biurko, wiadomość e-mail wisi tam jako szkic i muszę kliknąćsend przycisk.

Oto mój kod:

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

Czy istnieje sposób na kodowanie makra, aby upewnić się, że wiadomość e-mail zostanie wypchnięta?