RE: Regd:Mail quota retrieval

  • From: "Michael B. Smith" <michael@xxxxxxxxxx>
  • To: "[ExchangeList]" <exchangelist@xxxxxxxxxxxxx>
  • Date: Sat, 16 Apr 2005 10:09:30 -0400

Spend a little time on my blog:


From: Chintan [mailto:chintankathiriya@xxxxxxxxx]
Sent: Fri 4/15/2005 7:47 PM
To: [ExchangeList]
Subject: [exchangelist] Regd:Mail quota retrieval

Can Any suggest me how i can retrieve mail-quota,mail-usage,email address
for a particular user in ms exchange server. I have retrieved the email
address of a particular user but dont have idea how to retrieve other
info. here is my code to retrieve email of a particular user ::

Option Explicit
Dim strUsername,strUsernamea,strpassword,con,rs,Com,objADsPath,objDomain

Set objDomain = GetObject ("GC://rootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set con = CreateObject("ADODB.Connection")
con.provider ="ADsDSOObject"
'con.Properties("User ID") = "BURLINGTON\"+strUsername
'con.Properties("Password") = strpassword "Active Directory Provider"
Set Com = CreateObject("ADODB.Command")
Set Com.ActiveConnection = con
Com.CommandText ="select mail FROM 'LDAP://"+objADsPath+";' where
Set rs = Com.Execute

msgbox rs("mail")
Set rs = Nothing
Set con = Nothing


List Archives:
Exchange Newsletters:
Exchange FAQ:
Other Internet Software Marketing Sites:
World of Windows Networking:
Leading Network Software Directory:
No.1 ISA Server Resource Site:
Windows Security Resource Site:
Network Security Library:
Windows 2000/NT Fax Solutions:
You are currently subscribed to this Discussion List as: 
To unsubscribe visit
Report abuse to listadmin@xxxxxxxxxxxxxx

Other related posts: