我一直试图从OUTLOOK下载附件，为此，我正在运行宏脚本，但是由于无效的脚本或脚本不存在，我不断收到错误消息。

下面是我的宏的代码

Public Sub EXCELSIOR_BAY(MItem As Outlook.MailItem)

   Dim oAttachment As Outlook.Attachment
   Dim sSaveFolder As String

   sSaveFolder = "T:\Operations\FUEL OPTIMISATION\ADA Data\22. Excelsior Bay\"

   For Each oAttachment In MItem.Attachments
      oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
   Next

End Sub