Public Sub MSG()
    
    Dim objOutlApp As Object, oNSpace As Object, oIncoming As Object
    Dim oIncMails As Object, oMail As Object
    Dim IsNotAppRun As Boolean
    Application.Calculation = xlCalculationManual

    On Error Resume Next
    Set objOutlApp = New Outlook.Application
    If objOutlApp Is Nothing Then ' даже к закрытому
        Set objOutlApp = CreateObject("outlook.Application")
        IsNotAppRun = True
    End If

    Set oNSpace = objOutlApp.GetNamespace("MAPI")
    Set oIncoming = oNSpace.Folders("mail@mail.ru").Folders("ПОСТУПЛЕНИЯ")   
    Set oIncMails = oIncoming.Items    
    
    Dim nn As Long
    nn = oIncMails.Count ' сколько всего пришло писем    
    If nn = 0 Then
        MsgBox "Новых писем - нет", Title:="ПОСТУПЛЕНИЯ"
        Exit Sub
    End If
    I = 1   
    Dim m As Long ' счетчик для цикла
    m = 0    
    For Each oMail In oIncMails
        m = m + 1
        Application.StatusBar = "Обработка " & m & "-го письма из " & nn
    
        ...  ' код обработки
    
'    завершение цикла по строке
    Next
    
End Sub

Sub SendHTTPRequest()
    
    Dim httpReq As Object
    Set httpReq = CreateObject("MSXML2.XMLHTTP")

    httpReq.Open "GET", "https://m4d.nalog.gov.ru/emchd/get-info/data", False

    httpReq.setRequestHeader "Content-Type", "application/json"

    httpReq.Send

    If httpReq.Status = 200 Then
        Debug.Print httpReq.responseText
    Else
        Debug.Print "Ошибка: " & httpReq.Status
    End If
    
    Set httpReq = Nothing
    
End Sub

'        ПЕРЕИМЕНОВАНИЕ
        On Error Resume Next
        Name inPath & thisFile As inPath & ws.Cells(i, 2) & ".msg"