Send multiple emails with one attachment each

Hi! I really need your help as I am a newbie and can't get the right code.
What I would like to achieve is to send all the files in a folder as attachment to a single recipient. BUT, it must be one email per attachment. So if I have 20 files in a folder, I would also have 20 emails. It varies depending on how many files the folder has.
The subject of each email must be the same with the file name which are entered in Column B.

Please assist me in coding this in VBA Macro.

Thank you!

So I was able to figure out the right code. what I did was:
Column C - File Names (which should be the same with the subject)
Column D - File Path
Recipient's address is just one.

So here's the code:
Sub Send_Email()
Dim OutApp As Object
Dim OutMail As Object
Dim lr As Long
Dim r As Long
lr = Cells(Rows.Count, "B").End(xlUp).Row
For r = 1 To lr

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "[email protected]"
.Subject = Range("C" & r).Value
.Body = "Please find attached invoice for processing."
.Attachments.Add Range("D" & r).Value
.Send
End With
On Error GoTo 0
Next r

MsgBox "E-mail successfully sent", 64
Application.DisplayAlerts = False

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Hope this helps!