frmmain1.frm

智能邮件管理信息系统

'控件功能简要描述
'imgListMenu      ImageList    存放。。。的图片
'imgListStatus    ImageList    存放。。。。的图片
'ctlBrowseMail    （自定义）   主窗体上显示邮件内容的控件
'cdgFtp           CommonDialog  FTP
' ==========================================================================
'以下为处理主窗体菜单和TOOLBAR的项目    (TOOLBAR的每一项是从菜单中项目加载而来)
'
'Dim m_VersionType As CVersion.Version
'Dim m_VersionTypes As CVersion.Versions
'Dim m_clsVersion As New CVersion.clsVersion

Private BlnIsCreateCombolist As Boolean '此变量防止循环
Dim blnIsFormLoad As Boolean

Dim f As FrmCancelExport

Private WithEvents m_tmrAutoReceive As CTimer
Attribute m_tmrAutoReceive.VB_VarHelpID = -1
Private WithEvents m_tmrAutoFen As CTimer
Attribute m_tmrAutoFen.VB_VarHelpID = -1
Private WithEvents m_tmrMailTag As CTimer
Attribute m_tmrMailTag.VB_VarHelpID = -1
Private WithEvents m_tmrTrack As CTimer
Attribute m_tmrTrack.VB_VarHelpID = -1
Private WithEvents m_tmrTrackNotice As CTimer
Attribute m_tmrTrackNotice.VB_VarHelpID = -1
Dim blnTrackNotice As Boolean


Public BlnEnglishVersion As Boolean

Dim mCSearchAttach As CSearchAttach.CInterface

        
        

''肤色
'Private m_cN As New vbSkin.cSkinNeoCaption
'Private m_cSkin As vbSkin.cSkinConfiguration
'Private m_iIndex As Long


'********************************************************************************
'新建/编辑邮件类
Private mclsMailCreator As MailDll.Mail
Dim m_MailType As MailDll.MailType
Dim m_MailTypes As MailDll.Mails



'********************************************************************************
'邮件模板编辑器
Private mclsMailTemplate As MailTemplateProject.clsMailTemplate
Dim m_MailTemplate As MailTemplateProject.MailTemplate
Dim m_MailTemplates As MailTemplateProject.MailTemplates

Private mclsMailOptional As MailOptionalDll.clsMailOptional
Dim mMailOptional As MailOptionalDll.MailOptional
Dim mMailOptionals As MailOptionalDll.MailOptionals
'********************************************************************************




'********************************************************************************
Private CDepartmentAndConact As DepartmentConact.DepartmentAndConact '联系人基础类
Dim m_Contacts As DepartmentConact.Contacts
Dim m_ContactZhuans As DepartmentConact.Contacts
Dim m_Contact As DepartmentConact.Contact


Private CDepartmentAndConactManager As ContactManager.ContactList '联系人管理
'********************************************************************************




'********************************************************************************
'任务管理
Private mclsTaskManager As TaskManager.CInterface
'********************************************************************************



'********************************************************************************
'拖拽定义
'Private m_cDrag As CImageListDrag
'Private BlnInDrag As Boolean
'********************************************************************************


'********************************************************************************
'收发邮件基础类
Public WithEvents m_CPop3Interface   As CPop3Interface
Attribute m_CPop3Interface.VB_VarHelpID = -1
Public m_CSmtpInterface   As CSmtpInterface
'********************************************************************************

'********************************************************************************
'日志管理
Private mclsLogManager As LogManager.logList
'********************************************************************************

'********************************************************************************
'图片集合
Private m_CImageListNormal As ImageListClass.cLImageList 'Toolbar的图片
Private m_CImageListHot As ImageListClass.cLImageList    'Toolbar的图片
Private mclsIcons As ImageListClass.cLImageList '主菜单图标
'********************************************************************************


'********************************************************************************
'分割条定义
Private WithEvents mclsMainSplit As vbSplitter.cSplitter
Attribute mclsMainSplit.VB_VarHelpID = -1
Private WithEvents mclsMailSplit As vbSplitter.cSplitter
Attribute mclsMailSplit.VB_VarHelpID = -1
Private WithEvents mclsLeftSplit As vbSplitter.cSplitter
Attribute mclsLeftSplit.VB_VarHelpID = -1
'********************************************************************************


