Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
;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