'Description   Permanently Deleting a fOlder so it wont go into the deleted items folder.
'
'Changes
'              JL - 22/08/2002 Created
'
'
' Using the mapiItem.Delete() will move it to the deleted items folder.  The way to permanently delete the folder is to loop through all the folders with the items parent folder and using the .Remove(Item).

Option Explicit

Dim ItemNo As Integer
Dim toDeleteFolder as Outlook.MapiFolder
FolderParent = toDeleteFolder.Parent

'Loop through the Parent folder the Item belongs so that the folder 
'can be Removed.  Remove will not move it to the deleted folders

For ItemNo = 1 To FolderParent.Folders.Count
	If FolderParent.Folders.Item(ItemNo).Name = folderToDelete.Name Then
		FolderParent.Folders.Remove(ItemNo)
		Exit For
	End If
Next