📄 csmtpinterface.cls
字号:
SendAMail = False
m_LogType.strLogContent = m_LogType.strLogContent & "发送邮件文件失败->"
CclsLog.SaveLog m_LogType, False, False
blnIsBusy = False
Unload f
Exit Function
End If
'退出邮件登陆
mCSendMail.ProcessQuitCommand
SendAMail = True
'修改原来的邮件体文件
'修改原来的附件文件
'修改发送日期
C_Mail.GetMailSimple mlngCurrentMailID, m_MailType
m_MailType.DteSendDate = Format(Now, "ddddd ttttt")
m_MailType.strMailBoxTag = "SendedBox"
m_MailType.lngOwnDefineTreeID = MailDll.E_SystemMailBox.SendMail
m_MailType.StrReadTag = MailDll.msReceiveReaded
m_MailType.StrFromMailBoxTag = "SendBox"
'发送的邮件自动加入追踪列表
RefreshOption
If mMailOptional.intSendRemind Then
m_MailType.btnTrack = 1
End If
' If m_UserTypeType.intSendRemind Then
' m_MailType.btnTrack = 1
' End If
C_Mail.SaveMail m_MailType, False, False, False, False
m_LogType.strLogContent = m_LogType.strLogContent & "发送邮件文件成功."
CclsLog.SaveLog m_LogType, False, False
Unload f
blnIsBusy = False
End Function
'发送当前选择的帐户的所有邮件
Public Function SendOneUserMail(m_lngUserID As Long, m_lngEmployeeID As Long, Optional ByVal blnShowMsg As Boolean = True) As Boolean
SendOneUserMail = True
On Error Resume Next
Dim strsql As String
mCSendMail.ProcessCancel = False
Dim BlnReceiverOK As Boolean
DoEvents
BlnReceiverOK = True
'********************************************************************************
'取帐户信息
Dim m_UserTypeType As Account.UserType
Dim m_AccountClass As Account.AccountClass
Set m_AccountClass = GetAccountClass
m_AccountClass.GetUser m_lngUserID, m_UserTypeType
Set m_AccountClass = Nothing
Dim m_MailUserType As CSMTP.AccountType
m_MailUserType.LngUserID = m_UserTypeType.LngUserID
m_MailUserType.AccountName = m_UserTypeType.AccountName
m_MailUserType.Password = m_UserTypeType.Password
m_MailUserType.UserName = m_UserTypeType.UserName
m_MailUserType.lngDepartmentID = m_UserTypeType.lngDepartmentID
m_MailUserType.UserEmailAddress = m_UserTypeType.UserEmailAddress
m_MailUserType.BlnInclude = m_UserTypeType.BlnInclude
m_MailUserType.POP3SeverName = m_UserTypeType.POP3SeverName
m_MailUserType.SMTPSeverName = m_UserTypeType.SMTPSeverName
m_MailUserType.StrSMTPPort = m_UserTypeType.StrSMTPPort
m_MailUserType.StrPOP3Port = m_UserTypeType.StrPOP3Port
m_MailUserType.LngTimeOut = m_UserTypeType.LngTimeOut
'm_MailUserType.BlnDefault = m_UserTypeType.BlnDefault
m_MailUserType.blnSendMailCheck = m_UserTypeType.blnSendMailCheck
m_MailUserType.BlnSameAsReceiptMail = m_UserTypeType.BlnSameAsReceiptMail
m_MailUserType.StrCheckUserName = m_UserTypeType.StrCheckUserName
m_MailUserType.StrCheckPassWord = m_UserTypeType.StrCheckPassWord
m_MailUserType.StrReceiveAttchPath = m_UserTypeType.StrReceiveAttchPath
m_MailUserType.StrReceiveFilePath = m_UserTypeType.StrReceiveFilePath
m_MailUserType.StrSendAttchPath = m_UserTypeType.StrSendAttchPath
m_MailUserType.StrSendFilePath = m_UserTypeType.StrSendFilePath
m_MailUserType.BlnSetMangeDir = m_UserTypeType.BlnSetMangeDir
m_MailUserType.strContactName = m_UserTypeType.strContactName
m_MailUserType.intAutoReceive = m_UserTypeType.intAutoReceive
m_MailUserType.intAutoMinute = m_UserTypeType.intAutoMinute
m_MailUserType.intAutoFenFa = m_UserTypeType.intAutoFenFa
m_MailUserType.intAutoFenFaMinute = m_UserTypeType.intAutoFenFaMinute
m_MailUserType.BlnNotDelete = m_UserTypeType.BlnNotDelete
'********************************************************************************
'********************************************************************************
'取选择帐户的所有邮件信息
Dim m_MailType As MailDll.MailType
Dim m_MailTypes As MailDll.Mails
Dim C_Mail As MailDll.Mail
Set C_Mail = New MailDll.Mail
C_Mail.Init gdbCurrentDB, m_E_ViewMode
If m_lngEmployeeID > 0 Then
strsql = "select * from mail where lnguserid=" & m_lngUserID & " And strMailBoxTag='SendBox' AND Mail.lngEmployeeID=" & m_lngEmployeeID
Else
strsql = "select * from mail where lnguserid=" & m_lngUserID & " And strMailBoxTag='SendBox' and Mail.lngEmployeeID=0"
End If
C_Mail.GetMails strsql, m_MailTypes, False, False, True, False
'********************************************************************************
'显示该窗体
Dim mcShowModal As New cShowModal
If blnShowMsg Then
mcShowModal.ShowModal f, frmMain
f.Refresh
f.Caption = "发送邮件"
f.txtMessages.Clear
f.ProgressBar1.value = 0
End If
Dim lngMailCounter As Long
For lngMailCounter = 0 To m_MailTypes.Count - 1
If mCSendMail.ProcessCancel Then
Unload f
Exit Function
End If
LSet m_MailType = m_MailTypes.Mail(lngMailCounter)
'********************************************************************************
'收件人和抄送人
Dim i As Long
Dim m_ContactCopyType() As PContact.Contact
Dim m_ContactReceiverType() As PContact.Contact
Dim m_ContractType() As CSMTP.ContactType
Dim m_ContactCopyTypeCSMTP() As CSMTP.ContactType
ReDim m_ContactCopyType(UBound(m_MailType.lngCopy))
ReDim m_ContactCopyTypeCSMTP(UBound(m_MailType.lngCopy))
ReDim m_ContactReceiverType(UBound(m_MailType.lngReceiverID))
ReDim m_ContractType(UBound(m_MailType.lngReceiverID))
Dim C_Contact As PContact.clsContact
Set C_Contact = New PContact.clsContact
C_Contact.Init gdbCurrentDB
For i = 0 To UBound(m_MailType.lngCopy)
If m_MailType.lngCopy(i) <> 0 Then
Call C_Contact.GetContact(m_MailType.lngCopy(i), m_ContactCopyType(i))
m_ContactCopyTypeCSMTP(i).lngContactID = m_ContactCopyType(i).lngContactID
m_ContactCopyTypeCSMTP(i).strContactName = m_ContactCopyType(i).strContactName
m_ContactCopyTypeCSMTP(i).lngPositionID = m_ContactCopyType(i).lngPositionID
m_ContactCopyTypeCSMTP(i).strWorkCompany = m_ContactCopyType(i).strWorkCompany
m_ContactCopyTypeCSMTP(i).strWorkPostalCode = m_ContactCopyType(i).strWorkPostalCode
m_ContactCopyTypeCSMTP(i).strWorkProvince = m_ContactCopyType(i).strWorkProvince
m_ContactCopyTypeCSMTP(i).strWorkCity = m_ContactCopyType(i).strWorkCity
m_ContactCopyTypeCSMTP(i).strWorkAddress = m_ContactCopyType(i).strWorkAddress
m_ContactCopyTypeCSMTP(i).strWorkTel = m_ContactCopyType(i).strWorkTel
m_ContactCopyTypeCSMTP(i).strWorkTel2 = m_ContactCopyType(i).strWorkTel2
m_ContactCopyTypeCSMTP(i).strWorkFax = m_ContactCopyType(i).strWorkFax
m_ContactCopyTypeCSMTP(i).strWorkWeb = m_ContactCopyType(i).strWorkWeb
m_ContactCopyTypeCSMTP(i).strHomePostalCode = m_ContactCopyType(i).strHomePostalCode
m_ContactCopyTypeCSMTP(i).strHomeProvince = m_ContactCopyType(i).strHomeProvince
m_ContactCopyTypeCSMTP(i).strHomeCity = m_ContactCopyType(i).strHomeCity
m_ContactCopyTypeCSMTP(i).strHomeAddress = m_ContactCopyType(i).strHomeAddress
m_ContactCopyTypeCSMTP(i).strHomeTel = m_ContactCopyType(i).strHomeTel
m_ContactCopyTypeCSMTP(i).strHomeTel2 = m_ContactCopyType(i).strHomeTel2
m_ContactCopyTypeCSMTP(i).strHomeFax = m_ContactCopyType(i).strHomeFax
m_ContactCopyTypeCSMTP(i).strEmail = m_ContactCopyType(i).strEmail
m_ContactCopyTypeCSMTP(i).strEmail2 = m_ContactCopyType(i).strEmail2
m_ContactCopyTypeCSMTP(i).strMobiePhone = m_ContactCopyType(i).strMobiePhone
m_ContactCopyTypeCSMTP(i).strICQ = m_ContactCopyType(i).strICQ
m_ContactCopyTypeCSMTP(i).strMessager = m_ContactCopyType(i).strMessager
m_ContactCopyTypeCSMTP(i).strQQ = m_ContactCopyType(i).strQQ
m_ContactCopyTypeCSMTP(i).strPersonalWeb = m_ContactCopyType(i).strPersonalWeb
m_ContactCopyTypeCSMTP(i).strBeeper = m_ContactCopyType(i).strBeeper
m_ContactCopyTypeCSMTP(i).StrMemo = m_ContactCopyType(i).StrMemo
m_ContactCopyTypeCSMTP(i).strOffice = m_ContactCopyType(i).strOffice
m_ContactCopyTypeCSMTP(i).strCustomWork = m_ContactCopyType(i).strCustomWork
m_ContactCopyTypeCSMTP(i).strNickName = m_ContactCopyType(i).strNickName
m_ContactCopyTypeCSMTP(i).strGender = m_ContactCopyType(i).strGender
m_ContactCopyTypeCSMTP(i).dteBirthday = m_ContactCopyType(i).dteBirthday
m_ContactCopyTypeCSMTP(i).strPreference = m_ContactCopyType(i).strPreference
m_ContactCopyTypeCSMTP(i).strStrongSuit = m_ContactCopyType(i).strStrongSuit
m_ContactCopyTypeCSMTP(i).strPersonalCustom = m_ContactCopyType(i).strPersonalCustom
m_ContactCopyTypeCSMTP(i).strHomeCustom = m_ContactCopyType(i).strHomeCustom
m_ContactCopyTypeCSMTP(i).strSpouse = m_ContactCopyType(i).strSpouse
m_ContactCopyTypeCSMTP(i).strHomeMember = m_ContactCopyType(i).strHomeMember
m_ContactCopyTypeCSMTP(i).lngCommunicationAddress = m_ContactCopyType(i).lngCommunicationAddress
m_ContactCopyTypeCSMTP(i).strPhotoFilePath = m_ContactCopyType(i).strPhotoFilePath
m_ContactCopyTypeCSMTP(i).dteUpdateDate = m_ContactCopyType(i).dteUpdateDate
m_ContactCopyTypeCSMTP(i).blnIsNew = m_ContactCopyType(i).blnIsNew
' m_ContactCopyTypeCSMTP(i).lngUserID = m_ContactCopyType(i).lngUserID
m_ContactCopyTypeCSMTP(i).LngEmployeeID = m_ContactCopyType(i).LngEmployeeID
End If
Next i
For i = 0 To UBound(m_MailType.lngReceiverID)
If m_MailType.lngReceiverID(i) <> 0 Then
Call C_Contact.GetContact(m_MailType.lngReceiverID(i), m_ContactReceiverType(i))
End If
If m_MailType.lngReceiverID(i) <> 0 Then
Call C_Contact.GetContact(m_MailType.lngReceiverID(i), m_ContactReceiverType(i))
m_ContractType(i).lngContactID = m_ContactReceiverType(i).lngContactID
m_ContractType(i).strContactName = m_ContactReceiverType(i).strContactName
m_ContractType(i).lngPositionID = m_ContactReceiverType(i).lngPositionID
m_ContractType(i).strWorkCompany = m_ContactReceiverType(i).strWorkCompany
m_ContractType(i).strWorkPostalCode = m_ContactReceiverType(i).strWorkPostalCode
m_ContractType(i).strWorkProvince = m_ContactReceiverType(i).strWorkProvince
m_ContractType(i).strWorkCity = m_ContactReceiverType(i).strWorkCity
m_ContractType(i).strWorkAddress = m_ContactReceiverType(i).strWorkAddress
m_ContractType(i).strWorkTel = m_ContactReceiverType(i).strWorkTel
m_ContractType(i).strWorkTel2 = m_ContactReceiverType(i).strWorkTel2
m_ContractType(i).strWorkFax = m_ContactReceiverType(i).strWorkFax
m_ContractType(i).strWorkWeb = m_ContactReceiverType(i).strWorkWeb
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -