home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 6.ddi / SAMPLES / MAILMENU / MAILMENU.PRG < prev    next >
Encoding:
Text File  |  1993-09-09  |  3.5 KB  |  134 lines
  1. *       *********************************************************
  2. *       *
  3. *       * 07/03/93            MAILMENU.PRG              23:33:45
  4. *       *
  5. *       *********************************************************
  6. *       *
  7. *       * Author's Name
  8. *       *
  9. *       * Copyright (c) 1993 Company Name
  10. *       * Address
  11. *       * City,     Zip
  12. *       *
  13. *       * Description:
  14. *       * This program was automatically generated by GENMENU.
  15. *       *
  16. *       *********************************************************
  17.  
  18.  
  19. *       *********************************************************
  20. *       *
  21. *       *                        Setup Code
  22. *       *
  23. *       *********************************************************
  24. *
  25.  
  26. *Need to set paths for file locations
  27. PRIVATE getlib,oldtalk
  28. IF SET("TALK") = "ON"
  29.     SET TALK OFF
  30.     m.oldtalk = "ON"
  31. ELSE
  32.     m.oldtalk = "OFF"
  33. ENDIF
  34.  
  35. ON ERROR *
  36. * IF !FILE('MAPILIB.PRG')
  37. *    getlib=LOCFILE('MAPILIB.PRG','PRG','Locate MAPILIB.PRG:')
  38. *    IF !'MAPILIB'$UPPER(getlib)
  39. *        ON ERROR
  40. *        WAIT WINDOW 'User aborted.' TIMEOUT 1
  41. *        SET TALK &oldtalk
  42. *        RETURN
  43. *    ENDIF
  44. * ENDIF
  45.  
  46. IF !FILE('READMAIL.PRG')
  47.     getlib=LOCFILE('READMAIL.PRG','PRG','Locate READMAIL.PRG:')
  48.     IF !'READMAIL'$UPPER(getlib)
  49.         ON ERROR
  50.         WAIT WINDOW 'User aborted.' TIMEOUT 1
  51.         SET TALK &oldtalk
  52.         RETURN
  53.     ENDIF
  54. ENDIF
  55. ON ERROR
  56.  
  57. DO CASE
  58.     CASE TYPE('mailsession')#'N'
  59.         PUBLIC mailsession
  60.         mailsession = 0
  61.         mailsession=mapilib('LOGON')
  62.     CASE mailsession=0
  63.         mailsession=mapilib('LOGON')
  64. ENDCASE
  65.  
  66. IF mailsession=0
  67.     SET TALK &oldtalk
  68.     RETURN
  69. ENDIF
  70.  
  71. *       *********************************************************
  72. *       *
  73. *       *                      Menu Definition
  74. *       *
  75. *       *********************************************************
  76. *
  77.  
  78. SET SYSMENU AUTOMATIC
  79.  
  80. DEFINE PAD mail OF _msysmenu PROMPT "\<Mail" COLOR SCHEME 3 ;
  81.     KEY alt+m, ""
  82. ON PAD mail OF _msysmenu ACTIVATE POPUP mail
  83.  
  84. DEFINE POPUP mail MARGIN RELATIVE SHADOW COLOR SCHEME 4
  85. DEFINE BAR 1 OF mail PROMPT "\<Send Mail..."
  86. DEFINE BAR 2 OF mail PROMPT "\<Read Mail..."
  87. DEFINE BAR 3 OF mail PROMPT "\-"
  88. DEFINE BAR 4 OF mail PROMPT "\<MAPI Help"
  89. DEFINE BAR 5 OF mail PROMPT "\-"
  90. DEFINE BAR 6 OF mail PROMPT "\<Close"
  91. ON SELECTION BAR 1 OF mail DO LOCFILE('SENDMAIL.PRG','PRG','Locate SENDMAIL.PRG')
  92. ON SELECTION BAR 2 OF mail DO LOCFILE('READMAIL.PRG','PRG','Locate READMAIL.PRG')
  93. ON SELECTION BAR 4 OF mail =mapilib('MAILHELP')
  94. ON SELECTION BAR 6 OF mail ;
  95.     DO _qh71ei4pj ;
  96.     IN LOCFILE("MAILMENU\MAILMENU" ,"MPX;MPR|FXP;PRG" ,"Where is MAILMENU?")
  97.  
  98.  
  99. *       *********************************************************
  100. *       *
  101. *       *                 Cleanup Code & Procedures
  102. *       *
  103. *       *********************************************************
  104. *
  105.  
  106. SET TALK &oldtalk
  107. WAIT WINDOW 'Mail menu now installed.' TIMEOUT 1
  108.  
  109.  
  110. *       *********************************************************
  111. *       *
  112. *       * _QH71EI4PJ  ON SELECTION BAR 6 OF POPUP mail
  113. *       *
  114. *       * Procedure Origin:
  115. *       *
  116. *       * From Menu:  MAILMENU.PRG,            Record:   10
  117. *       * Called By:  ON SELECTION BAR 6 OF POPUP mail
  118. *       * Prompt:     Close
  119. *       * Snippet:    1
  120. *       *
  121. *       *********************************************************
  122. *
  123. PROCEDURE _qh71ei4pj
  124.     IF SET("TALK") = "ON"
  125.         SET TALK OFF
  126.         m.oldtalk= "ON"
  127.     ELSE
  128.         m.oldtalk= "OFF"
  129.     ENDIF
  130.     =mapilib('LOGOFF',mailsession)
  131.     mailsession=0
  132.     RELEASE PAD mail OF _msysmenu
  133.     SET TALK &oldtalk
  134.