Sub ProcessPDFFiles() Dim targetFolder As String Dim currentWorkbook As Workbook Dim ws As Worksheet Dim outlookApp As Object Dim outlookMail As Object Dim pdfFile As String Dim checkRange As Range Dim resultFileName As String Dim mailTitl…