Glenn

A better option might be to loop through the files in a specific folder. The
reason is that you may have files with different extensions and the names may
also change in future, which would require a change in your code.

In this example, you will need to install the references to Windows Script
Host Model (if you do not wish to install it, you will require to create the
scripting object instead):

Sub Example()
 Dim oOutlook      As Outlook.Application
 Dim oEmailItem    As MailItem
 Dim oFileSystem   As New FileSystemObject
 Dim oFolder       As Object
 Dim oFile         As File
 
 On Error Resume Next
 Set oOutlook = GetObject(, "Outlook.Application")
 If oOutlook Is Nothing Then Set oOutlook =
CreateObject("Outlook.Application")
 
 On Error GoTo 0
 Set oEmailItem = oOutlook.CreateItem(olMailItem)
 Set oFolder = oFileSystem.GetFolder("C:\For Deletion")
 
 With oEmailItem
   For Each oFile In oFolder.Files
     .Attachments.Add oFile.Path
   Next oFile
   .To = "email@email.com"
   .Display
 End With
 
 Set oFolder = Nothing
 Set oFileSystem = Nothing
 Set oEmailItem = Nothing
 Set oOutlook = Nothing
 
End Sub

No, that won't work at all. You must call Attachments.Add each time you want to add a file. 3 files, three calls to Attachments.Add