Re: Insert Explorer URL script

[Allen Watson]

Title: Re: Insert Explorer URL script

<file:///Little%20Brother/Web%20Pages/Circle.html>
On or near 11/12/00 10:29 AM, Ronald Guest at [EMAIL PROTECTED] observed:

> In OE, there was a script I could run that would insert the URL in the
> front-most window of Explorer into a message composition window. In
> Entourage this is now a multi-step process (because even if there is only
> one IE window open you have to go through a selection dialog). I do this
> operation a lot and would prefer to avoid the extra step. Will the script
> from OE work? Is there a replacement script already in existence?

Just change the app name to Entourage, like this:

on run
    
    set theURL to ""
    
    -- get URL from Internet Explorer
    try
        tell application "Internet Explorer"
            set theFrontmostWindowID to item 1 of (ListWindows)
            set theFrontmostWindowInfo to (GetWindowInfo theFrontmostWindowID)
            set theURL to item 1 of theFrontmostWindowInfo
        end tell
    on error
        display dialog "There was an error getting the address from Internet Explorer" buttons {"OK"}
    end try
    
    -- paste it into the message
    if the length of theURL is greater than 0 then
        try
            tell application "Microsoft Entourage"
                set selection to ("<" & theURL & ">")
            end tell
        on error
            display dialog "This script can only insert into the body of a message" buttons {"OK"}
            
        end try
    end if
end run
--
Peace,
Allen Watson <[EMAIL PROTECTED]> XNS name: =Allen Watson
A Mac family since 1984
My web page: <http://home.earthlink.net/~allenwatson/>