在VB中将多个文件附加到电子邮件

Question

我想将文件夹中的所有Excel文件添加到包含以下代码的电子邮件中：

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

Set MItem = OutlookApp.CreateItem(olMailItem)
MItem.Display
With MItem
.Bcc = EmailAddr
.Subject = Subj
.Body = Msg
For Each File In fs.GetFolder(CurDir&"Final").Files
    If fs.GetExtensionName(File) = "xlsx" Then
    .Attachments.Add File
    End If
Next 
.Importance = 2
.Send
End With


Set MItem = Nothing
Set OutlookApp = Nothing
Set fso = Nothing

但是，我收到错误“对象不支持此属性或方法。

当我附加单个文件时，它正在工作。

我有什么遗漏的吗？在此先感谢您的帮助！