VBA send different attachments to different emails

[123rickfear]

Hi all, long time no posting.

I have a report that I need to split into 6 different files, saved in 6 different folders, and then email the new files to 6 different email addresses.
I have managed to slit and save the files, but cant get the email part to work. It sends the first file, then nothing else happens.

On Error Resume Next
    With OutMail
        .to = Range("D54")
        .CC = ""
        .BCC = ""
        .Subject = "Realm Week " & Range("L1")
        .Body = "Hi, Please find attached the Realm figures for week " & Range("L1")
        .Attachments.Add Range("O2") & Range("O3")
        .Send
        End With
        On Error GoTo 0
        
    On Error Resume Next
    With OutMail
        .to = Range("D58")
        .CC = ""
        .BCC = ""
        .Subject = "Value Retail Week " & Range("L1")
        .Body = "Hi, Please find attached the Value Retail figures for week " & Range("L1")
        .Attachments.Add Range("Q2") & Range("Q3")
        .Send
        End With
        On Error GoTo 0