RE: Extracting information from Exchange

  • From: "Mulnick, Al" <Al.Mulnick@xxxxxxxxxx>
  • To: "[ExchangeList]" <exchangelist@xxxxxxxxxxxxx>
  • Date: Tue, 15 Mar 2005 11:01:40 -0500

This is a snippet that can get you started.  Outside of writing it yourself
or hiring it done, I don't know of any particular apps that exist to do
this.  Maybe somebody else here does?

Const CdoDefaultFolderContacts = 5

dim iCount


wscript.echo "Number of contacts updated:" & iCount

Sub GetContacts()
iCount = 0

Dim objSession 'As MAPI.Session

   Set ol = CreateObject ("MAPI.Session")
   ol.Logon "%USERNAME%"

   oContItems = ol.GetDefaultFolder(olFolderContacts)
   oContItems = ol.GetDefaultFolder(CdoDefaultFolderContacts)
   wscript.echo oContItems.Count
   For Each oCurItem in oContItems
      iCount = iCount + 1
      wscript.echo oCurItem  '//Write this out to a file or DB if needed
   Set oContItems = Nothing
   Set olns = Nothing
   Set ol = Nothing
End Sub 

-----Original Message-----
From: Sonya [mailto:sonya.mcneal@xxxxxxxx] 
Sent: Tuesday, March 15, 2005 10:15 AM
To: [ExchangeList]
Subject: [exchangelist] RE: Extracting information from Exchange

I've seen some scripting but I'm not sure on how to use them because I am
not a programmer. I've done a little scripting but with ActiveX for DTS (SQL

I went to the link that you provided but doesn't really help. Any other

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:
al.mulnick@xxxxxxxxxx To unsubscribe visit
Report abuse to listadmin@xxxxxxxxxxxxxx

Other related posts: