Delete the Contacts folder instead, then run outlook /resetfolders.  You
can delete the Contact or other default folder with a "ugly" client like
MDBVU32.

 

 

From: Senter, John [mailto:[EMAIL PROTECTED] 
Sent: Friday, August 08, 2008 7:36 AM
To: MS-Exchange Admin Issues
Subject: RE: Exmerge limit on no. of items

 

Why not exmerge out everything but the contacts, delete the mailbox,
create a new mailbox and exmerge back in.

 

From: Michael B. Smith [mailto:[EMAIL PROTECTED] 
Sent: Friday, August 08, 2008 9:57 AM
To: MS-Exchange Admin Issues
Subject: RE: Exmerge limit on no. of items

 

I think you are running into the maximum size of a delete transaction.

 

I would probably open the mailbox in Outlook and put someone to deleting
a few thousand at a time, or develop a script. It should be pretty easy,
but you should test test test!

 

' CDO 1.x folder constants

Public Const CdoDefaultFolderCalendar = 0

Public Const CdoDefaultFolderContacts = 5

Public Const CdoDefaultFolderDeletedItems = 4

Public Const CdoDefaultFolderInbox = 1

Public Const CdoDefaultFolderJournal = 6

Public Const CdoDefaultFolderNotes = 7

Public Const CdoDefaultFolderOutbox = 2

Public Const CdoDefaultFolderSentItems = 3

Public Const CdoDefaultFolderTasks = 8

 

Dim objSession, objFolder

 

' Create MAPI session

Set objSession = CreateObject("MAPI.Session")

 

' logon using an new MAPI session with a dynamically created profile

strProfileInfo = "<Your Servername>" & vbLf & "<Your Mailbox>"

objSession.Logon "", "", False, True, 0, False, strProfileInfo 

 

''' or connect to a MAPI session already in progress

''' objSession.Logon "", "", False, False, 0

 

' Get the default contacts folder

Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderContacts)

 

' get the item collection

Set objCollection = objFolder.Messages

 

' get first contact

Set objContact = objCollection.GetFirst()

 

' Loop through the collection

Do While Not objContact Is Nothing

 

                objContact.Delete

 

                ' Get next message

                Set objContact = objCollection.GetNext()

Loop

 

objSession.Logoff

 

Regards,

 

Michael B. Smith

MCITP:SA,EMA/MCSE/Exchange MVP

http://TheEssentialExchange.com

 

From: Sobey, Richard A [mailto:[EMAIL PROTECTED] 
Sent: Friday, August 08, 2008 5:29 AM
To: MS-Exchange Admin Issues
Subject: RE: Exmerge limit on no. of items

 

Sorry, I'm trying to get rid of them in preparation for exmerging back
in a proper version of the contacts (i.e. only a few thousand with no
duplicates!)

 

Richard

 

From: Michael B. Smith [mailto:[EMAIL PROTECTED] 
Sent: 08 August 2008 10:09
To: MS-Exchange Admin Issues
Subject: RE: Exmerge limit on no. of items

 

I don't understand your objective.

 

Are you trying to delete all of those contacts? Or just get a copy of
them elsewhere?

 

Regards,

 

Michael B. Smith

MCITP:SA,EMA/MCSE/Exchange MVP

http://TheEssentialExchange.com

 

From: Sobey, Richard A [mailto:[EMAIL PROTECTED] 
Sent: Friday, August 08, 2008 4:53 AM
To: MS-Exchange Admin Issues
Subject: Exmerge limit on no. of items

 

I have a user who, after using Entourage, has ended up with nearly 1
million contacts. I'm trying to use exmerge to get them all out, but
each four hour pass of the Contacts folder only removes ~10,000 items.
Not very practical, it would take me weeks!

 

Does anyone know a better solution that doesn't involve recreating the
mailbox?

 

Cheers

 

Richard

 

 

 

 

 

 

 

 

 

 



 
This e-mail is intended for the use of the addressee(s) only and may contain 
privileged, confidential, or proprietary information that is exempt from 
disclosure under law.  If you have received this message in error, please 
inform us promptly by reply e-mail, then delete the e-mail and destroy any 
printed copy.   Thank you. 


~ Ninja Email Security with Cloudmark Spam Engine Gets Image Spam ~
~             http://www.sunbeltsoftware.com/Ninja                ~

Reply via email to