Apple script to open an attachment

Question

Hi all,
Can someone help me writing an appleScript to open an attachment of a mail.
I want to create a rule in Mail that when ever I get an email with a specific attachment it will be opened. I plan to run this script whenever mail is receiving an email with this attachment.
Thanks,
Ziv

Answer 1

I run this from the script menu, so you will need to tidy it up and modify it for your rule.
AK
<pre style="font-family: 'Monaco', 'Courier New', Courier, monospace; overflow:auto; color: #222; background: #DDD; padding: 0.2em; font-size: 10px; width:400px">on saveAttachments(messageList, theAttachmentPath, FolderName)
set attachmentCount to 0
set WhoSentStuff to "" -- going to stick names in a text file later
tell application "Mail"
repeat with eachMessage in messageList
-- check for attachments  
try
set theHeaders to all headers of eachMessage
set AppleScript's text item delimiters to "multipart/mixed"
if number of text items in theHeaders > 1 then -- check for attachments...  
set theSource to source of eachMessage
set AppleScript's text item delimiters to ""
set Userid to my GetUserid(sender of eachMessage)
set WhoSentStuff to WhoSentStuff & Userid & return
set tempFileName to Userid & " Attachments"
set tempFile to theAttachmentPath & tempFileName
open for access file tempFile with write permission
set eof file tempFile to 0
write theSource to file tempFile as string
close access file tempFile
tell application "StuffIt Expander" to expand {alias tempFile} into alias theAttachmentPath with delete originals
tell application "Finder"
set theFolders to get (every folder in alias theAttachmentPath whose name is (tempFileName & " Folder"))
if (count of theFolders) = 1 then
set thePath to theAttachmentPath & tempFileName & " Folder"
else
set thePath to theAttachmentPath
end if
delete (every file in alias thePath whose name starts with tempFileName & ".attachment")
-- rename file to userid, move it up
set FileList to every file in alias thePath
-- count existing files from this student
set FileIndex to count of (every file in alias theAttachmentPath whose name begins with Userid)
repeat with ThisFile in FileList
set FileName to Userid
if FileIndex > 0 then set FileName to FileName & "." & FileIndex
set FileIndex to FileIndex + 1
set name of ThisFile to FileName & "." & name extension of ThisFile
set attachmentCount to attachmentCount + 1 --count extractions
end repeat
move (every file in alias thePath) to alias theAttachmentPath
if (count of every file in alias thePath) = 0 then
delete alias thePath
end if
end tell
end if -- multipart/mixed message  
on error TheError
display dialog Userid & " -- " & TheError
end try
end repeat
end tell
tell application "Finder"
set DidItFile to open for access theAttachmentPath & FolderName & "-DidItLog" with write permission
write WhoSentStuff to DidItFile starting at eof
close access DidItFile
end tell
return attachmentCount
end saveAttachments
on GetUserid(FullEmail)
(** Return 1st word of email address after <, otherwise just 1st word **)
set WhoDunIt to words of FullEmail
repeat until WhoDunIt does not contain "<"
set WhoDunIt to rest of WhoDunIt
end repeat
return item 1 of WhoDunIt
end GetUserid
</pre>