home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / Shareware City / Comms and Networking / QuickAgent / Sample AppleScripts / sample 3 < prev    next >
Encoding:
Text File  |  1994-08-21  |  364 b   |  16 lines  |  [TEXT/ToyS]
  1. tell application "QuickAgent"
  2.     set msgCnt to number of messages
  3.     set msgNr to 1
  4.     repeat while msgNr ≤ msgCnt
  5.         set subTxt to Subject (msgNr)
  6.         set msgTxt to Message body (msgNr)
  7.         display dialog subTxt
  8.         if msgTxt = "" then
  9.             set msgTxt to "***EMPTY***"
  10.         else
  11.             set msgTxt to msgTxt
  12.         end if
  13.         display dialog msgTxt
  14.         set msgNr to msgNr + 1
  15.     end repeat
  16. end tell