home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / network / ogmess / greet.txt < prev    next >
Text File  |  1995-02-27  |  831b  |  59 lines
  1. Sub Form_Load ()
  2.     setupflag = False
  3.     setup_rtn
  4.     greeting.windowstate = 1
  5.  
  6. End Sub
  7.  
  8.  
  9.  
  10. Sub Form_Paint ()
  11. If windowstate = 0 Then
  12.     centerwnd greeting
  13. End If
  14.  
  15. End Sub
  16.  
  17. Sub mailchk_tim_Timer ()
  18.  
  19. If Not setupflag Then
  20.     Exit Sub
  21. End If
  22.  
  23. On Error GoTo nomail
  24.  
  25.     Open maildir + username For Input As #1
  26.     
  27.     Close #1
  28.  
  29.     If Not viewmsg Then
  30.        viewform.windowstate = 1
  31.        viewform.Show
  32.        ' viewform.SetFocus
  33.     End If
  34.     
  35.     Exit Sub
  36.  
  37. nomail:
  38.  
  39. ' The user has no mail so we get here this code is
  40. ' done most of the time.
  41. '
  42.     If Err <> 53 Then
  43.         MsgBox "OGMAIL - unexpected error " + Str$(Err)
  44.     End If
  45.     Resume getout
  46.  
  47. getout:
  48.     End Sub
  49.  
  50.  
  51. Sub sendcmd_Click ()
  52. greeting.windowstate = 1
  53. ogsend.Show
  54. ogsend.windowstate = 0
  55.  
  56.  
  57. End Sub
  58.  
  59.