home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Internet / Mail / YToolsNG.lha / ytoolsng.v1.2 / YTCreformat.rexx.IT < prev    next >
Text File  |  1998-03-17  |  3KB  |  61 lines
  1. /******************************************************************************/
  2. /*                                                                            */
  3. /*                             YTCreformat.rexx                               */
  4. /*                      Copyright ⌐1998 by Dick Whiting                       */
  5. /*                                                                            */
  6. /*----------------------------------------------------------------------------*/
  7. /* Modifica le variabili YTCPATH e ARUN per la tua configurazione.            */
  8. /*----------------------------------------------------------------------------*/
  9. /* Essa determina quale mail Φ selezionata in YAM e chiama YTCreformat con    */
  10. /* il filename (nomefile) come argomento. YTCreformat ti permette di fissare  */
  11. /* le mail con le linee di a capo errate, modificando individualmente le linee*/
  12. /* d'intestazione e corpo, inserendo codici di controllo di MUI nella mail.   */
  13. /*----------------------------------------------------------------------------*/
  14. /*                                                                            */
  15. /* Standard Disclaimer: Io l'ho scritto, per me funziona, non garantisco      */
  16. /* che farα qualcosa di produttivo per qualcun altro, etc. etc. ;-)           */
  17. /*                                                                            */
  18. /*COMUNQUE, se CERTO trovate un uso per esso: Io insegno ai miei bambini ed   */
  19. /*gradirebbero una cartolina illustrata di dove vivete.                       */
  20. /*                                                                            */
  21. /*Lezione rapida di GEOGRAFIA;)                                               */
  22. /*                                                                            */
  23. /*                                                                            */
  24. /*Cartoline:    Dick Whiting                                                  */
  25. /*              28590 S. Beavercreek Rd.                                      */
  26. /*              Mulino, Oregon 97042                                          */
  27. /*              USA                                                           */
  28. /*                                                                            */
  29. /*----------------------------------------------------------------------------*/
  30. /*                                                                            */
  31. /* Indirizzo per comunicazione di problemi di funzionamento o commenti a:     */
  32. /*                Dick Whiting <dwhiting@europa.com>                          */
  33. /*                          17 Feb 1998                                       */
  34. /*                                                                            */
  35. /******************************************************************************/
  36. /*
  37. $VER: 1.0 Copyright ⌐1998 by Dick Whiting
  38. $AUTHOR: Dick Whiting
  39. $DESCRIPTION: Chiama YTCreformat per la YAM mail selezionata.      
  40. */
  41.  
  42. YTCPATH="YAM:rexx/"
  43. ARUN="C:RUN >NIL: "
  44.  
  45. options results
  46.  
  47. address YAM 'GETMAILINFO ' filename
  48. mailfile=result
  49.  
  50. if mailfile='RESULT' then do
  51.     Adress YAM 'REQUEST "Scegli una mail da riformattare" "Okay"'
  52.     exit
  53. end
  54.  
  55. pragma('STACK',8192)
  56. pragma('D',YTCPATH)
  57.  
  58. Address Command ARUN YTCPATH"YTCreformat MAIL="mailfile
  59.  
  60. exit
  61.