Need to be able to send email with attached PDF file based on a list

Hello,

Currently I have a workbook that can create a pdf file from a list and stores it in a location. I have tried creating a macro that looks at the list and sends the pdf file to the emails specified in the list.

I have not been able to figure out why the file doesn't get attached.

Sub Send_email_to_Customer()

Dim o As Outlook.Application
Set o = New Outlook.Application
Dim omail As Outlook.MailItem
Set omail = o.CreateItem(olMailItem)

Dim i As Long

        For i = 8 To Range("A1000").End(xlUp).Row
        
            With omail
            .Subject = Cells(i, 2).Value
            .To = Cells(i, 3).Value
            .CC = Cells(i, 4).Value
            .CC = Cells(i, 5).Value
            .Body = Cells(i, 6).Value
            .attachments.Add Cells(i, 7).Value
            .Display
        
        End With

    Next

End Sub

Any help would be appreciated!

Thanks,
Jonathan