home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / adm30.lha / ADM / ARexx / ADM-ARexxMakros.lha / Sonstiges / ToolManager_StartADM < prev    next >
Encoding:
Text File  |  1996-02-05  |  1.3 KB  |  52 lines
  1. /* $VER: StartADM_TM v 0.1
  2.  
  3. Dieses Script ist interessant für User, die:
  4.  
  5. - ADM über Toolmanager aufrufen
  6. - und das Programm Voice-Log zum Anwählen benutzen.
  7.  
  8. Dabei kann man dem "ToolmanagerDock" mit diesem Script eine
  9. Doppelfunktion verschaffen.
  10.  
  11. 1. Bei Start (anklicken) vom ToolmanagerDock wird ADM aufgerufen
  12. 2. Bei weiteren Start vom ToolmanagerDock wird der aktuelle Eintrag
  13.    mit Voice-log angewählt.
  14.  
  15. Installation:
  16.  
  17. - Dieses Script in das Verzeichnis deiner Wahl kopieren.
  18.   (Bevorzugt: ADM/Rexx)
  19.  
  20. - Das Script mit einem Editor bearbeiten und den ADMPFAD und
  21.   VoiceLogPath einstellen.
  22.  
  23. - Toolmanager aufrufen. Falls ADM bereits in Toolmanager installiert
  24.   ist, das Programmobjekt AddressMaster anwählen.
  25.   Als "Programmtyp" AREXX wählen und in "BEFEHL" den kompletten Pfad
  26.   dieses Scriptes eintragen.
  27.   Abspeichern, das war es!
  28.  
  29.  
  30. */
  31.  
  32. ADMPFAD  = 'Werkzeuge:Text/Adressen/ADM/AddressMaster'
  33. VoiceLogPath = 'Werkzeuge:Text/Adressen/ADM/LogTel/Voice-Log'
  34.  
  35.  
  36. IF SHOW('PORTS','ADM.1',) THEN DO
  37.      ADDRESS 'ADM.1'
  38.      OPTIONS RESULTS
  39.      quote = '"'
  40.      GETADDRESS Stemmy
  41.      Nam = Stemmy.FIRSTNAME Stemmy.LASTNAME
  42.      Tel = Stemmy.Telephone
  43.      IF Stemmy.SORT = 'COMPANY' THEN Nam = Stemmy.company
  44.      ADDRESS command 'run >NIL:' VoiceLogPath quote||Nam||quote quote||Tel||quote
  45. END
  46. ELSE DO
  47.      ADDRESS COMMAND
  48.      'WBRUN' ADMPFAD
  49. END
  50.  
  51. EXIT
  52.