Как можно добраться до вложенного в сообщение Outlook файла Excel? - VB

  Dim theApp As New Outlook.Application
  Dim Fld As Outlook.MAPIFolder
  Dim MItm As Outlook.MailItem
  Dim MailSubject As String, FileName As String
  
  MailSubject = '...' ' установка Subject
  FileName = '...'  ' установка имени файла
  
  Set Fld = theApp.GetNamespace('MAPI').GetDefaultFolder(olFolderInbox)
  Set MItm = Fld.Items.Find('[Subject] = ''' & MailSubject & '''')
  If Not MItm Is Nothing Then
    If MItm.Attachments.Count > 0 Then
      MItm.Attachments.Item(1).SaveAsFile FileName
    End If
  End If