home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / network / ogmess / ogsend.txt < prev    next >
Text File  |  1995-02-27  |  2KB  |  107 lines
  1. Sub cancel_btn_Click ()
  2.  
  3. 'This procedure ends the whold program
  4. Unload ogsend
  5. greeting.SetFocus
  6. greeting.windowstate = 1
  7.  
  8. End Sub
  9.  
  10. Sub e_call_Click ()
  11. clipboard.SetText message_entry.text
  12. End Sub
  13.  
  14. Sub e_copy_Click ()
  15. If message_entry.sellength > 0 Then
  16.     clipboard.SetText message_entry.seltext
  17. Else
  18.     MsgBox "No Text Currently Selected", 48
  19. End If
  20. End Sub
  21.  
  22. Sub e_cut_Click ()
  23. If message_entry.sellength > 0 Then
  24.     clipboard.SetText message_entry.seltext
  25.     message_entry.seltext = ""
  26. Else
  27.     MsgBox "No Text Currently Selected", 48
  28. End If
  29.  
  30.  
  31. End Sub
  32.  
  33. Sub e_paste_Click ()
  34. message_entry.seltext = clipboard.GetText()
  35. End Sub
  36.  
  37. Sub f_about_Click ()
  38. about.Show
  39. End Sub
  40.  
  41. Sub f_print_Click ()
  42. stuff$ = message_entry.text
  43. printmsg_rtn stuff$
  44. End Sub
  45.  
  46. Sub f_save_Click ()
  47. savetext = message_entry.text
  48. saveit.Show
  49. End Sub
  50.  
  51. Sub f_setup_Click ()
  52. resetup
  53. End Sub
  54.  
  55. Sub Form_Load ()
  56. '
  57.  
  58.     
  59.  
  60.     windowstate = 0
  61.     Open maildir + "users" For Input As #3
  62.     Do Until EOF(3)
  63.         Input #3, newname$
  64.         select_user_combo.AddItem newname$
  65.     Loop
  66.     select_user_combo.text = select_user_combo.list(0)
  67.     Close #3
  68.     Open namefile For Input As #3
  69.     Input #3, sendname
  70.     Close #3
  71.  
  72.      subj.text = default_subj
  73. End Sub
  74.  
  75. Sub Form_Paint ()
  76. If windowstate = 0 Then
  77. centerwnd ogsend
  78. End If
  79. End Sub
  80.  
  81. Sub send_cmd_Click ()
  82.     
  83.     sndusr$ = select_user_combo.text
  84.     default_subj = subj.text
  85.  
  86. If message_entry.text = "" Then
  87.  
  88.      MsgBox "ERROR - No Message Text or Subject", 48, "OGMESS Send Error"
  89.      message_entry.SetFocus
  90.      Exit Sub
  91. Else
  92.  
  93.     Open maildir + sndusr$ For Append As #1
  94.         Print #1, "Message From -" + sendname + "-"; Space$(1) + Date$ + " - " + Time$
  95.         Print #1, "Subject : " + subj.text
  96.         Print #1, " "
  97.         Print #1, message_entry.text
  98.         Print #1, " "
  99.         Print #1, "============= E N D   O F   M E S S A G E =========="
  100.     Close #1
  101.     MsgBox "Message sent to " + sndusr$, 0, "OGMESSAGE"
  102.     Unload ogsend
  103.  
  104. End If
  105. End Sub
  106.  
  107.