hi,
try this one! the credits go to GTO!
according to your data, add in column F the full path for each project
I mean in row 2 col B you have AAA, so the path will be c:\users\george\desktop\AAA, AAA=folder name
row 3 col B you have ABB, so the path will be c:\users\george\desktop\ABB, ABB=folder name
and so on.
hope it help you! 
Option Explicit
Sub exAddAttachments()
Dim objol As Object
Dim objmail As Object
Dim objFolder As Object
Dim strFolder As String
Dim fso As Object
Dim fsFolder As Object
Dim fsFile As Object
Dim i As Long
Dim strto As String, strcc As String, strbcc As String
Dim strsub As String, strbody As String
'---------------------------------------------------------------------------------------//
    
    '// Create a folder browser.  Note:  You can change the last arg (the Empty) to a   //
    '// string where you want the folder browser to start in, such as: ThisWorkbook.Path//
    'Set objFolder = CreateObject("Shell.Application"). _
                        BrowseForFolder( _
                            0, "Select the folder that the workbooks are in.", 1, Empty)
    For i = 2 To Sheets("Sheet1").Range("a65536").End(xlUp).Row
        If Cells(i, 1).Value <> "" Then
    On Error GoTo errhndl
    'If Not objFolder Is Nothing Then
        '// Get the path to the folder user picked. //
        strFolder = Cells(i, 6)
    'Else
        '// In case user cancels folder browser     //
        'MsgBox "Error picking a folder.", 0, ""
        'Exit Sub
    'End If
    
    '// Create various needed objects.  I happen to use late-binding.                   //
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fsFolder = fso.GetFolder(strFolder)
    Set objol = CreateObject("Outlook.Application")
    Set objmail = objol.CreateItem(0) '(olMailItem)
    With Sheets("Sheet1")
                strto = .Cells(i, 4).Value 'column d
                strcc = .Cells(i, 5).Value
                strbcc = ""
                strsub = "Welcome to the Project " & " " & .Cells(i, 2)
                strbody = "Hi there," & vbCrLf & "We welcome you all to the project" & " " & .Cells(i, 2).Value & " " & _
                    "whatever...." & _
                    vbCrLf & vbCrLf & "Thank you."
            End With
    With objmail
        .To = strto
        .cc = strcc
        .bcc = strbcc
        .Subject = strsub
        .Body = strbody
        .NoAging = True
        
        
        '// Using the file system object, return/add all the Excel files in the picked  //
        '// folder.                                                                     //
        For Each fsFile In fsFolder.Files
            If fsFile.Name Like "*.xls" Then
                .Attachments.Add strFolder & "\" & fsFile.Name
            End If
        Next
        
        .Display
        
    End With
    
errhndl:
    Set objFolder = Nothing
    Set fso = Nothing
    Set fsFolder = Nothing
    Set objol = Nothing
    Set objmail = Nothing
     End If
  
    Next i
End Sub