#tell application "Mail"
# set _selection to selection
# set _message to item 1 of _selection
# set _from to (sender of _message as string)
# set _subject to (subject of _message as string)
# set _body to content of _message
# set _body to paragraph 1 of _body & return & paragraph 2 of _body & return & paragraph 3 of _body
# set _ID to message id of _message
# set _URL to "message://%3c" & _ID & "%3e"
# set _alarm to ((current date) + 2 * days)
# set time of _alarm to 60 * 60 * 9
#end tell
#tell application "Reminders"
# make new reminder with properties {name:"1. Nachfassen", body:"Von: " & _from & return & _body & return & _URL, remind me date:_alarm}
#end tell
using terms from application "Mail"
on perform mail action with messages theMessages for rule theRule
tell application "Mail"
repeat with _message in theMessages
set _from to (sender of _message as string)
set _subject to (subject of _message as string)
set _body to content of _message
set _body to paragraph 1 of _body & return & paragraph 2 of _body & return & paragraph 3 of _body
set _ID to message id of _message
set _URL to "message://%3c" & _ID & "%3e"
#set _URL to "message://" & _ID
set _alarm to ((current date) + 2 * days)
set time of _alarm to 60 * 60 * 9
tell application "Reminders"
make new reminder with properties {name:"1. Nachfassen", body:"Von: " & _from & return & _body & return & _URL, remind me date:_alarm}
#make new reminder with properties {name:"1. Nachfassen", URL:_URL, remind me date:_alarm}
end tell
end repeat
end tell
tell application "Mail"
repeat with _message in theMessages
set _from to (sender of _message as string)
set _subject to (subject of _message as string)
set _body to content of _message
set _body to paragraph 1 of _body & return & paragraph 2 of _body & return & paragraph 3 of _body
set _ID to message id of _message
set _URL to "message://%3c" & _ID & "%3e"
set _alarm to ((current date) + 14 * days)
set time of _alarm to 60 * 60 * 9
tell application "Reminders"
make new reminder with properties {name:"2. Nachfassen", body:"Von: " & _from & return & _body & return & _URL, remind me date:_alarm}
end tell
end repeat
end tell
tell application "Mail"
repeat with _message in theMessages
set _from to (sender of _message as string)
set _subject to (subject of _message as string)
set _body to content of _message
set _body to paragraph 1 of _body & return & paragraph 2 of _body & return & paragraph 3 of _body
set _ID to message id of _message
set _URL to "message://%3c" & _ID & "%3e"
set _alarm to ((current date) + 60 * days)
set time of _alarm to 60 * 60 * 9
tell application "Reminders"
make new reminder with properties {name:"3. Nachfassen", body:"Von: " & _from & return & _body & return & return & _URL, remind me date:_alarm}
#make new reminder with properties {name:"3. Nachfassen", body:"Von: " & _from & return & _body & return & return & _URL, URL:_URL, remind me date:_alarm}
end tell
end repeat
end tell
end perform mail action with messages
end using terms from
