[AccessD] Deleting Outlook Contacts

That'll do it (I neglected to include my "air code" warning originally). 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Goodhall
Sent: Friday, September 10, 2010 10:11 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Deleting Outlook Contacts


  BODY { font-family:Arial, Helvetica, sans-serif;font-size:12px; }I agree.  This is running code to empty the Drafts folder.  
 This one runs inside Outlook, but it should be pretty easy to change it to delete Contacts and use an object reference to run it from Access.  I think all it will take is to replace "Application" with a reference to an Outlook instance.
 Sub killDrafts()
 Dim oFold As outlook.MAPIFolder
 Dim oNS As outlook.NameSpace
 Set oNS = Application.GetNamespace("MAPI")  Set oFold = oNS.GetDefaultFolder(olFolderDrafts)
 Dim oItem As outlook.MailItem
 Dim lItems As Long
 Dim lItem As Long
 lItems = oFold.Items.Count
 For lItem = lItems To 1 Step -1
     Set oItem = oFold.Items(lItem)
     oItem.Delete
     DoEvents
 Next
 End Sub
 Regards,
 Steve Goodhall, MSCS, PMP
 248-505-5204
 On Fri 10/09/10  9:02 AM , "Heenan, Lambert"
Lambert.Heenan at chartisinsurance.com sent:
 Close Charlotte, but no prize :-)
 The collection has a Count property, so  just use it in a for loop that runs backwards..
 Dim n as Long
     ' delete all the current contacts
     Set olContacts = olFolder.Items
     Me.Repaint
     For N = olContacts.Count- 1 to 0 Step -1 '  Dear List:
 >
 > Still struggling with deleting the Outlook contacts.  I found that

 > looping through the items and deleting them deleted half so if I  > started with 1000 contacts at the end of the loop I had 500 left. 
If
 > I sent the program back through the loop I ended up with 250. 
etc.
 >
 > So iterating that loop until the Count = 0 works but it's kludgey.
 
 > Why does it leave half of the contacts behind each time?
 >
 > Here's the code:
 >
 >    ' delete all the current contacts
 >    Set olContacts = olFolder.Items
 > DeleteAgain:
 >    Me.txtProcessing = "Deleting..." & olContacts.Count
 >    Me.Repaint
 >    For Each olContactItem In olContacts
 >        'MsgBox olContactItem.LastName & ", " &
olContactItem.FirstName & "
 > - " & olContacts.Count
 >        olContactItem.Delete
 >        DoEvents
 >    Next
 >    Set olContacts = olFolder.Items
 >    If olContacts.Count  0 Then GoTo DeleteAgain:
 >
 >
 > Me.txtProcessing displays the number of contacts each time through the  > big loop.  So that's how I know it's only deleting 1/2 each time.
When
 > I uncomment the MsgBox line inside the loop, it shows the count going  > to zero each time the loop executes.  But after the loop finishes,

 > there's still 1/2 the contacts left.  refreshing the count by Set  > olContacts = olFolder.Items gives the right count again.
 >
 > Any idea what the heck is going on here?
 >
 >
 >
 > MTIA
 >
 >
 >
 > Rocky
 >
 >
 >
 >
 > -
 --
 AccessD mailing list
 AccessD at databaseadvisors.com [4]
 http://databaseadvisors.com/mailman/listinfo/accessd
 Website: http://www.databaseadvisors.com _______________________________________________________________________________________
 The information transmitted in this message and its attachments (if
any) is intended only for the person or entity to which it is addressed.
 The message may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of, or taking of any action in reliance upon this information, by persons or entities other than the intended recipient is prohibited.
 If you have received this in error, please contact the sender and delete this e-mail and associated material from any computer.
 The intended recipient of this e-mail may only use, reproduce, disclose or distribute the information contained in this e-mail and any attached files, with the permission of the sender.
 This message has been scanned for viruses.

_______________________________________________________________________________________
 --
 AccessD mailing list
 AccessD at databaseadvisors.com [5]
 http://databaseadvisors.com/mailman/listinfo/accessd
 Website: http://www.databaseadvisors.com
 --
 AccessD mailing list
 AccessD at databaseadvisors.com [6]
 http://databaseadvisors.com/mailman/listinfo/accessd
 Website: http://www.databaseadvisors.com
 

Links:
------
[1] mailto:accessd-bounces at databaseadvisors.com
[2] mailto:accessd-bounces at databaseadvisors.com
[3] mailto:rockysmolin at bchacc.com
[4] mailto:AccessD at databaseadvisors.com
[5] mailto:AccessD at databaseadvisors.com
[6] mailto:AccessD at databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com