-- Assumes the message is in front and relies on it being the most recent message with the same title in the Drafts folder.
tell application "Mail"
set windowName to the name of the first window
repeat with aMessage in the messages of drafts mailbox
if the subject of aMessage is windowName then
set theMessage to contents of aMessage
exit repeat
end if
end repeat
set foundAttachments to every mail attachment of theMessage
if (count of foundAttachments) > 0 then
set attachmentNames to ""
repeat with anAttachment in foundAttachments
set attachmentNames to attachmentNames & the name of anAttachment & return
end repeat
set dialogText to "The following files were attached to the currently open draft message \"" & windowName & "\":" & return & attachmentNames
display dialog dialogText
end if
end tell