显示收件箱的信息
                For j = 4 To 8
                  '主界面上显示普通用户的新信息
                  If UserDept <> "系统管理员" Then
                     If RsAdo("DeptSend") = frmMain.trvDept.Nodes(j).Text _
                     And RsAdo("DeptRecieve") = UserDept _
                     Then frmMain.trvDept.Nodes(j).Image = 3
                  '主界面上显示系统管理员的新信息
                  Else
                    If RsAdo("DeptSend") = frmMain.trvDept.Nodes(j).Text _
                    Then frmMain.trvDept.Nodes(j).Image = 3
                  End If
                Next j
                '主界面上显示发件箱的信息
                For j = 9 To 13
                  If RsAdo("DeptSend") = UserDept _
                  And RsAdo("DeptRecieve") = frmMain.trvDept.Nodes(j).Text _
                  Then frmMain.trvDept.Nodes(j).Image = 3
                Next j
                RsAdo.MoveNext
             Loop
             '处理根节点及其一级子节点
             trvRootChlIcon
             PlaySound App.Path & "\msg.wav"
          End If
        End If
      Next i
      CloseRsAdo
      Exit Sub
    ErrorHandler:
      MsgBox Err.Description, vbCritical, "提取信息"
      Exit Sub
    End Sub
    
    '处理根节点及其一级子节点的图标
    Private Sub trvR