Sub PDFcheck() Dim outlookApp As Object Dim mailItem As Object Dim ws As Worksheet Dim lastRow As Long Dim i As Long ' Outlookアプリケーションを開く On Error Resume Next Set outlookApp = GetObject(, "Outlook.Application") On Error GoTo 0 I…