zydronium/websitepanel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add support to "Enabled" and "MaxMailboxSize" properties in a MailDomain

Browse source
This commit is contained in:
vfportero 2011-08-16 10:07:46 +02:00
parent 85fdf37a52
commit f9b4d76995
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
WebsitePanel/Sources/WebsitePanel.Providers.Mail.Merak/Merak.vb
View file

@ -188,6 +188,9 @@ Public Class Merak
domainItem.CatchAllAccount = GetEmailAlias(CStr(domainObjectClass.GetProperty("D_UnknownForwardTo")))
domainItem.AbuseAccount = ""
domainItem.Enabled = CInt(domainObjectClass.GetProperty("D_DisableLogin")) = 0
domainItem.MaxMailboxSizeInMB = CStr(domainObjectClass.GetProperty("D_UserMailbox"))
'Dim abuseEmail As String = "abuse@" + domainName
'If MailboxExists(abuseEmail) Then
@ -251,7 +254,9 @@ Public Class Merak
Dim apiObject = CreateObject(API_PROGID)
apiObject.SetProperty(MerakInterop.C_Config_UseDomainLimits, 1)
domainObject.SetProperty(MerakInterop.D_DisableLogin, IIf(domain.Enabled, 0, 1))
domainObject.SetProperty(MerakInterop.D_DisableLogin, IIf(domain.Enabled, 0, 1))
domainObject.SetProperty("D_UnknownUsersType", domain.MaxMailboxSizeInMB)
'create abuse account mailbox
'If Not Utils.IsStringNullOrEmpty(domain.AbuseAccount, True) Then