Getting or Modifying Message Size

This example displays and sets the value of the maximum message size on an Exchange Server's Message Transfer Agent to 5MB.

Dim objMTA As IADs
Set objMTA = GetObject("LDAP://Server/cn=Microsoft MTA,cn=Server,cn=Servers,cn=Configuration,ou=Site,o=Org")
 
objMTA.GetInfoEx Array("Deliv-Cont-Length"), 0
Debug.Print objMTA.Get("Deliv-Cont-Length")
 
objMTA.Put "Deliv-Cont-Length", 5000
objMTA.SetInfo
Set bjMTA = Nothing

Note: This example is specific to Exchange Server version 5.5 and below, and is not upwardly compatible with Exchange 6.0. Management and access of Exchange 6.0 Servers should be made through the CDO Exchange Management interfaces instead.