attaching emails?

[David Emme]

--- On 2005-07-11 10:54 AM (-0700), donut wrote:

>Is there a simple way to say, open up Mail, select an email, then  
>link it to an item in Outliner. So basically, I could go through  
>Outliner, see an item, then click a link to open up an email specific  
>to that item?

This script is something I put together to accomplish *some* of what you
want. Notice that I'm using Mailsmith, not Mail, so you will have some
translation to do if you want to make this work for you.

I select a single email message in Mailsmith. I then go to my outline,
click on the outline row under which I want to add the information, and
run the script. The script collects the email Subject and Datetime from
Mailsmith and adds a new row to my outline with that info., coloring the
row for easy identification.

No automatic linking, unfortunately, but maybe this will be helpful until
something better comes along.

-Dave



(*
    Copy data from selected email into a new row following the selected
row.
*)

on run
    set msg to ""
    set emailColor to {65535, 26214, 26214}
    
    tell application "Mailsmith"
        if class of selection is message then
            tell selection
                set msg to msg & "Email: " & subject & "   " & time sent
                set emailSent to time sent
            end tell
        else
            beep
            display dialog "You must have a message selected."
        end if
    end tell
    
    if length of msg > 0 then
        tell application "OmniOutliner"
            tell front document
                set targetRow to selected row 1
                set myRow to (make new row at after targetRow)
                tell myRow
                    set value of cell "Topic" to msg
                    set value of cell "Priority" to "Laurence"
                    set value of cell "Init. Date" to emailSent
                end tell
                set color of text of cell "Topic" of myRow to emailColor
            end tell
        end tell
    end if
end run