Re:

[Barry Wainwright]

Title: Re:

On 21/5/04 1:03 pm, "SVEN AERTS" <[EMAIL PROTECTED]> wrote:

> I'll buy you guys another beer !

I've not drunk the last one yet ;-)

Here's a related one I wrote earlier...

-- Name Attachments 21 Sep 2002
-- A script for Microsoft Entourage by Barry Wainwright
-- <mailto:[EMAIL PROTECTED],net>

tell application "Microsoft Entourage"
    if class of window 1 is draft news window or class of window 1 is draft window then
        tell window 1
            try
                set thenames to name of every attachment
            on error
                return -99 -- silent exit
            end try
            if (count thenames) > 1 then
                set messageText to return & "Files attached: "
                repeat with aName in thenames
                    set messageText to messageText & return & tab & "<" & aName & ">"
                end repeat
                set messageText to messageText & return & return
            else if (count thenames) = 1 then
                set messageText to return & "File attached: " & "<" & thenames & ">" & return & return
            end if
            set selection to messageText
        end tell
    else
        display dialog "This script will only work when a draft message window is open" with icon stop buttons {"Exit Script"} default button 1
    end if
end tell

--
Barry Wainwright
Microsoft MVP (see http://mvp.support.microsoft.com for details)
Seen the All-New Entourage Help Pages? - Check them out:
        <http://www.entourage.mvps.org/>