Problems with script for getting names of attachments.

[Justin Beek]

Is there a better way to get the names of attachments so that they are 
returned more "readable" form. (I'd prefer that they be comma-separated)
See an example script below and the difference between what is 
collected and what is reported in the Event Log.

Background: In our current workflow, all incoming mail gets the 
attachments saved to a specific folder on the server and then the 
message if forwarded, sans files, to another user. Having all the 
attachment names running together is quite hard to read.

Thanks,
Justin


Example Script:
try
        tell application "PowerMail 5.2.3"
                activate
                set theMessages to the current messages
                repeat with theMsg in theMessages
                        set origAttach to name of attachments of theMsg as list
                        display dialog "These files are attached: " & 
origAttach & return
                end repeat
        end tell
end try


The Event Log shows:
tell application "PowerMail 5.2.3"
        activate
        get current messages
                --> {message id 16777866}
        get name of every attachment of message id 16777866
                --> {"FW_ Coleman Logo.html", "YorkMailLogo.gif"}
        display dialog "These files are attached: FW_ Coleman 
Logo.htmlYorkMailLogo.gif"
                --> {button returned:"OK"}
end tell