I am working on outlook i need to delete mail items from inbox of a pst which is added to outlook profile
here is ma code
Expand|Select|Wrap|Line Numbers
- Dim Session As Redemption.RDOSession
- Session = CreateObject("Redemption.RDOSession")
- NamSpace.Logon()
- Dim Folder As Redemption.MAPIFolder
- Dim Msg As Redemption.RDOMail
- Folder = Session.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
- For i = 1 To Folder.Items.Count
- Msg = Folder.Items.Item(i)
- Msg.Delete()
- MessageBox.Show("Msg Deleted")
- Next
plz helop me to get ride on it
its very urgent plz help me to deal with deletion of mail items using redemption