tell application "Microsoft Entourage"
try
activate
set theMsg to item 1 of (get current messages)
on error
display dialog "You must select one message."
return
end try
set theSub to subject of theMsg
try
set nList to name of attachments of theMsg
on error theErr
display dialog theErr
end try
set oldDelims to AppleScript's text item delimiters
set AppleScript's text item delimiters to {return}
set theList to nList as text
set AppleScript's text item delimiters to oldDelims
set theList to "Attachments to message " & theSub & return & theList
set the clipboard to theList
display dialog "List on clipboard:" & return & theList
end tell
That will put the list on the clipboard; you can paste it anywhere in the message you like. To append it to the message, you could replace the "display dialog" line with:
set the content of theMsg to (the content of theMsg & return & theList)
Note that the latter method will forcibly convert any HTML message into plain text. The clipboard method lets you avoid that.
On or near 5/2/02 7:51 AM, Don Koller at [EMAIL PROTECTED] observed:
- The printout never lists attachments (I want them listed most of the time).
--
My web page: <http://home.earthlink.net/~allenwatson/>
My scripts page: <http:homepage.mac.com/allenwatson>
Microsoft MVP for Mac Entourage/Word--<[EMAIL PROTECTED]>
