home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / mailx4 / ocxstep3.fr_ / ocxstep3.bin (.txt)
Encoding:
Visual Basic Form  |  1996-11-20  |  5.5 KB  |  178 lines
  1. VERSION 4.00
  2. Begin VB.Form FormStep1 
  3.    Caption         =   "Mail eXtension Step #3"
  4.    ClientHeight    =   5295
  5.    ClientLeft      =   1440
  6.    ClientTop       =   1530
  7.    ClientWidth     =   6735
  8.    Height          =   5670
  9.    Left            =   1395
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5295
  12.    ScaleWidth      =   6735
  13.    Top             =   1200
  14.    Width           =   6825
  15.    Begin VB.PictureBox Picture1 
  16.       Align           =   2  'Align Bottom
  17.       Height          =   495
  18.       Left            =   0
  19.       ScaleHeight     =   465
  20.       ScaleWidth      =   6705
  21.       TabIndex        =   0
  22.       Top             =   4800
  23.       Width           =   6735
  24.       Begin VB.Label szStatus 
  25.          Caption         =   "No Active Session"
  26.          Height          =   255
  27.          Left            =   120
  28.          TabIndex        =   3
  29.          Top             =   120
  30.          Width           =   4695
  31.       End
  32.    End
  33.    Begin Threed.SSPanel SSPanel1 
  34.       Align           =   1  'Align Top
  35.       Height          =   1095
  36.       Left            =   0
  37.       TabIndex        =   1
  38.       Top             =   0
  39.       Width           =   6735
  40.       _version        =   65536
  41.       _extentx        =   11880
  42.       _extenty        =   1931
  43.       _stockprops     =   15
  44.       backcolor       =   12632256
  45.       bevelinner      =   1
  46.       Begin Threed.SSCommand SSCommand1 
  47.          Height          =   855
  48.          Left            =   120
  49.          TabIndex        =   2
  50.          Top             =   120
  51.          Width           =   1215
  52.          _version        =   65536
  53.          _extentx        =   2143
  54.          _extenty        =   1508
  55.          _stockprops     =   78
  56.          caption         =   "Login cc:Mail"
  57.          picture         =   "OCXSTEP3.frx":0000
  58.       End
  59.    End
  60.    Begin Mailx16Lib.MForm MForm1 
  61.       Left            =   480
  62.       Top             =   4440
  63.       _version        =   65541
  64.       _extentx        =   10398
  65.       _extenty        =   500
  66.       _stockprops     =   0
  67.       mxformname      =   "FormTag2"
  68.    End
  69.    Begin Mailx16Lib.MSess MSess1 
  70.       Left            =   120
  71.       Top             =   3840
  72.       _version        =   65541
  73.       _extentx        =   900
  74.       _extenty        =   900
  75.       _stockprops     =   0
  76.       mail_type       =   2
  77.       displayerrors   =   0   'False
  78.    End
  79.    Begin Mailx16Lib.MMsg MMsg1 
  80.       Left            =   120
  81.       Top             =   3000
  82.       _version        =   65541
  83.       _extentx        =   900
  84.       _extenty        =   900
  85.       _stockprops     =   0
  86.       markasread      =   0   'False
  87.       displayerrors   =   0   'False
  88.       bindstring      =   "MSess1"
  89.    End
  90.    Begin TabDlg.SSTab SSTab1 
  91.       Height          =   3255
  92.       Left            =   120
  93.       TabIndex        =   4
  94.       Top             =   1200
  95.       Width           =   6495
  96.       _version        =   65536
  97.       _extentx        =   11456
  98.       _extenty        =   5741
  99.       _stockprops     =   15
  100.       caption         =   "Inbox Messages"
  101.       tabsperrow      =   5
  102.       tab             =   0
  103.       taborientation  =   0
  104.       tabs            =   1
  105.       style           =   1
  106.       tabmaxwidth     =   0
  107.       tabheight       =   529
  108.       tabcaption(0)   =   "Inbox Messages"
  109.       tab(0).controlcount=   3
  110.       tab(0).controlenabled=   -1  'True
  111.       tab(0).control(0)=   "Outline1"
  112.       tab(0).control(1)=   "Label1"
  113.       tab(0).control(2)=   "szTotal"
  114.       Begin VB.Label szTotal 
  115.          Height          =   255
  116.          Left            =   2040
  117.          TabIndex        =   7
  118.          Top             =   2880
  119.          Width           =   1935
  120.       End
  121.       Begin VB.Label Label1 
  122.          Caption         =   "Total Inbox Messages:"
  123.          Height          =   255
  124.          Left            =   240
  125.          TabIndex        =   6
  126.          Top             =   2880
  127.          Width           =   1695
  128.       End
  129.       Begin MSOutl.Outline Outline1 
  130.          Height          =   2295
  131.          Left            =   240
  132.          TabIndex        =   5
  133.          Top             =   480
  134.          Width           =   5655
  135.          _version        =   65536
  136.          _extentx        =   9975
  137.          _extenty        =   4048
  138.          _stockprops     =   77
  139.          backcolor       =   16777215
  140.          mouseicon       =   "OCXSTEP3.frx":0452
  141.          pictureplus     =   "OCXSTEP3.frx":046E
  142.          pictureminus    =   "OCXSTEP3.frx":05E0
  143.          pictureleaf     =   "OCXSTEP3.frx":0752
  144.          pictureopen     =   "OCXSTEP3.frx":08C4
  145.          pictureclosed   =   "OCXSTEP3.frx":0A36
  146.       End
  147.    End
  148. Attribute VB_Name = "FormStep1"
  149. Attribute VB_Creatable = False
  150. Attribute VB_Exposed = False
  151. Private Sub SSCommand1_Click()
  152.     MSess1.Logon = True
  153.     If MSess1.Logon = True Then
  154.         szStatus = "Active cc:Mail Session"
  155.     Else
  156.         szStatus = "No Active Session"
  157.     End If
  158.     Refresh_Inbox
  159. End Sub
  160. Public Sub Refresh_Inbox()
  161.     Outline1.Clear
  162.     If MSess1.Logon = True Then
  163.         SSTab1.MousePointer = 11
  164.         nMsg = MMsg1.MsgCount
  165.         szTotal = nMsg
  166.         MMsg1.Action = ACTION_FINDFIRST
  167.         Do
  168.             If MMsg1.FetchMsg <> 0 Then
  169.                 Outline1.AddItem MMsg1.Subject
  170.                 MMsg1.Action = ACTION_FINDNEXT
  171.             End If
  172.         Loop While MMsg1.FetchMsg <> 0
  173.         SSTab1.MousePointer = 1
  174.     Else
  175.         szTotal = 0
  176.     End If
  177. End Sub
  178.