I'm trying to modify the default mail integration script to include attachments. I've never worked with AppleScript, and I'm really not sure what I'm doing, but this is what I have so far... Any help at all would be appreciated.
Code:
using terms from application "Mail" -- Trims "foo" down to "foo@bar.com" on trim_address(theAddress) try set AppleScript's text item delimiters to "<" set WithoutPrefix to item 2 of theAddress's text items set AppleScript's text item delimiters to ">" set MyResult to item 1 of WithoutPrefix's text items on error set MyResult to theAddress end try set AppleScript's text item delimiters to {""} --> restore delimiters to default value return MyResult end trim_address on process_message(theMessage) tell application "OmniFocus" log "OmniFocus calling process_message in MailAction script" end tell -- Allow the user to type in the full sender address in case our trimming logic doesn't handle the address they are using. set theSender to sender of theMessage set trimmedSender to my trim_address(theSender) tell application "OmniFocus" set AllowedSender to allowed mail senders if AllowedSender does not contain trimmedSender and AllowedSender does not contain theSender then return end if end tell set theSubject to subject of theMessage set singleTask to false if (theSubject starts with "Fwd: ") then -- Whole forwarded messages shouldn't split. set singleTask to true set theSubject to text 6 through -1 of theSubject end if set theText to theSubject & return & content of theMessage tell application "OmniFocus" tell default document set tTasks to parse tasks with transport text theText as single task singleTask set theTask to item 1 of tTasks tell application "Mail" set attachCount to count of mail attachments of theMessage repeat with theAttachmentIndex from 1 to attachCount set theAttachment to item theAttachmentIndex of mail attachments of theMessage tell application "OmniFocus" set theNote to note of theTask add item theAttachment to attachments of theNote set note of theTask to theNote end tell end repeat end tell end tell end tell end process_message on perform mail action with messages theMessages try set theMessageCount to count of theMessages repeat with theMessageIndex from 1 to theMessageCount my process_message(item theMessageIndex of theMessages) end repeat on error m number n tell application "OmniFocus" log "Exception in Mail action: (" & n & ") " & m end tell end try end perform mail action with messages end using terms from