#copyright Mark Hunte 2013
--using terms from application "Mail"
--on perform mail action with messages theMessages for rule theRule
-- set up the attachment folder path
set folderName to "temp"
set homePath to (path to temporary items from user domain) as text
set attachmentsFolder to (homePath & folderName) as text
tell application "Mail"
set theMessages to (get selection)
repeat with eachMessage in theMessages
delay 0.5
-- set up the folder name for this mail message's attachments. We use the time stamp of the date received time stamp
set timeStamp to (do shell script "date +%Y_%m_%d_%H%M%S")
set attachCount to count of (mail attachments of eachMessage)
if attachCount is not equal to 0 then
-- use the unix /bin/test command to test if the timeStamp folder exists. if not then create it and any intermediate directories as required
if (do shell script "/bin/test -e " & quoted form of ((POSIX path of attachmentsFolder) & "/" & timeStamp) & " ; echo $?") is "1" then
-- 1 is false
do shell script "/bin/mkdir -p " & quoted form of ((POSIX path of attachmentsFolder) & "/" & timeStamp)
end if
set attachList to {}
try
-- Save the attachment
#SET replaceBadCharsWithUnderscoreInFileNames TO TRUE IF YOU WANT BAD CHARACTERS REMOVED FROM THE FILE NAMES THAT MAY STOP THE FILES SAVING DOWN
set replaceBadCharsWithUnderscoreInFileNames to true
####
repeat with theAttachment in eachMessage's mail attachments
if replaceBadCharsWithUnderscoreInFileNames then
set originalName to my replaceBadChars((name of theAttachment as string))
else
set originalName to (name of theAttachment as string)
end if
set savePath to attachmentsFolder & ":" & timeStamp & ":" & originalName
try
save theAttachment in file (savePath)
copy (savePath) to end of attachList
end try
end repeat
--on error msg
--display dialog msg
end try
set theSubject to "message répondeur"
set theBody to ""
set theAddress to "adresse mail ici"
set visable to true
set theForwardedMessage to make new outgoing message with properties {subject:theSubject, content:theBody & return & return}
tell theForwardedMessage
set visible to true
make new to recipient at end of to recipients with properties {address:theAddress} without quote original message
tell content
repeat with i from 1 to the count of attachList
set this_file to (item i of attachList as alias)
make new attachment with properties {file name:this_file} at after the last paragraph
send theForwardedMessage
end repeat
end tell
end tell
end if
delay 0.5
end repeat
end tell
--end perform mail action with messages
--end using terms from
on replaceBadChars(TEXT_)
--log TEXT_
set OkChars to {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "_", ".", "(", ")", "-", ",", space}
set TEXT_ to characters of TEXT_
repeat with i from 1 to number of items in TEXT_
set this_char to item i of TEXT_
if this_char is not in OkChars then
set item i of TEXT_ to "_"
else
end if
end repeat
set TEXT_ to TEXT_ as string
do shell script " echo " & quoted form of TEXT_
end replaceBadChars
