Send all files in folder vba

[greyangel]

I am currently using the code attached to send a single file path. Would somebody be able to help me modify the code to send all files in a particular folder instead of just 1 file?

[mancubus]

?

Sub vbax_61999_email_all_files_in_folder()

    Dim strFolder As String
    Dim fso As Object
    Dim fsoFolder As Object
    Dim fsoFile As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    With CreateObject("Outlook.Application")
        For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
            strFolder = Range("C" & i).Value
            If Right(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
            Set fsoFolder = fso.GetFolder(strFolder)
            With .CreateItem(olMailItem)
                .To = Range("B" & i).Value
                .Subject = Range("I2").Value
                .Body = Range("J2").Value
                For Each fsoFile In fsoFolder.Files
                    .Attachments.Add strFolder & fsoFile.Name
                Next
                .Display 'or 'Send
            End With
            Range("F" & i).Value = Format(Date, "mm/dd/yy")
        Next
    End With

End Sub

[greyangel]

Thank you for the help.