run-time error 13 - Type mismatch (don't know why)

Similar Threads:

1.Error: run-time error 13 Type mismatch

I get this error every time I close Word 2002.  Anyone 
know how to fix it?

2.Run-time error 13 - Type mismatch

I get the run-time error everytime I close a document in 
Word 2002, otherwise everything works fine. I saw the 
responses to others that have similar problems and tried 
the "fixes". I have disabled the Norton office plug-in, 
use Acrobat 5.0.5 and run Winfax 5.1 so they don't seem 
to be the problem as Suzanne Barnhill kindly suggested (1-
20-04, 9:51pm). Any other ideas would be greatly 
appreciated!

3.MS Word - Run-time error '13' : Type mismatch

When closing any MS Word document, I get a "Run-time 
error '13': Type mismatch" message in a window 
titled "Microsoft Visual Basic". The window only allows 
me to select "end". I am using Office XP Professional. I 
am a computer novice, so any help or guidance would be 
really appreciated.

4.Run-time error '13' type mismatch on close

all of a sudden, every time I close word 2000, I get the 
error Microsoft Visual Basic, 'run-time error '13' type 
mismatch.  I hit end and word closes.  wondering what can 
be done.

thanks,

Larry

5.Run-time error '13'" Type mismatch when I run my VBA procedure

    I get a Run-time error '13'" Type mismatch, when I try to run a VBA macro 
to use an email template to create an email, and send an attachment
    When I click the debug button, the following line is highlighted:
            Set objOutlookAttach = .Attachments.Add(strAttch01Nam)

Any insights or suggestions  would be much appreciated.
Thanks,  
                                                Marceepoo

P.s. Here's the whole macro:

Sub CreateFromTemplate()
    Dim myOlApp As Outlook.Application
    Dim myItem As Outlook.MailItem
    Dim strTemplatNam As String
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.MailItem
    Dim strAttch01Nam As String
    '
    strTemplatNam = "C:\Documents and Settings\marxp\Application 
Data\Microsoft\Templates\bcc_NM.oft"
    strAttch01Nam = "E:\Archive.2005-04-21-00-30.rar.lst.txt"
    '
    Set myOlApp = CreateObject("Outlook.Application")
    Set myItem = myOlApp.CreateItemFromTemplate(strTemplatNam)
    '
    With myItem
      ' Add the To recipient(s) to the message. Substitute
      ' your names here.
            'Set objOutlookRecip = .Recipients.Add(" XXXX@XXXXX.COM ")
            ' objOutlookRecip.Type = olTo
        ' Set the Subject, Body, and Importance of the message.
        .Subject = "This is an Automation test with Microsoft Outlook"
        .Body = "Last test." & vbCrLf & vbCrLf
        .Importance = olImportanceHigh  'High importance
        ' Add attachments to the message.
        If Not IsMissing(strAttch01Nam) Then
           Set objOutlookAttach = .Attachments.Add(strAttch01Nam)
        End If
    End With
    '
    myItem.Display
End Sub