Sub SubmitButton()
Dim olApp As Object
Dim olItem As Object
Dim olInsp As Object
Dim wdDoc As Object
Dim oRng As Object
Dim xlWorkBook As Workbook
    Set xlWorkBook = ActiveWorkbook
    xlWorkBook.Save
    Set olApp = CreateObject("Outlook.Application")
    Set olItem = olApp.CreateItem(0)
    With olItem
        .Subject = "Timesheet Submitted"
        .CC = "themodernarc@gmail.com"
        .To = "amycraig@familyhealthcareclinic.com"
        .BodyFormat = 2
        .Attachments.Add xlWorkBook.FullName
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range(0, 0)
        oRng.Text = "Time sheet attached."
        .Display
    End With
    Set olItem = Nothing
    Set olApp = Nothing
    Set xlWorkBook = Nothing
    Set olInsp = Nothing
    Set wdDoc = Nothing
    Set oRng = Nothing
End Sub