Mac OS: Автоматизатор-скрипт для збереження пошти в автоматично створених папках

Я розглядаю автоматизатор і мені це потрібно, щоб допомогти мені виконати наступне просте завдання:

Мені потрібно мати вкладені файли з кількох повідомлень, відсортованих у папці в Пошті, завантажених та збережених у папках, названих електронною адресою відправника.

Якщо можливо, я хотів би отримати стенограму збереженої пошти разом із вкладеннями (можливо це можна зробити, надрукувавши PDF-файл?)

Я ніколи не використовував автоматизатор, але в даний час я налаштував дію "Отримати вказані поштові відправлення", який підключений до потрібної папки в пошті, і я створив "Отримати вкладення з поштового повідомлення", але мені потрібно дізнайтеся, як назвати папки за іменами відправника та як зберегти їх у цих папках.

Вам, мабуть, краще використовувати Applescript або щось подібне, що дозволяє вам більше контролювати маніпулювання властивостями окремих повідомлень.

РЕДАКТУВАННЯ: Взяв набагато більше спроб та помилок, ніж я вважав, що це буде, але ви повинні мати можливість вибрати пакет повідомлень, запустити цей сценарій та дозволити йому виплювати папки для кожного відправника у будь-яку папку, яку ви вказали на початку. Він не здійснює ведення журналів, але, можливо, його достатньо, щоб розпочати роботу.

Я також зазначу, що команда збереження [вкладення] в [attachmentPath] команда порушена в Lion 10.7 та 10.7.1 (я думаю, це обидва), але, здається, виправлена ​​в 10.7.2, виходячи з того, що я був читання. Тож YMMV, якщо ви не працюєте з 10.7.2.

ЗНО ЗНО: Більше редагувань ... зараз ми не будемо створювати папки для повідомлень, які не мають вкладень ...

tell application "Mail"
    set selectedMessages to selection

    set destinationFolder to choose folder with prompt "Pick a Destination"

    repeat with currentMessage in selectedMessages
        repeat 1 times
            set msgSender to sender of currentMessage
            set msgAttachments to mail attachments of currentMessage
            if (msgAttachments is equal to {}) then
                exit repeat
            end if
            tell application "Finder"
                if not (exists folder msgSender of destinationFolder) then
                    set senderFolder to (make new folder at destinationFolder with properties {name:msgSender})
                else
                    set senderFolder to (folder msgSender of destinationFolder)
                end if
            end tell

            repeat with currentAttachment in msgAttachments
                if (downloaded of currentAttachment is true) then
                    set currentAttachmentPath to (senderFolder as string) & (name of currentAttachment)
                    save currentAttachment in currentAttachmentPath
                end if
            end repeat
        end repeat
    end repeat

end tell