Applescript needed to move Mail attachment to folder

Hey Ron,

I can help you out with this... but I get confused when reading what you want to do exactly.

I understand the mail rule part.

Can you explain better the steps after mail rule gets activated?

for instance I am not sure what you mean by:

The email will contain something like this in the body "message" section of the email.

itemName - Rose_Flower_001.

itemNumber - Fl-652

Are the jpg attachments the same name or completely different?

Thanks

Phil

Ok. Sort of getting it now.

Do you mind doing a screen shot of a sample email with the attachment?

Just open the email and do Command-Shift-4-spacebar and click the window.

Then upload it so I can see. Thanks.

Ok good, almost there! One last question, which is very important to know, in the example you gave above, what is the actual name of the jpg that is attached to the email?

Once I have this I will work out a script for you. Bare with me, I am not a pro but I know the basics.

Ok great. Just trying to establish that the jpg name was different than what you had named in the message body.

Let me get back to you.

Phil

If you are not using Mountain Lion, the following script might do most of what you are asking for. Nothing to lose by trying it. (Under Mountain Lion, the script works fine when messages are selected and the "Apply Rules" menu comand is performed, but it doesn't work at all on incoming emails.)

using terms from application "Mail"

on perform mail action with messagestheMessagesfor ruletheRule

set theBasePath to "/Users/ron/Dropbox/Images" -- POSIX path

tell application "Mail"

repeat with theMessage in theMessages

set theContent to content of theMessage

set N to countparagraphs of theContent

repeat with k from 1 to N

set thisParagraph to paragraphk of theContent

if thisParagraph begins with "itemName" then

set theFolderName to rich text 12 through -1 of thisParagraph

exit repeat

end if

end repeat

repeat with k from 1 to N

set thisParagraph to paragraphk of theContent

if thisParagraph begins with "itemNumber" then

set theFileName to rich text 14 through -1 of thisParagraph & ".jpg"

exit repeat

end if

end repeat

if existsmail attachment 1 of theMessage then

set thisAttachment to mail attachment 1 of theMessage

my getFile(theBasePath, theFolderName, name of thisAttachment)

savethisAttachmentinresult

set read status of theMessage to true

end if

end repeat

end tell

end perform mail action with messages

end using terms from

on getFile(theBasePath, theFolderName, theFileName)

set theBaseFolder to POSIX filetheBasePath

tell application "Finder"

if not (existsfoldertheFolderName of foldertheBaseFolder) then

makenewfolder in foldertheBaseFolderwith properties {name:theFolderName}

end if

repeat until existsfoldertheFolderName of foldertheBaseFolder

-- just wait a little

end repeat

set theFilePath to POSIX path of (foldertheFolderName of foldertheBaseFolder as text) & theFileName

end tell

return POSIX filetheFilePath-- the attachment file

end getFile

Message was edited by: Pierre L.

Good job!!!

Oops…

Please just replace

my getFile(theBasePath, theFolderName, name of thisAttachment)

with

my getFile(theBasePath, theFolderName, theFileName)

in the previous script.

pjdube wrote:

Good job!!!

Have you tried the script? Does it work as expected?

Yes it worked! I just tried it!

Ron is going to be very pleased!!!

Thanks for your help on this.

By the way, where did you learn applescripting?

Here I am showing you the result, after I sent an email to myself with the Subject: Xfer Image:

I just tried it with the same itemName but with a different itemNumber and it detected that the folder existed and filed the image in that folder.

Good job man!

Many thanks for your feedback.

Btw, I think I learned AppleScript mainly by studying the AppleScript Language Guide… if I remember correctly.