Error in VBA code Word to Outlook

I have an instance where I need a document which has been created in Word, via a macro, to be sent as the body of an email including formatting.  So I searched here and found some code to use, however, when the document template is open in Word, the macro works.  When the document template is closed and the macro is run, the code fails.  The code I used is included.
   
What fails is olkMsg.display  -- the macro completes, but no email is shown and switching to Outlook also shows on email.  If I leave the document template open and run the same code, it correctly switches to displaying the newly created email.   [Edited -- just noticed that the code also fails to kill the temporary document created; even that part of the code works if the document template is open when the code is run, but does not delete the file if the doc template is closed].

Help?

Dim wrdDoc As Word.Document
    Dim olkApp As Outlook.Application
    Dim olkMsg As Outlook.MailItem
    Dim oDoc As String
        'objFSO As FileSystemObject
        'objFile As TextStream
    Set wrdDoc = ActiveDocument
    'Save the document in the proper format.  If the document is already saved in the proper format,
    'then you could change the command from SaveAs to Save.
    wrdDoc.SaveAs , wdFormatFilteredHTML
    'Read the document in using the FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(wrdDoc.Path & "\" & wrdDoc.Name, 1, False)
    'Get the open instance of Outlook
    Set olkApp = GetObject(, "Outlook.Application")
    'Create a new message
    Set olkMsg = olkApp.CreateItem(0)
    'Add recipients
    olkMsg.Recipients.Add sEmail
    'Add the subjec line
    olkMsg.Subject = sMyCaseName & " Case Closure"
    'Read the saved Word doc into the body of the message
    olkMsg.HTMLBody = objFile.ReadAll
    oDoc = (wrdDoc.Path & "\" & wrdDoc.Name)
    
    'Close the Word Document
    ActiveDocument.Saved = True
    ActiveDocument.Close
    
    'Destroy all the objects to avoid memory leaks
    Set wrdDoc = Nothing
    objFile.Close
    Set objFile = Nothing
    Set objFSO = Nothing
    'Delete the saved form
    Kill oDoc
 
'Display the message
    olkMsg.Display
      
  Set olkApp = Nothing
  Set olkMsg = Nothing
 
Unload Me

Select allOpen in new window