Re: Looking for Entourage contextual menu

[Allen Watson]

Title: Re: Looking for Entourage contextual menu

On or near 7/8/04 11:51 AM, tuqqer at [EMAIL PROTECTED] observed:

> Back in OS 9 ( think) I could right-click on any file, and one of the
> drop-down contextual menus was "Email..." and boom, an Entourage email would
> open up with that file already to get emailed.
>
> Anyone ever figured out a way that places this option back in there? I'm
> currently trying out Entourage 2004, and was hoping this would appear again.
>
It was a third-party contextual menu thingie, and it has not been ported to OS X.

You could use an AppleScript to do it if you don't like dragging to the Dock; then use Script Menu to fire the script instead of a CM. Or else, get "BigCat", which puts up a CM into which you can deposit AppleScripts.

on run
    tell application "Finder"
        activate
        set fs to {}
        try
            set fs to the selection
        end try
        if kind of (fs as alias) is "folder" then
            display dialog "Do you really want to attach a folder?" buttons {"Yes", "No"} default button 2
            if button returned of result is "No" then
                set f to choose file with prompt "Select file to be attached."
                set fs to {}
                copy f to end of fs
            end if
        end if
    end tell
    if fs is {} then
        set f to choose file with prompt "Select file to be attached."
        copy f to end of fs
    end if
    my attachToMessage(fs)
end run

on open (fs)
    if fs is {} then
        set f to choose file with prompt "Select file to be attached."
        copy f to end of fs
    end if
    my attachToMessage(fs)
end open

on attachToMessage(fs)
    tell application "Microsoft Entourage"
        activate
        try
            set c to class of the front window
        on error
            set c to ""
        end try
        if class of the front window is not draft window then
            make new draft window
        end if
        try
            save the front window
            set theMsg to displayed feature of window 1 -- if open in its own window or the preview pane
            
        on error
            set currMsgs to (current messages) -- if selected in Message Pane without preview pane
            if (count of currMsgs) = 1 then
                set theMsg to item 1 of currMsgs
            else
                beep
                display dialog "! You can only attach files to open draft messages." buttons "OK" default button "OK" with icon 0
                return
            end if
        end try
        repeat with anItem in fs
            tell application "Finder" to set f to anItem as text
            try
                make new attachment at theMsg with properties {file:f}
                close the front window -- Do not save it; overwrites one with attachment!
                open theMsg
            on error theErr
                display dialog theErr
                return
            end try
        end repeat
    end tell
end attachToMessage