[AccessD] Normal.dot file altered on close?

Dear List:

I automated some customer response letter in my customer tracking system -
opens a word , inserts the contents into the body of an email, closes the
doc.  When the doc closes, though, I get a notice that normal.doc has been
altered do I want to save it, etc.  PITA because of course, I have to
respond to the prompts.

What am I doing wrong?  The code's pretty minimal:

 

Private Sub MakeMessage(argDocument As String, argSubject As String)


    Dim objWord As Object
    Dim objWordDoc As Word.Document
    
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.Attachment

    ' Get the body text
    Set objWord = CreateObject("Word.Application")
    objWord.Documents.Open (argDocument)
    objWord.Selection.WholeStory
    strBody = objWord.Selection
    'MsgBox strBody
    objWord.Documents.Close
    objWord.Quit
    Set objWord = Nothing


(code here to send email - working well

End Sub

 

 

MMTIA,

Rocky Smolin

Beach Access Software

858-259-4334

Skype: rocky.smolin

www.e-z-mrp.com <http://www.e-z-mrp.com/> 

www.bchacc.com <http://www.bchacc.com/>