using terms from application "Mail" on perform mail action with messages theMessages for rule theRule tell application "Mail" repeat with eachMessage in theMessages if read status of eachMessage is false then set fromAddress to sender of eachMessage set theMessage to make new outgoing message with properties {subject:"New Mail from " & sender of eachMessage, content:return & "Subject: " & subject of eachMessage & return & return & "Date: " & date sent of eachMessage} tell theMessage set visible to false make new to recipient at end of to recipients with properties {address:"<>"} send end tell end if end repeat end tell end perform mail action with messages end using terms from