'在尚未閱讀過的郵件之前用“*”表示（conUnreadMessage="*"）
        a$ = conUnreadMessage + ""
        If UnRead = 0 Then
            '標識第一封沒有閱讀過的郵件的位置
            startindex = i
        End If
        'UnRead為計算沒有閱讀過的郵件的數量
        UnRead = UnRead + 1
    Else
        a$ = " "
    End If
    '取得當前索引消息的原始發件人的名字
    a$ = a$ + Mid$(Format$(mailctl.MsgOrigDisplayName, "!" + String$(10, "@")), 1, 10)
    If mailctl.MsgSubject <> "" Then
        '取得當前索引消息的主題
        b$ = Mid$(Format$(mailctl.MsgSubject, "!" + String$(35, "@")), 1, 35)
    Else
        b$ = String$(30, "")
    End If
    '取得當前消息的接收時間
    c$ = Mid$(Format$(DateFromMapiDate(mailctl.MsgDateReceived, conMailListView), "!" + String$(15, "@")), 1, 15)
    '將消息的頭信息添加到列表框中
    MailLst.Mlist.AddItem a$ + Chr$(9) + b$ + Chr$(9) + c$
    MailLst.Mlist.Refresh
Next i
'消息列表框的索引在第一條沒有閱讀的消息的位置
MailLst.Mlist.ListIndex = startindex
VBMail.Toolbar1.Buttons("Next1").Enabled = True
VBMail.Toolbar1.Buttons("Previous1").Enabled = True
VBMail.Toolbar1.Buttons("Delete").Enabled = True
If UnRead Then
    '在狀態欄中顯示沒有閱讀的消息的數量
    VBMail.Statusbar1.Panels(1) = "收信箱里共有" + Format$(VBMail.MAPIMess.MsgCount) + "郵件，其中有" + Format$(UnRead) + "未讀"
Else
    VBMail.Statusbar1.Panels(1) = ""
End If
End Sub
Sub LoadMessage(ByVal Index As Integer, msg As Form)
'將當前消息（根據Index)裝載到窗體msg中
'msg窗體可以是查看消息的窗體MsgView，
'也可以是書寫新消息的窗體NewMsg
If TypeOf msg Is MsgView Then
    '如果裝載消息到查看消息的窗體，則根據該消息是否
    '被閱讀來清楚消息未讀的標志“*”
    a$ = MailLst.Mlist.List(Index)
    If Mid$(a$, 1, 1) = conUnreadMessage Then
        Mid$(a$, 1, 1) = ""
        MailLst.Mlist.List(Index) = a$
        UnRead = UnRead - 1
        If UnRead Then
            '閱讀的是新消息，則未讀消息的數量-1
            VBMail.Statusbar1.Panels(1) = "收信箱里共有" + Format$(VBMail.MAPIMess.MsgCount) + "郵件，其中有" + Format$(UnRead) + "未讀"
        Else
            VBMail.Statusbar1.Panels(1) = "收信箱里共有" + Format$(VBMail.MAPIMess.MsgCount) + "郵件，其中有" + Format$(UnRead) + "未讀"
        End If
    End If
End If
If TypeOf msg Is MsgView Then
'如果裝載消息到查看消息的窗體，則取得消息的日期和發信人
    VBMail.MAPIMess.MsgIndex = Index
    msg.txtDate.Text = "日期：" + DateFromMapiDate$(VBMail.MAPIMess.MsgDateReceived, conMailLongDate)
    msg.txtFrom.Text = "發信人：" + VBMail.MAPIMess.MsgOrigDisplayName
    MailLst.Mlist.ItemData(Index) = True
End If
'不管消息裝載到哪個窗體中，均執行以下程序
Call Attachments(msg)
msg.txtNoteText.Text = "郵件" + Chr$(13) + Chr$(10) + VBMail.MAPIMess.MsgNoteText
msg.txtSubject.Text = "主題：" + VBMail.MAPIMess.MsgSubject
msg.Caption = VBMail.MAPIMess.MsgSubject
msg.Tag = Index
msg.txtTo.Text = "收信人：" + GetRCList(VBMail.MAPIMess, vbRecipTypeTo)
msg.txtCc.Text = "抄送：" + GetRCList(VBMail.MAPIMess, vbRecipTypeCc)
msg.Refresh
msg.Show
End Sub
Sub LogOffUser()
'該子程序用于注銷發送郵件連接
On Error Resume Next
VBMail.MAPISess.Action = 2
If Err <> 0 Then
    MsgBox "LogOff failure:" + Error
Else
    VBMail.MAPIMess.SessionID = 0
    VBMail.Logoff.Enabled = 0
    VBMail.Logon.Enabled = -1
    '卸載所有的子窗體
    Do Until Forms.Count = 1
        i = Forms.Count - 1
        If TypeOf Forms(i) Is MDIForm Then
        Else
            Unload Forms(i)
        End If
    Loop
    '設置各個菜單項及工具欄按扭的可用狀態
    VBMail.Toolbar1.Buttons("Compose").Enabled = False
    VBMail.Toolbar1.Buttons("Fetch").Enabled = False
    VBMail.Toolbar1.Buttons("Previous1").Enabled = False
    VBMail.Toolbar1.Buttons("Next1").Enabled = False
    VBMail.Toolbar1.Buttons("Delete").Enabled = False
    VBMail.Toolbar1.Buttons("Send").Enabled = False
    VBMail.Toolbar1.Buttons("Reply").Enabled = False
    VBMail.Toolbar1.Buttons("ReplyAll").Enabled = False
    VBMail.Toolbar1.Buttons("Forward").Enabled = False
    VBMail.ShowAB.Enabled = False
    VBMail.EditDelete.Enabled = False
    VBMail.Mforward.Enabled = False
    VBMail.Mreply.Enabled = False
    VBMail.Mreplyall.Enabled = False
    VBMail.Mcompose.Enabled = False
    VBMail.Mfetch.Enabled = False
    VBMail.PrintMessage.Enabled = False
    VBMail.EditDelete.Enabled = False
    VBMail.Statusbar1.Panels(1) = "現處于離線狀態"
    VBMail.Statusbar1.Panels(2) = ""
