Re: Droplets

[Julian Vrieslander]

Title: Re: Droplets

On 12/11/04 4:22 AM, "Scott Haneda" <[EMAIL PROTECTED]> wrote:

> I have been exploring the "droplets" for sending attached files to specific
> people.  None of them really cover what I want, and was wondering if others
> maybe know of something that can do this:
>
> When I drop a file or a set of files on the droplet, I would like it to
> simply open a new email message to a specific person, it need not send it,
> as I will more than likely want to type something in.  However, I do want it
> to have a cosmetic email address in the format of:
> First last <[EMAIL PROTECTED]>

I use the AppleScript pasted below.  I compliled it into a droplet and dragged it into my Dock.  Most of the time I use it to send files to my home from my office, or vice versa.  I changed the address property to match your request.

This droplet has a secondary function.  If I click it in the Dock, without dropping files, it will open a new outgoing message window in Entourage.

property my_address : "[EMAIL PROTECTED]"
property my_content : "== see attached files =="

on open the_files
   
    tell me to activate
   
    display dialog "Enter the subject:" default answer "Forwarded Files"
    set the my_subject to text returned of the result
   
    display dialog "Stuff the files?" buttons {"Yes", "No"} default button "No"
    set the compression_setting to button returned of the result
   
    if compression_setting is "Yes" then
       tell application "Microsoft Entourage"
            activate
           set MyMessage to make new draft window with properties ¬
                {recipient:my_address, subject:my_subject, content:my_content, attachment:the_files, encoding:AppleDouble, compression type:stuffit compression}
            send MyMessage
       end tell
   else
       tell application "Microsoft Entourage"
            activate
           set MyMessage to make new draft window with properties ¬
                {recipient:my_address, subject:my_subject, content:my_content, attachment:the_files, encoding:AppleDouble}
            send MyMessage
       end tell
   end if
   
    tell application "Finder"
        activate
   end tell
   
end open

on run
   
    tell application "Microsoft Entourage"
        activate
       set MyMessage to make new draft window with properties ¬
            {recipient:my_address}
    end tell
   
end run


--
Julian Vrieslander <[EMAIL PROTECTED]>