send multiple attachements in email (1 Viewer)

Private Sub EmailReport_Click()
Dim oApp As New Outlook.Application
Dim oEmail As Outlook.MailItem
Dim fileName As string, todayDate As String    

'Export report in same folder as db with date stamp
todayDate = Format(Date, "MMDDYYYY")

fileName1 = Application.CurrentProject.Path & "\ReportName_" & todayDate & ".pdf"
DoCmd.OutputTo acReport, "Report_ENG_MCU_InServiceIssues", acFormatPDF, fileName, False

fileName2 = Application.CurrentProject.Path & "\QueryName_" & todayDate & ".pdf"
DoCmd.OutputTo acQuery, "Query_ENG_MCU_ForRS", acFormatPDF, fileName, False

'Email the results of the report generated
Set oEmail = oApp.CreateItem(olMailItem)
With oEmail
    .Display
    .Recipients.Add ""
    .Subject = "In Service Issues"
    .Body = "Hi All" & CHR$(13) & CHR&(13) & "Here is the in service issues for today"
    .Attachments.Add fileName1
    .Attachments.Add fileName2
    '.Send        
End With

MsgBox "Email successfully sent!", vbInformation, "EMAIL STATUS"

Public Sub testEmail()
Dim vTo, vSubj, vBody
Dim colFiles As New Collection

vTo = "WileE@acme.com"
vSubj = "test multi attachs"
vBody = "Dear Wiley"

colFiles.Add "c:\folder\file1.txt"
colFiles.Add "c:\folder2\file2.xls"
'etc

Call Send1Email(vTo, vSubj, vBody, colFiles)

Set colFiles = Nothing
End Sub

Public Function Send1Email(ByVal pvTo, ByVal pvSubj, ByVal pvBody, Optional pcolFiles As Collection) As Boolean
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
dim vFile

On Error GoTo ErrMail

Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)

With oMail
    .To = pvTo
    .Subject = pvSubj
    .Body = pvBody

    If Not IsEmpty(pcolFiles) Then
        For Each vFile In pcolFiles
             .Attachments.Add vFile, olByValue, 1
        Next
    End If
    
   .Send
End With
Send1Email = True

endit:
Set oMail = Nothing
Set oApp = Nothing
Exit Function

ErrMail:
MsgBox Err.Description, vbCritical, Err
Resume endit
Resume Next
End Function