using terms from application "Mail"
    on perform mail action with messages theMessage for rule theRule
        repeat with a from 1 to count theMessage
            set theBody to "message:%3C" & message id of theMessage & "%3E"
            set theSubject to the subject of theMessage & " (From " & the sender of theMessage & ")"
            tell application "Reminders"
                set theList to list "Reminders"
                set newToDo to make new reminder with properties {name:theSubject, body:theBody, container:theList, due date:((current date) + (1 * hours))}
            end tell
        end repeat
    end perform mail action with messages
end using terms from