Sub ファイルチェックとメール送信() Dim folderPath As String Dim fileList As New Collection Dim fileName As String Dim wsFileCheck As Worksheet Dim wsList As Worksheet Dim outlookApp As Object Dim mailItem As Object ' 本Excelのフォルダパス…