Greetings everyone! It's been a while since I've been here and I hope you've all been well.

I'm looking for a bit of help with a tool I've been working on that sends out an email on a regular basis to my boss with the current service level for the program were working on. Mostly it's a success, but this weekend I left it running and it apparently stopped working when I locked my computer. I'm thinking that the problem is because of the method I use to send the e-mail. Currently the way it works is that the e-mail is generated and then I use Application.SendKeys "%s" (Alt + s) to send it off. Is there another way of sending it or perhaps a whole new way of generating the e-mail itself that would work better?

Thanks in advance for your help. The relevant code follows. - pikus

EMail = "[email protected]"
Subj = "Svc Lvl " & Now()

URL = "mailto:" & EMail & "?subject=" & Subj & "&body=" & Msg

ActiveWorkbook.FollowHyperlink Address:=URL, NewWindow:=True

Application.Wait (Now + TimeValue("0:00:05"))
Application.SendKeys "%s"