The only tricky bit is the extraction of the data strings from the subject, but based on your example, the following should work, Note the from/to dates are in the format YYYMMDD and you will need to change the path and the sender e-mail as appropriate.
Option Explicit
Sub subject2excel()
'Graham Mayor - https://www.gmayor.com - Last updated - 19 Jan 2021
Dim olFolder As Outlook.Folder
Dim olItem As MailItem 'Object
Dim i As Long, j As Long, k As Long
Dim vSubject As Variant, vLanguage As Variant
Dim sType As String
Dim lNumber As Long
Dim sSubject As String, sLanguage As String, sD1 As String, sD2 As String, sD3 As String
Dim strValues As String
Dim lFrom As Long, lTo As Long
Dim lDate As Long
Const strSender As String = "someone@somewhere.com" 'insert sender
Const sWorkbook As String = "C:\Path\Report.xlsx" ' the location of the workbook
'date range
lFrom = 20210110: lTo = 20210115
Set olFolder = Session.PickFolder
For i = 1 To olFolder.items.Count
Set olItem = olFolder.items(i)
If olItem.SenderEmailAddress = strSender Then
lDate = Val(Format(olItem.ReceivedTime, "yyyymmdd"))
'Debug.Print lDate
If lDate >= lFrom And lDate <= lTo Then
vSubject = Split(olItem.Subject, "::")
If UBound(vSubject) = 4 Then
For j = 0 To UBound(vSubject)
Select Case j
Case 0: sType = vSubject(j)
Case 1
lNumber = Replace(Split(vSubject(j), "]")(0), "[#", "")
sLanguage = Trim(Right(vSubject(j), 6))
sSubject = Trim(Split(vSubject(j), "]")(1))
sSubject = Left(sSubject, Len(sSubject) - 8)
Case 2: sD1 = vSubject(j)
Case 3: sD2 = vSubject(j)
Case 4: sD3 = vSubject(j)
End Select
Next j
strValues = sType & "', '" & _
lNumber & "', '" & _
sSubject & "', '" & _
sLanguage & "', '" & _
sD1 & "', '" & _
sD2 & "', '" & _
sD3
WriteToWorksheet sWorkbook, "Sheet1", strValues
DoEvents
End If
End If
End If
Next i
lbl_Exit:
Set olFolder = Nothing
Set olItem = Nothing
Exit Sub
End Sub
Private Function WriteToWorksheet(strWorkbook As String, _
strRange As String, _
strValues As String)
Dim ConnectionString As String
Dim strSQL As String
Dim CN As Object
ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & strWorkbook & ";" & _
"Extended Properties=""Excel 12.0 Xml;HDR=YES;"";"
strSQL = "INSERT INTO [" & strRange & "$] VALUES('" & strValues & "')"
Set CN = CreateObject("ADODB.Connection")
Call CN.Open(ConnectionString)
Call CN.Execute(strSQL, , 1 Or 128)
CN.Close
Set CN = Nothing
lbl_Exit:
Exit Function
End Function