home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / comms / other / ytoolsng.v1.2 / ytcunmime.rexx.dk < prev    next >
Text File  |  1998-04-27  |  3KB  |  60 lines
  1. /******************************************************************************/
  2. /*                                                                            */
  3. /*                             YTCunmime.rexx                                 */
  4. /*                    Copyright ©1998 by Dick Whiting                         */
  5. /*                                                                            */
  6. /*----------------------------------------------------------------------------*/
  7. /* Modify variables YTCPATH and ARUN for your system configuration.           */
  8. /*----------------------------------------------------------------------------*/
  9. /* This one determines which mail is selected in YAM and calls YTCunmime      */
  10. /* with the full filename as an argument. YTCunmime allows for changing       */
  11. /* Quoted-Printable mail to 8bit format.                                      */
  12. /*----------------------------------------------------------------------------*/
  13. /*                                                                            */
  14. /* Standard Disclaimer: I wrote it, it works for me, I don't guarantee        */
  15. /* that it will do anything productive for anyone else, etc. etc. ;-)         */
  16. /*                                                                            */
  17. /*HOWEVER, if you DO find a use for it: I homeschool my kids and they         */
  18. /*would love a postcard from where EVER you live.                             */
  19. /*                                                                            */
  20. /*Instant GEOGRAPHY lesson;)                                                  */
  21. /*                                                                            */
  22. /*                                                                            */
  23. /*POSTCARDS:    Dick Whiting                                                  */
  24. /*              28590 S. Beavercreek Rd.                                      */
  25. /*              Mulino, Oregon 97042                                          */
  26. /*              USA                                                           */
  27. /*                                                                            */
  28. /*----------------------------------------------------------------------------*/
  29. /*                                                                            */
  30. /*               Address Bug Reports or Comments to:                          */
  31. /*                Dick Whiting <dwhiting@europa.com>                          */
  32. /*                          17 Feb 1998                                       */
  33. /*                                                                            */
  34. /******************************************************************************/
  35. /*
  36. $VER: 1.0 Copyright ©1998 by Dick Whiting
  37. $AUTHOR: Dick Whiting
  38. $DESCRIPTION: Call YTCunmime for the selected YAM mail.      
  39. */
  40.  
  41. YTCPATH="YAM:rexx/"
  42. ARUN="C:RUN >NIL: "
  43.  
  44. options results
  45.  
  46. address YAM 'GETMAILINFO ' filename
  47. mailfile=result
  48.  
  49. if mailfile='RESULT' then do
  50.     Adress YAM 'REQUEST "Vælg en email som skal konvateres" "Okay"'
  51.     exit
  52. end
  53.  
  54. pragma('STACK',8192)
  55. pragma('D',YTCPATH)
  56.  
  57. Address Command ARUN "YTCPATH"YTCunmime MAIL="mailfile
  58.  
  59. exit
  60.