Извлечение конкретного вложения из Outlook с использованием VBA

Question

У меня есть следующий код ниже, чтобы извлечь вложения из моего внешнего вида. Однако следующий код извлекает все вложения в электронном письме. Как настроить этот код для извлечения только определенного вложения, если имя отчета содержит ключевое слово приток

После извлечения и сохранения его в папке я хочу изменить его отображаемое имя на Последний отчет.

У кого-нибудь есть идеи, как это сделать?

   filterStr = "@SQL=""urn:schemas:httpmail:subject"" like '%5PM INfLOW REPORT%'"
    For Each oOlItm In oOlInb.Items.Restrict(filterStr)
        If oOlItm.Attachments.Count <> 0 Then
            For Each oOlAtch In oOlItm.Attachments
                oOlAtch.SaveAsFile saveFolder & "\" & oOlAtch.DisplayName
            Next
        Else
            MsgBox "The First item doesn't have an attachment"
        End If
        Exit For
    Next

Answer 1

проверьте наличие ключевого слова "приток" в имени вложения перед сохранением.

For Each oOlAtch In oOlItm.Attachments
    If InStr(oOlAtch.DisplayName, "inflow") > 0 Then
      oOlAtch.SaveAsFile saveFolder & "\" & oOlAtch.DisplayName
    End If
  Next