'********************************************************************************
'弹出菜单定义
Private WithEvents mnuPopMenu As cPopupMenu
Attribute mnuPopMenu.VB_VarHelpID = -1
Private WithEvents mnuTreePopMenu As cPopupMenu
Attribute mnuTreePopMenu.VB_VarHelpID = -1
Private WithEvents mclsMainMenu As cPopupMenu
Attribute mclsMainMenu.VB_VarHelpID = -1
Private WithEvents mclsSendMailMenu As cPopupMenu
Attribute mclsSendMailMenu.VB_VarHelpID = -1
'********************************************************************************



'********************************************************************************
'选择模板的弹出菜单
Private WithEvents mclsMailTemplateMenu As cPopupMenu
Attribute mclsMailTemplateMenu.VB_VarHelpID = -1
Private WithEvents mclsMailViewMenu As cPopupMenu
Attribute mclsMailViewMenu.VB_VarHelpID = -1
'********************************************************************************


'********************************************************************************
'文件对象
Private mclsFileSystem As FileSystemObject
Attribute mclsFileSystem.VB_VarHelpID = -1
'********************************************************************************


'********************************************************************************
'导入邮件定义
Dim WithEvents m_CImportInterface As CSMTP.CImportInterface
Attribute m_CImportInterface.VB_VarHelpID = -1
'********************************************************************************

'********************************************************************************
'查找
Private mclsSearchAttach As CSearchAttach.CInterface
'********************************************************************************



Private Sub ComboListDraw1_Click()
    
    '本处理只在服务器上才能进行
    If BlnIsCreateCombolist Then Exit Sub
    '当选择帐户时，列出该帐户所有邮件
    If ComboListDraw1.ListIndex = -1 Then Exit Sub
    Dim m_AccountClass As New Account.AccountClass
    m_AccountClass.Init gdbCurrentDB
      
    If ComboListDraw1.ItemExtraData(ComboListDraw1.ListIndex) = 1000 Then
        m_E_ViewMode = m_ServerMode
        '设置当前选择的为默然帐户
        
        'Dim m_UserType As Account.UserType
        m_AccountClass.DefaultUser = ComboListDraw1.Id
        gLngContactID = 0
        PCreateComboList
        BlnIsCreateCombolist = True
        ComboListDraw1.SeekID m_AccountClass.DefaultUser
        mlngUserID = m_AccountClass.DefaultUser
        SetAutoTime
        BlnIsCreateCombolist = False
        mclsMainMenu.MenuItemVisible(mclsMainMenu.IndexFromKey("FoxTreeType")) = True
        ctlLeftList.gdbCurrentDB = gdbCurrentDB
        ctlLeftList.mlngViewID = 42
        '将当前选择的操作员加入联系人中进行查找
        ctlLeftList.RefreshData IIf(m_E_ViewMode = m_CliendMode, " LngContactID=" & gLngContactID & " AND lngType=0", "")
        pCreateOutLookTreeView
        RefreshMailList
        
        Exit Sub
    End If
    
    '选择联系人时，列出本联系人的所有邮件
    If ComboListDraw1.ItemExtraData(ComboListDraw1.ListIndex) = 100 Then
        If gLngContactID = ComboListDraw1.Id Then Exit Sub
        gLngContactID = ComboListDraw1.Id
        mlngUserID = m_AccountClass.DefaultUser
        m_E_ViewMode = m_CliendMode
        If m_E_TreeViewType = m_FoxTreeView Then
            pCreateOutLookTreeView
            mclsMainMenu.MenuItemVisible(mclsMainMenu.IndexFromKey("FoxTreeType")) = False
        End If
        ctlLeftList.gdbCurrentDB = gdbCurrentDB
        ctlLeftList.mlngViewID = 42
        '将当前选择的操作员加入联系人中进行查找
        ctlLeftList.RefreshData IIf(m_E_ViewMode = m_CliendMode, " lngEmployeeID=" & gLngContactID, "")
        RefreshMailList
        '刷新具体操作员的TREEVIEW
        pCreateOutLookTreeView
        Exit Sub
    End If
    
