home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / Exchange / Configuration / Configuration.bas next >
Encoding:
BASIC Source File  |  1999-02-03  |  534 b   |  21 lines
  1. Attribute VB_Name = "Module1"
  2. Sub Main()
  3.  
  4. 'This example displays and sets the value of the maximum message size on
  5. 'an Exchange Server's Message Transfer Agent to 5mb.
  6.  
  7. Dim objMTA As IADs
  8. Set objMTA = GetObject("LDAP://exchsrv/cn=Microsoft MTA,cn=exchsrv,cn=Servers,cn=Configuration,ou=REDMOND,o=ARCADIABAY")
  9.     
  10. 'Getting
  11. objMTA.GetInfoEx Array("Deliv-Cont-Length"), 0
  12. Debug.Print objMTA.Get("Deliv-Cont-Length")
  13.       
  14. 'Modifying
  15. objMTA.Put "Deliv-Cont-Length", 5000
  16. objMTA.SetInfo
  17. Set bjMTA = Nothing
  18.  
  19.  
  20. End Sub
  21.