You might try comparing ReceivedTime with CDate("2025-06-06")
, switch to SenderEmailAddress
instead of SenderName
, guard non‑mail items via If TypeOf Item Is MailItem
, and map your split body chunks straight into Cells(r,4)
for cleaner output.