PDFcheck

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が開かれていない場合は新しく開く
Set outlookApp = CreateObject("Outlook.Application")
End If

' 新しいメールアイテムを作成
Set mailItem = outlookApp.CreateItem(0) ' 0はolMailItemを表します

' リストシートを取得
Set ws = ThisWorkbook.Sheets("リスト")

' C列の最終行を取得
lastRow = ws.Cells(Rows.Count, "C").End(xlUp).Row

' 各行のメールアドレスを宛先に追加（E列が0の場合のみ）
For i = 1 To lastRow
If ws.Cells(i, 5).Value = 0 Then ' E列が0の場合
mailItem.Recipients.Add ws.Cells(i, 3).Value ' C列のメールアドレス
End If
Next i

' メール送信画面を表示
mailItem.Display

' メール作成が完了した旨をメッセージボックスで表示
MsgBox "完了しました、メール画面を確認にしてください", vbInformation
End Sub