Sub AttachTenderFiles()
    Dim objOutApp As Object, objMail As Object
    Dim myItem As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments
    
    Set myItem = Application.ActiveInspector.CurrentItem
    Set myAttachments = myItem.Attachments
    With Excel.Application

        Dim oFD As FileDialog
        Dim x, lf As Long
        Set App = Excel.Application
        Set oFD = App.FileDialog(msoFileDialogFilePicker)
        With oFD 
            .AllowMultiSelect = True
            .Title = "Test" 
            .Filters.Clear 
            '.FilterIndex = 2
            .InitialFileName = "%APPDATA%\Microsoft\Windows\Recent\" 
            .InitialView = msoFileDialogViewList
            .oFD.Show
        End With
    End With
     
    Dim sInputFile As Variant
    For Each sInputFile In oFD.SelectedItems
    myAttachments.Add sInputFile, 1
    Next sInputFile
    myAttachments.Add ("P:\Test.xlsx")

End Sub