Attaching or linking emails

[David Emme]

On 12- Mar-2006, at 23:08, Simon wrote:

> Hi All,
> Is there anyway to link to emails in Mail.app. At the moment I'm
> saving emails as text files then linking. This is tedious but I need
> to be able to track emails for projects.
> Best wishes

Here's a script that I've used to quickly create a reference (not a
link) to an email message from OO. I'm using Mailsmith, not Mail.app,
but presumably the changes required to the script would not be at all
difficult.

To use:
1. Select an email message (for me, in Mailsmith)
2. Select a row in your outline
3. Run the script, which will create a new outline row below the row you
selected, with a reference to the selected email message.

Adjust to suit.

-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
            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
                end tell
                set color of text of cell "Topic" of myRow to emailColor
            end tell
        end tell
    end if
end run