delete contacts in outlook

[AlastairP]

I have a custom contacts folder in outlook I wish to update from a table.
I can add contacts, but just can't seem to delete contacts?
Anyone help?

code to add:

loNewContact = oDefaultfolder.Items.Add()

when I try this code I get an ole error "Parameter not optional"

	oItems=oDefaultFolder.items
	FOR EACH oItem IN oItems
		oItems.delete( )
	endfor

 

[TamarGranor]

I see a couple of issues. First, the method for removing an item is Remove, not Delete.

Second is the issue you always have when deleting items from a collection; it's a moving target. Normally, you need to go backward through a collection to delete each member.

FOR nItem = oItems.Count TO 1 STEP -1
   oItems.Remove(m.nItem)
ENDFOR

The third is more subtle. I suspect that the oItems collection you create by grabbing oDefaultFolder.Items is a copy of the actual collection, not the original. I think you need to loop through the original. So try this:

FOR nItem = oDefaultFolder.Items.Count TO 1 STEP -1
   oDefaultFolder.Items.Remove(m.nItem)
ENDFOR

Tamar

 

[AlastairP]

Thanks Tamar,

I went straight to the second piece of code and it worked perfectly, thanks.