Macro to Send e-Mail with PDF Attachments

Sub Mail_PDF()
Dim OutApp As Object
Dim OutMail As Object
 
For i = 1 To 4 'change to number recipients
If Worksheets("Contacts").Range("B1").Value <> "" Then 'sheetname!
SendName = Worksheets("Contacts").Range("B" & i).Value 'sheetname!
 
   Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(o)
        With OutMail
            .Subject = "Attached pdf file"
            .To = SendName
            .Body = "PDF Test"
 
             filename = "C:\junk\*.pdf" 'path
 
             PDFFile = Dir(filename)
 
     Do While PDFFile <> ""
 
       'match name with column A name                
            If InStr(PDFFile, Range("A" & i).Value) > 0 Then
 
            .Attachments.Add "C:\junk\" & PDFFile 'path
            End If
            PDFFile = Dir
            Loop
 
            .Display '.send
    End With
 
        Set OutMail = Nothing
        Set OutApp = Nothing
End If
Next i
End Sub