home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Internet / Mail / YToolsNG.lha / ytoolsng.v1.2 / YTCunmime.rexx.IT < prev   
Text File  |  1998-03-17  |  3KB  |  60 lines
  1. /******************************************************************************/
  2. /*                                                                            */
  3. /*                             YTCunmime.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 YTCunmime con      */
  10. /* il filename (nomefile) come argomento. YTCunmime ti permette di modificare */
  11. /* il Quoted-Printable della mail in un formato ad 8bit.                               */
  12. /*----------------------------------------------------------------------------*/
  13. /*                                          */
  14. /* Standard Disclaimer: Io l'ho scritto, per me funziona, non garantisco      */
  15. /* che farα qualcosa di produttivo per qualcun altro, etc. etc. ;-)           */
  16. /*                                                                            */
  17. /*COMUNQUE, se CERTO trovate un uso per esso: Io insegno ai miei bambini ed   */
  18. /*gradirebbero una cartolina illustrata di dove vivete.                       */
  19. /*                                                                            */
  20. /*Lezione rapida di GEOGRAFIA;)                                               */
  21. /*                                                                            */
  22. /*                                                                            */
  23. /*Cartoline:    Dick Whiting                                                  */
  24. /*              28590 S. Beavercreek Rd.                                      */
  25. /*              Mulino, Oregon 97042                                          */
  26. /*              USA                                                           */
  27. /*                                                                            */
  28. /*----------------------------------------------------------------------------*/
  29. /*                                                                            */
  30. /* Indirizzo per comunicazione di problemi di funzionamento o commenti a:     */
  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: Chiama YTCunmime per la YAM mail selezionata.      
  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 "Scegli una mail da convertire" "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.