cinterface.cls

智能邮件管理信息系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CInterface"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

#If V98989 = 1 Then
    Public Sub Init()
        MainRun
        mCurDatabaseType = AccessMode
    End Sub
#Else
    Public Sub Init(ByVal mgDatabase As Connection, ByVal lngEmployeeID As Long, ByVal m_blnIsSystem As Boolean)
        Set gdbCurrentDB = mgDatabase
        gLngEmployeeID1 = lngEmployeeID
        blnIsSystem = m_blnIsSystem
        
    End Sub
#End If


Public Sub ShowSmartmailDialog()
    

    frmMain.Show
End Sub


Public Sub SendWriteMail(ByRef m_MailType As MailDll.MailType, ByVal blnShowDialog As Boolean)
    Dim p As CSmtpInterface
    Set p = New CSmtpInterface
    
    p.SendWriteMail m_MailType, blnShowDialog
End Sub



Public Sub ReceiveDefaultMail()
    Dim MailIndex(0) As Long
    Dim m_AccountClass1 As Account.AccountClass
    Set m_AccountClass1 = GetAccountClass
    Dim p As CPop3Interface
    Set p = New CPop3Interface
    
    
    p.ReceiveMail m_AccountClass1.DefaultUser(m_E_ViewMode, gLngEmployeeID1), MailIndex, True, False
    
    Set m_AccountClass1 = Nothing
    Set p = Nothing
End Sub

'mm_E_ViewMode 1  server  2 client
Public Sub AddNewDialog(ByVal mm_E_ViewMode As Integer, ByVal lngEmployeeID As Long)
    Dim m_MailTemplate As PMailTemplate.MailTemplate
    Dim mclsMailTemplate As New PMailTemplate.clsMailTemplate
    mclsMailTemplate.Init gdbCurrentDB, m_E_ViewMode
    Dim mclsMailCreator1 As MailDll.Mail
    Set mclsMailCreator1 = GetMailCls
    Dim mlngCurrentSelectID         As Long
    
    mclsMailTemplate.GetMailTemplate 0, m_MailTemplate

    blnIsBusy = True
    #If SubClass = 1 Then
    mlngCurrentSelectID = ModMailDll.AddMail(m_MailTemplate, IIf(mm_E_ViewMode = 1, m_ServerMode, m_CliendMode), IIf(m_E_ViewMode = m_ServerMode, 0, lngEmployeeID), 4, mclsMailCreator1)
    #End If

    If mlngCurrentSelectID > 0 Then
        If ModMailDll.BlnExcuteSendMail(mclsMailCreator1) Then
            frmMain.m_CSmtpInterface.SendAMail mlngCurrentSelectID, True
        End If
    End If
    blnIsBusy = False
End Sub