home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 February / Macworld (2000-02).dmg / Shareware World / Comms & Internet / AutoShare4.1 / Samples / Scripts / Mikael Hansen / Script By Mail / Sample Script Text < prev    next >
Encoding:
Text File  |  1996-11-23  |  1.8 KB  |  53 lines  |  [TEXT/R*ch]
  1. -- ScriptServer returns a -2741 error (OSASyntaxTypeError: signaled when another
  2. -- form of syntax was expected, e.g. "expected a <type> but found <this>".),
  3. -- when the script to be compiled tries to use commands such as 'open for access
  4. -- file' or 'load script file' (it may relate to the use of 'file'). The solution
  5. -- is to put a 'tell application "Finder"' + 'end tell' block around the line in
  6. -- question.
  7.  
  8. -- you MUST update these properties and the last line's password!
  9. -- the path of the folder for additional scripts
  10. property scriptPath: "disk:ScriptMail:"
  11. -- the path and name of the file in the docs/autoshare folder
  12. property resultPath: "disk:auto:docs:autoshare:"
  13. property resultName: "Result"
  14. -- the name and address of the person the return mail is sent to
  15. property addressName: "ab"
  16. property addressEmail: "a@b"
  17.  
  18. -- properties
  19. property utilScript: "Utilities"
  20. property resultFile: resultPath & resultName
  21. property stringResult: ""
  22. property listResult: {}
  23. property myResult: {}
  24.  
  25. -- library routines
  26. global myUtilities
  27. tell application "Finder"
  28.   set myUtilities to load script file (scriptPath & utilScript)
  29. end tell
  30.  
  31. -- issue a command to AutoShare
  32. tell application "AutoShare.68k"
  33.     -- set strResult to (subscribe List "fun-l" Name "hi" Email "h@i")
  34.     set listResult to GetLists
  35. end tell
  36.  
  37. -- In AppleScript, a list must be a list of more than one!
  38. -- set myResult to {"---", stringResult, "---"}
  39. set myResult to {"---"} & listResult & {"---"}
  40.  
  41. -- myResult MUST be a list of strings! Use another variable, if needed
  42. tell myUtilities
  43.     WriteListToFile(resultFile,myResult)
  44. end tell
  45.  
  46. -- return the result from the AutoShare command to the sender
  47. tell application "AutoShare.68k"
  48.     File Mail Name addressName Email addressEmail Command resultName
  49. end tell
  50.  
  51. -- keep the password as the first word in the last line
  52. -- fun
  53.