Sub GetPDFAndEmails() Dim folderPath As String Dim filesInFolder As String Dim fileName As String Dim lastRow As Long Dim outlookApp As Object Dim mailItem As Object Dim ws As Worksheet Dim i As Long ' 本Excelファイルのパスを取得 folderPat…