End Sub

'选择联系人，按联系人去邮件列表
Private Sub ctlLeftList_Click()
    Dim lngContactID As Long
    Dim strsql As String
    Dim strFilter As String
    
    lngContactID = ctlLeftList.mlngCurrentSelectID
    
    If m_E_ViewMode = m_ServerMode Then
        If ctlMailList.mlngViewID = 2 Or ctlMailList.mlngViewID = 3 Or ctlMailList.mlngViewID = 4 Or ctlMailList.mlngViewID = 5 Or ctlMailList.mlngViewID = 46 Then
            If ctlMailList.mlngViewID = 2 Or ctlMailList.mlngViewID = 4 Then
                strFilter = " lngUserid=" & mlngUserID & "  and LngOwnDefineTreeID=" & gLngOwnDefineTreeID '没有分发/归并完毕的邮件
            ElseIf ctlMailList.mlngViewID = 3 Or ctlMailList.mlngViewID = 5 Or ctlMailList.mlngViewID = 46 Then
                strFilter = " lngUserid=" & mlngUserID & "  and LngOwnDefineTreeID=" & gLngOwnDefineTreeID '没有分发完毕的邮件
            End If
        ElseIf ctlMailList.mlngViewID = 44 Then
            strFilter = " lngUserid=" & mlngUserID & " and LngOwnDefineTreeID=" & gLngOwnDefineTreeID '没有分发完毕的邮件
        End If
    Else
        strFilter = " lngUserid=" & mlngUserID & "  And lngContactID = " & gLngContactID & IIf(lngContactID > 0, " and lngDirectoryID=" & lngContactID, " and lngDirectoryID=0 ") & " and LngOwnDefineTreeID=" & gLngOwnDefineTreeID
    End If
    
    
    
    '收件箱
'    If ctlMailList.mlngViewID = 2 Then
        If lngContactID > 0 Then
            '根据选择的客户,筛选邮件列表
            strFilter = strFilter & " and lngDirectoryID=" & lngContactID
            ctlMailList.RefreshData strFilter
        End If
'    End If
End Sub

Private Sub ctlMailList_Click()
'    Dim mUserType As Account.UserType
'
'    mclsMailAccount.GetUser mlngUserID, mUserType
'    m_tmrMailTag.Interval = mUserType.intReadtime * 1000
    RefreshOption
    m_tmrMailTag.Interval = mMailOptional.intReadtime * 1000
    
    
    mclsMailCreator.GetMail ctlMailList.mlngCurrentSelectID, m_MailType  '获得点击的邮件信息
    #If SubClass = 1 Then
    ctlMailBrowser.SetMailInformationValue m_MailType
    #End If
    RefreshMenuToolbar

    '显示邮件信息
End Sub

Private Sub ctlMailList_DblClick()
    If ctlMailList.mlngCurrentSelectID > 0 Then
        mclsMailCreator.EditMail ctlMailList.mlngCurrentSelectID, gLngContactID
        If mclsMailCreator.BlnExcuteSendMail Then
            m_CSmtpInterface.SendAMail mlngUserID, ctlMailList.mlngCurrentSelectID, True
        End If

        
        RefreshMailList
        RefreshTreeView
    End If
End Sub


'********************************************************************************
'作是否处理标签
Private Sub ctlMailList_DoneCellClick(BlnDoneTag As Boolean)
    If ctlMailList.mlngCurrentSelectID > 0 Then
        mclsMailCreator.GetMail ctlMailList.mlngCurrentSelectID, m_MailType
        m_MailType.BlnIsDoneTag = IIf(BlnDoneTag, 1, 0)
        Call mclsMailCreator.SaveMail(m_MailType)
    End If
End Sub
'********************************************************************************




'********************************************************************************
'作标签
Private Sub ctlMailList_FlagCellClick(BlnFlagTag As Boolean)
    If ctlMailList.mlngCurrentSelectID > 0 Then
        mclsMailCreator.GetMail ctlMailList.mlngCurrentSelectID, m_MailType
        m_MailType.BlnFlag = IIf(BlnFlagTag, 1, 0)
        Call mclsMailCreator.SaveMail(m_MailType)
    End If