dblRaz = WorksheetFunction.Round(brutto - BruttoS, 2)

Dim objOL As Object
Dim objMail As Object

Set objOL = CreateObject("Outlook.Application")
        objOL.Session.Logon
        
        For Each oAccount In objOL.Session.Accounts
            If oAccount = "ruslo@gmail.com" Then
                Set objMail = objOL.CreateItem(0)
                On Error Resume Next
        With objMail
            .From = "ruslo@gmail.com"
            .To = "Cargo@cargo.mu"
            .Body = "Пришлите, пожалуйста. Спасибо!"
            .Subject = "Запрос"
                For i = 1 To kf
                  .Attachments.Add nam(i)
                Next i
            Set .SendUsingAccount = oAccount
            .Send
        End With
     End If
  Next

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица14"]}[Content],
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each Text.StartsWith([Наименование], Excel.CurrentWorkbook(){[Name="Наименование"]}[Content]{0}[Column1]))

Option Compare Text

Public Sub SaveAttachments(msg As MailItem)
Dim att As Attachment
Dim base_path As String
Dim file_ext As String
Dim s As String
Dim w As String
Dim pd As Integer

base_path = "C:\База цен"
file_ext = "xlsx_xls"
  
    For Each att In msg.Attachments
 
        s = att.FileName
        pd = InStrRev(s, ".")
        w = Right(s, Len(s) - pd)
 
        If InStr(file_ext, w) > 0 Then
            att.SaveAsFile base_path & "\" & s
        End If
    Next
End Sub

Public Sub SaveAttachments(msg As MailItem)
Dim att As Attachment
Dim base_path As String
Dim file_ext As String        
Dim s As String
Dim pd As Integer
Dim n As String, w As String


base_path = "C:\База цен"
file_ext = "xlsx_xls"
  
    For Each att In msg.Attachments

        s = att.FileName
        pd = InStrRev(s, ".")
        n = Left(s, pd - 1)
        w = Right(s, Len(s) - pd)

        If InStr(file_ext, w) > 0 Then
            att.SaveAsFile base_path & "\" & n & "." & w
        End If
    Next
End Sub