0

特定のフィルター YYYY) に一致するメッセージを取得し、添付ファイルをそのままにして、Evernote (XXXX) の特定のノートブックに転送する AppleScript を作成しようとしています。これまでのところ、このスクリプトで Evernote ノートブックへの転送を処理できるようになりましたが、添付ファイルを正しく処理できないようです。

フィルタ (メッセージを受信したときに実行されるのが理想的) によって検出された電子メールのすべての添付ファイルを、新しい転送電子メールに添付するにはどうすればよいですか?

using terms from application "Mail"
    on perform mail action with messages selection for rule YYYY
        tell application "Mail"
            set theSelection to selection
            set thesubject to subject of item 1 of theSelection
            set theAttachments to every attachment of content of theSelection
            set theForwardedMessage to forward (item 1 of theSelection) with opening window

            tell theForwardedMessage
                make new to recipient at end of to recipients with properties {address:"ZZZZ"}

                set subject to subject of item 1 of theSelection & " @XXXX"
                repeat with a from 1 to length of theAttachments
                    log "message_attachment =" & a
                    make new attacment with properties {filename:a} at after last paragraph
                end repeat
                send
            end tell
        end tell
    end perform mail action with messages
end using terms from
4

1 に答える 1

0

少し前に誰かのために書いたスクリプトを掘り出しました。

Mail.app で選択したメールに対して機能し、添付ファイルをユーザーの一時フォルダーに保存します。次に、それらを新しいメールに追加します。私が言ったように、元の電子メールから添付ファイルを取り出して新しい電子メールにすることはできません。

これをメール ルールに戻すのはそれほど難しいことではありません。

いずれにせよ、スクリプトには明らかに変更すべき点があります。新しいメールを開いて表示するのではなく、送信するようにします。そして体、主題など..

    #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 "forwarded email"
            set theBody to " body of email "
            set theAddress to "youeEmail@me.com"


            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
                    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
于 2013-09-18T16:53:34.940 に答える