End If
End Sub
Sub PrintLongText(ByVal LongText As String)
'打印消息的子程序之一，用于打印消息的正文
Do Until LongText = ""
    word$ = Token$(LongText, "")
    If Printer.TextHeight(word$) + Printer.CurrentX > Printer.Width - Printer.TextWidth("ZZZZZZZ") Then
        Printer.Print
    End If
    Printer.Print "" + word$
Loop
End Sub
Sub Printmail()
'打印消息的子程序之一，用于取得要打印的消息
If TypeOf Screen.ActiveForm Is MsgView Then
    '如果當前活動的子窗體為MsgView，則打印相應的郵件消息
    Call PrintMessage(VBMail.MAPIMess, False)
    Printer.EndDoc
ElseIf TypeOf Screen.ActiveForm Is MailLst Then
    For i = 0 To MailLst.Mlist.ListCount - 1
        If MailLst.Mlist.Selected(i) Then
            '如果活動的子窗體是郵件消息列表，則根據列表框中的索引打印
            '相應的消息
            VBMail.MAPIMess.MsgIndex = i
            Call PrintMessage(VBMail.MAPIMess, False)
        End If
    Next i
    Printer.EndDoc
End If
End Sub
Sub PrintMessage(msg As Control, fNewPage As Integer)
'打印消息的子程序之一，用于設置打印機和取得打印消息頭
Screen.MousePointer = 11
If fNewPage Then
    Printer.NewPage
End If
Printer.FontName = "Arial"
Printer.FontBold = True
Printer.DrawWidth = 10
Printer.Line (0, Printer.CurrentY)-(Printer.Width, Printer.CurrentY)
Printer.Print
Printer.FontSize = 9.75
Printer.Print "From:"
Printer.CurrentX = Printer.TextWidth(String$(30, ""))
Printer.Print msg.MsgOrigDisplayName
Printer.Print "To:"
Printer.CurrentX = Printer.TextWidth(String$(30, ""))
Printe.Print GetRCList(msg, vbRecipTypeTo)
Printer.Print "Cc:"
Printer.CurrentX = Printer.TextWidth(String$(30, ""))
Printer.Print GetRCList(msg, vbRecipTypeCc)
Printer.Print "Subject:"
Printer.CurrentX = Printer.TextWidth(String$(30, ""))
Printer.Print msg.MsgSubject
Printer.Print "Date:"
Printer.CurrentX = Printer.TextWidth(String$(30, ""))
Printer.Print DateFromMapiDate$(msg.MsgDateReceived, conMailLongDate)
Printer.Print
Printer.DrawWidth = 5
Printer.Line (0, Printer.CurrentY)-(Printer.Width, Printer.CurrentY)
Printer.FontSize = 9.75
Printer.FontBold = False
Call PrintLongText(msg.MsgNoteText)
Printer.Print
Screen.MousePointer = 0
End Sub

Sub SaveMessage(msg As Form)
'???該子程序的調用在何處？？？？？
svSub = msg.txtSubject
svNote = msg.txtNoteText
VBMail.MAPIMess.Action = vbMessageCopy
VBMail.MAPIMess.MsgSubject = svSub
VBMail.MAPIMess.MsgNoteText = svNote
VBMail.MAPIMess.Action = vbMessageSaveMsg
End Sub

Sub SetRCList(ByVal NameList As String, msg As Control, RCType As Integer, fResolveNames As Integer)
'根據存儲收信人姓名的字符串NameList（姓名用分號隔開）
'設置收信人姓名。
If NameList = "" Then
    Exit Sub
End If
i = msg.RecipCount
Do
    msg.RecipIndex = i
    msg.RecipDisplayName = Trim$(Token(NameList, ";"))
    If fresolvename Then
        msg.Action = vbMessageResolveName
    End If
    msg.RecipType = RCType
    i = i + 1
Loop Until (NameList = "")
End Sub

Function Token$(tmp$, search$)
x = InStr(1, tmp$, search$)
If x Then
   Token$ = Mid$(tmp$, 1, x - 1)
   tmp$ = Mid$(tmp$, x + 1)
Else
   Token$ = tmp$
   tmp$ = ""
End If
End Function

Sub UpdateRecips(msg As Form)
'更新收信人和轉發的地址
msg.txtTo.Text = GetRCList(VBMail.MAPIMess, vbRecipTypeTo)
msg.txtCc.Text = GetRCList(VBMail.MAPIMess, vbRecipTypeCc)
End Sub

Sub ViewNextMsg()
'查看下一個消息
windowNum% = FindMsgWindow(MailLst.Mlist.ListIndex)
If windowNum% > 0 Then
    Forms(windowNum%).Show
Else
    If TypeOf Screen.ActiveForm Is MsgView Then
        Call LoadMessage(MailLst.Mlist.ListIndex, Screen.ActiveForm)
    Else
        Call LoadMessage(MailLst.Mlist.ListIndex, MsgView)
    End If
End If
End Sub