| Platform SDK: Exchange 2000 Server |
[This is preliminary documentation and subject to change.]
This property specifies the maximum size, in Kbytes, of the mailbox upon which receiving is disabled.
[Visual Basic,VBScript] Property HardLimit as Long [C++] HRESULT get_HardLimit(long* pVal); HRESULT put_HardLimit(long Val); [IDL] HRESULT [propget] HardLimit([out,retval] long* pVal); HRESULT [propput] HardLimit([in] long Val);
The default value for this property is -1 (no limit).
See StoreQuota and OverQuotaLimit for sending and overall mailbox limits.
See also the EnableStoreDefaults property.
Sub Set_Limits(ServerName As String, _
DomainName As String, _
recipname As String)
'ServerName is something like "MyServer6"
'DomainName is something like "DC=MYDOMAIN3,DC=microsoft,DC=com"
'recipname is something like "jamessmith"
Dim objPerson As New CDO.Person
Dim objMailbox As CDOEXM.IMailboxStore
objPerson.DataSource.Open "LDAP://" + ServerName + _
"/CN=" + recipname + _
",CN=users," + DomainName
Set objMailbox = objPerson
If objMailbox.HomeMDB = "" Then
MsgBox "No Mailbox found."
Else
objMailbox.StoreQuota = 10
objMailbox.OverQuotaLimit = 2
objMailbox.HardLimit = 1
objPerson.DataSource.Save
MsgBox "Mailbox limits for " + recipname + " set successfully"
End If
End Sub