modmaildll.bas

智能邮件管理信息系统

Attribute VB_Name = "ModMailDll"
Option Explicit



Public Function GetMailCls() As MailDll.Mail
    Set GetMailCls = New MailDll.Mail
    GetMailCls.Init gdbCurrentDB, m_E_ViewMode
End Function

'++++++++++++++++++++++++++++++++++数据库初始化
Public Sub Init(mgDatabase As ADODB.Connection, m_E_ViewMode As E_ViewMode, mclsMailCreator1 As MailDll.Mail)
    Call mclsMailCreator1.Init(mgDatabase, m_E_ViewMode)
End Sub

Public Sub GetMail(ByVal lngMailID As Long, ByRef MailTypeTemp As MailDll.MailType, mclsMailCreator1 As MailDll.Mail, ByVal BlnDoBodyFile As Boolean, ByVal BlnDoAttachFile As Boolean, ByVal BlnDoMailFile As Boolean, ByVal blnDoImageFile As Boolean)
    Call mclsMailCreator1.GetMail(lngMailID, MailTypeTemp, BlnDoBodyFile, BlnDoAttachFile, BlnDoMailFile, blnDoImageFile)
End Sub


Public Sub GetMailSimple(ByVal lngMailID As Long, ByRef MailTypeTemp As MailDll.MailType, mclsMailCreator1 As MailDll.Mail)
    Call mclsMailCreator1.GetMailSimple(lngMailID, MailTypeTemp)
End Sub


'新建邮件
Public Function AddMail(m_MailTemplate As PMailTemplate.MailTemplate, mE_ViewMode As E_ViewMode, LngEmployeeID As Long, lngOwnDefineTreeID As Long, mclsMailCreator1 As MailDll.Mail) As Long
     AddMail = mclsMailCreator1.AddMail(m_MailTemplate, mE_ViewMode, LngEmployeeID, lngOwnDefineTreeID)
End Function

Public Function EditMail(ByVal lngMailID As Long, LngEmployeeID As Long, mclsMailCreator1 As MailDll.Mail) As Long
    EditMail = mclsMailCreator1.EditMail(lngMailID, LngEmployeeID)
End Function
 

Public Function SaveMail(ByRef MailTypeTemp As MailDll.MailType, mclsMailCreator1 As MailDll.Mail, ByVal BlnDoBodyFile As Boolean, ByVal BlnDoAttachFile As Boolean, ByVal BlnDoMailFile As Boolean, ByVal blnDoImageFile As Boolean) As Boolean
    SaveMail = mclsMailCreator1.SaveMail(MailTypeTemp, BlnDoBodyFile, BlnDoAttachFile, BlnDoMailFile, blnDoImageFile)
End Function

Public Function DeleteMail(ByVal lngMailID As Long, mclsMailCreator1 As MailDll.Mail) As Boolean
   DeleteMail = mclsMailCreator1.DeleteMail(lngMailID, gLngEmployeeID1)
End Function

'获取邮件集合
Public Sub GetMails(ByVal strsql As String, ByRef Mails As MailDll.Mails, mclsMailCreator1 As MailDll.Mail, ByVal BlnDoBodyFile As Boolean, ByVal BlnDoAttachFile As Boolean, ByVal BlnDoMailFile As Boolean, Optional ByVal BlnSimple As Boolean = False)
    Call mclsMailCreator1.GetMails(strsql, Mails, BlnDoBodyFile, BlnDoAttachFile, BlnDoMailFile, BlnSimple)
End Sub

'获取邮件集合
Public Sub GetMailsSimple(ByVal strsql As String, ByRef Mails As MailDll.Mails, mclsMailCreator1 As MailDll.Mail)
    Call mclsMailCreator1.GetMailsSimple(strsql, Mails)
End Sub



'跟踪
Public Function EditTrack(ByRef clsMailType As MailDll.MailType, mclsMailCreator1 As MailDll.Mail) As Boolean
    EditTrack = mclsMailCreator1.EditTrack(clsMailType)
End Function

'回复所有
Public Function Writeback(ByVal lngMailID As Long, LngEmployeeID As Long, mclsMailCreator1 As MailDll.Mail) As Long
    Writeback = mclsMailCreator1.Writeback(lngMailID, LngEmployeeID)
End Function

Public Function WriteBackAll(ByVal lngMailID As Long, LngEmployeeID As Long, mclsMailCreator1 As MailDll.Mail) As Long
    WriteBackAll = mclsMailCreator1.WriteBackAll(lngMailID, LngEmployeeID)
End Function



Public Function WriteMailDefault(mMailType As MailDll.MailType, LngEmployeeID As Long, mclsMailCreator1 As MailDll.Mail) As Long
   WriteMailDefault = mclsMailCreator1.WriteMailDefault(mMailType, LngEmployeeID)
End Function



'转发
Public Function Transmit(ByVal lngMailID As Long, LngEmployeeID As Long, mclsMailCreator1 As MailDll.Mail) As Long
    Transmit = mclsMailCreator1.Transmit(lngMailID, LngEmployeeID)
End Function



'再次发送
Public Function ReSend(ByVal lngMailID As Long, LngEmployeeID As Long, mclsMailCreator1 As MailDll.Mail) As Long
    ReSend = mclsMailCreator1.ReSend(lngMailID, LngEmployeeID)
End Function

'作为附件发送
Public Function WriteAsAttach(ByVal lngMailID As Long, LngEmployeeID As Long, mclsMailCreator1 As MailDll.Mail) As Long
    WriteAsAttach = mclsMailCreator1.WriteAsAttach(lngMailID, LngEmployeeID)
End Function




'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,0,0,0
Public Property Get BlnExcuteSendMail(mclsMailCreator1 As MailDll.Mail) As Boolean
    BlnExcuteSendMail = mclsMailCreator1.BlnExcuteSendMail
End Property