home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / AppleScript / Additions / GTQ Library 1.2 / Sample Scripts / MailWithProp < prev    next >
Encoding:
Text File  |  1994-05-03  |  275 b   |  15 lines  |  [TEXT/ToyS]
  1. property gotAddress : false
  2. property theAddress : 0
  3.  
  4. on send(m)
  5.     get user
  6.     if not gotAddress then
  7.         set theAddress to choose address
  8.         set gotAddress to true
  9.     end if
  10.     mail to theAddress message m
  11. end send
  12.  
  13. on run
  14.     send("Hello there.  This is the text of the letter.")
  15. end run