I'm just trying to send a basic message to a list of people with
Microsoft Outlook using Excel.  I thought that it would be a great idea
to, once a macro finished, put a snippet of code that sends an email to
others that are waiting on this particular macro to finish that says
"File's Done!".  I've googled and here's the best I could find, problem
is, it opens the email but you have to press the send button.  How can I
get this to automatically send?

Code:
--------------------
   Private Declare Function ShellExecute Lib "shell32.dll" _
 Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
 ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
 ByVal nShowCmd As Long) As Long
 
 Sub SendEMail()
 Dim Email As String, Subj As String
 Dim Msg As String, URL As String
 
 '       Get the email address
 Email = "test1@test.com; test2@test.com"
 
 '       Message subject
 Subj = "The File you've been waiting for"
 
 '       Compose the message
 Msg = "File is Done!"
 
 '       Replace spaces with %20 (hex)
 Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
 Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
 
 '       Replace carriage returns with %0D%0A (hex)
 Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
 '       Create the URL
 URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
 
 '       Execute the URL (start the email client)
 ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
 
 '       Wait two seconds before sending keystrokes
 Application.Wait (Now + TimeValue("0:00:02"))
 Application.SendKeys "%s"
 End Sub
--------------------