Dim fso, folder, files
Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder("d:\Apps\Facilitor\Fplace5i\CUST\BLCC\export\Twinfield")
Set files = folder.Files
For each folderIdx In Files
   If InStrRev(folderIdx.Name, ".csv") > 0 And folderIdx.Length > 0 Then
      Set objEmail = CreateObject("CDO.Message")
      objEmail.From = "no_reply@blcc.facilitor.nl"
      ' objEmail.To = "m.vanderheide@facilitor.nl"
      objEmail.To = "accounting1@brightlands.com;roger.treur@brightlands.com;leslie.vandewauw@brightlands.com"
      objEmail.Subject = "Facilitor: Maandelijkse aanlevering Twinfield-bestand"
      objEmail.Textbody = "Automatisch verzonden Twinfield-bestand."
      objEmail.AddAttachment "d:\Apps\Facilitor\Fplace5i\CUST\BLCC\export\Twinfield\" + folderIdx.Name
      objEmail.Send
   End If
Next
