unote 書けば書くほどに

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 If outlookApp Is Nothing Then ' Outlookが開かれていない場合は…