Send E-Mail Message

Sub Mailer()
  
Dim objol As New Outlook.Application
Dim objmail As MailItem
Dim Pathname

Pathname = ActiveWorkbook.FullName

Set objol = New Outlook.Application
Set objmail = objol.CreateItem(olMailItem)
    
    With objmail
        .To = "somebody@yahoo.com"
        .Subject = "Simulation completed!"
        .Body = "The following simulation has completed:" & _
            vbCrLf & Pathname
        .NoAging = True
        .Display
    End With
    Set objmail = Nothing
    Set objol = Nothing
    
    Application.Wait (Now + TimeValue("0:00:04"))
    Application.SendKeys "%s"
    Application.Wait (Now + TimeValue("0:00:04"))
    
End Sub