WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE and Outlook
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Empty Folder in Outlook


;Empty "Deleted Items folder" in Outlook
objOutlook = ObjectOpen("Outlook.Application")
objNS = objOutlook.GetNameSpace("MAPI")
objNS.Logon("", "", 0, 1)
MainFolder = objNS.Folders.item("Personal Folders") ;<-- top level folder...
objLevelOneFolders = MainFolder.folders              ;<-- subfolder underneath it...
objMyFolder = objLevelOneFolders.item("Deleted Items")  ;<-- a subfolder
count = objLevelOneFolders.Item("Deleted Items").Items.Count
For xx = 1 To count
  objItem = objLevelOneFolders.Item("Deleted Items").Items.Item(1)
  result = objItem.delete()
Next
;clean up
objMyFolder = 0
objLevelOneFolders = 0
objNS = 0
objOutlook = 0
Exit

Article ID:   W17124
File Created: 2007:07:03:14:28:24
Last Updated: 2007:07:03:14:28:24