Hi,

I have a smal program that add contacts from a database to a Contact Folder
i Outlook
I start with deleting all contacts that have a certian attribute and
everything else works fine..
The bad thing is that the deleted items show up in the trashcan whish fill
up quite fast that way so the code below works but not quite as good as I
want.

Does any one know how to delete items without having them go inte the
trashcan?

Sub Deletetems()
Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myRestrictItems As Outlook.Items
Dim myItem As Outlook.MailItem
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
Set myItems = myFolder.Items
Set myRestrictItems = myItems.Restrict("[ReferredBy] ''")
For i = myRestrictItems.Count To 1 Step -1
myRestrictItems(i).Delete
Next
End Sub



/Fredrik

When you delete using the Outlook object model the deleted items always go
to the Deleted Items folder. No way around that. If you use CDO 1.21 or
Redemption or Extended MAPI code you can delete an item without it's being
added to Deleted Items.

You could monitor the ItemAdd event on the Items collection of the Deleted
Items folder. If a new item is added that's a contact (you can add a user
property to the ones you delete for id purposes) then delete it from Deleted
Items. It's a hack but it works and only uses Outlook object model code.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Fredrik Nelson" wrote in message
...
Hi,

I have a smal program that add contacts from a database to a Contact
Folder i Outlook
I start with deleting all contacts that have a certian attribute and
everything else works fine..
The bad thing is that the deleted items show up in the trashcan whish fill
up quite fast that way so the code below works but not quite as good as I
want.

Does any one know how to delete items without having them go inte the
trashcan?

Sub Deletetems()
Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myRestrictItems As Outlook.Items
Dim myItem As Outlook.MailItem
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
Set myItems = myFolder.Items
Set myRestrictItems = myItems.Restrict("[ReferredBy] ''")
For i = myRestrictItems.Count To 1 Step -1
myRestrictItems(i).Delete
Next
End Sub



/Fredrik