access发邮件带附件错误

各位高手请指点本人编了能够发附件的控件，可出现 用户指定类型 未定义，请帮忙察看，谢谢

原代码如下：

Private Sub 邮件发送_Click()

    Dim myOlApp As Object '定义对象变量
    Dim myNamespace As Object '定义对象变量
    Dim emailadd, para As String
    Dim myattachments As Attachment

   
    Set myOlApp = CreateObject("OutLook.Application") '创建OutLook应用程序对象
    Set myNamespace = myOlApp.getNamespace("MAPI") '获取MAPI命名空间
    Set myfolder = myNamespace.getDefaultFolder(6) '获取默认的文件夹
    Set myitem = myOlApp.CreateItem(0) '创建新邮件
    Set myattachments = myitem.Attachments '创建附件
   
    myattachments.Add ("d:\outlook2003.txt",  olByValue, 1, "outlook2003.txt")
    '邮件正文内容
    para = para + "请查阅更新的运输破损报告！"
   
    '收件人的email地址，这里没有输入内容。
    emailadd = "someone@somewhere.com"
   
   
    With myitem
   
        .To = emailadd '发送邮件地址
        .Subject = "运输破损报告" ' 邮件的主题
        .Importance = olImportanceHigh '邮件的为重要等级
        .Body = para '将邮件正文内容指定para变量内容

        .Send '发送
     
    End With
   
    Set myOlApp = Nothing
    Set myitem = Nothing

End Sub

谢谢