msglayout.cls

基于C-S结构的办公信息数据处理系。经检测绝对可用。类似OutLook界面。

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "MsgLayout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Dim UnRead As Long

Public Sub MsgLyt(sptmessage As String, recordset As String)
On Error Resume Next
Dim j As Long
Dim Counter As Long
Dim PerMessage(6)
Dim Statuse As Long
Dim itm As ListItem
Dim Message As String
With FrmMain.LvMail
FrmMain.MousePointer = 11
FrmMain.TVdir.Enabled = False
FrmDownload.MousePointer = 11
Statuse = UBound(Split(sptmessage, "~}~")) + 1
Call FrmMain.FrmStyle
FrmDownload.ProgressBar1.Max = Statuse
If Not GetRegKey(HKEY_CURRENT_USER, "OfficeMessenger", "DisplayCont", "") = "True" Then .Visible = False
If Not GetRegKey(HKEY_CURRENT_USER, "OfficeMessenger", "HideStatus", "") = "True" Then FrmDownload.Show vbOLEDisplayContent
    Counter = recordset - Statuse
    Statuse = Statuse - 1
    For j = 0 To UBound(Split(sptmessage, "~}~"))

Message = Split(sptmessage, "~}~")(j)
If Message = "" Then GoTo NextMessage

FrmDownload.Label2.Caption = "Recieving Message.." & j + 1 & " of " & Statuse
'FrmDownload.ProgressBar1.ToolTipText = "Recieving Message.." & j + 1 & " of " & Statuse
FrmDownload.ProgressBar1.Value = FrmDownload.ProgressBar1.Value + 1

If j - 3 = UBound(Split(sptmessage, "~}~")) - 4 Then
    FrmDownload.ProgressBar1.Max = j
    FrmDownload.ProgressBar1.Value = j
End If


PerMessage(0) = Split(Message, "~%~")(0) 'Folder
PerMessage(1) = Split(Message, "~*~")(1): PerMessage(1) = Split(PerMessage(1), "~!~")(0) 'ID
PerMessage(2) = Split(Message, "~!~")(1): PerMessage(2) = Split(PerMessage(2), "~#~")(0) 'From
PerMessage(3) = Split(Message, "~#~")(1): PerMessage(3) = Split(PerMessage(3), "~@~")(0) 'Subject
PerMessage(4) = Split(Message, "~@~")(1): PerMessage(4) = Split(PerMessage(4), "~^~")(0) 'Discription
PerMessage(5) = Split(Message, "~^~")(1): PerMessage(5) = Split(PerMessage(5), "